| Вопрос: Как бы лучше реализовать эти функции? | Добавлено: 06.06.05 17:08 |
Автор вопроса:  Александр | ICQ: 204034 |
|
Я тут вспомнил про свой редатор и вот хочу спросить у Вас:
1) Как бы лучше сделать отступы по нажатию Tab при выделенном тексте? Имеется в виду такие отступы как в IDE. Если выделен только текст в строке, то обнулять выделенный и вставлять заданное в опциях количество пробелов или выносить в начало строки эти пробелы и оставлять выленное в покое? 2) Как читать большие файлы покусочно? Вернее как пользоваться Seek в совмещении с Get? Просьба ответить кодом. З.Ы. - У меня MSDN нету - посылать туда не надо - msdn.micrisoft.com не предлагать - лимитный инет |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Дмитрий Щапов Вопросов: 71 Ответов: 321 |
Профиль | | #1 | Добавлено: 06.06.05 21:24 |
|
1) в начало строки эти пробелы и оставлять выленное в покое
2) Call MsgBox("Ответ:...","Ответ кодом"
 А на каком языке? или зачем Seek? если Get FN, Pos, MasStr(I) |
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 06.06.05 23:24 |
|
Public Function LoadTextFile(Path As String, sByte As Long, poByte As Long) As String
'Загрузка файла в переменную On Error GoTo e Dim l As Long Dim s As String n = FreeFile Open Path For Binary As #n If poByte = 0 Then l = LOF(n) Else l = poByte End If If sByte = 0 Then sByte = 1 s = String(l, vbNullChar) Get n, sByte, s Close #n LoadTextFile = s Exit Function e: LoadTextFile = "" End Function |
||
|
Номер ответа: 3 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #3 | Добавлено: 07.06.05 10:26 |
КирасиД, мне на шестерке надо 
Хакер, пасиб
|
||
Страница: 1 |