iFullName$ = "C:\coordX.txt"
Open iFullName$ For Binary As #1
iText$ = Space(LOF(1))
Get #1, , iText$
Close #1
Text1.Text = Split(iText$, vbCrLf)(2)
Работа с текстом...
Помогите пожалуйста!!!
Как сделать так: что бы:
имееться текстовый файл, в нем больше одной строки информации.
Мне надо, что бы Text1.Text заполнялся информацией 3 строки файла...
Можно:
Open "C:\coordX.txt" For Input As #a
Line Input #a, g
Close #a
Но, пока дойдёш до третей строки методом:
Open "C:\coordX.txt" For Input As #a
Line Input #a, g 'первая строка
Line Input #a, p 'вторая строка
Line Input #a, l 'третья строка
Close #a
Просто у меня может быть больше 100 строк... и чё делать?
Переменных не напосёшся... Help some body!!!
Как сделать так: что бы:
имееться текстовый файл, в нем больше одной строки информации.
Мне надо, что бы Text1.Text заполнялся информацией 3 строки файла...
Можно:
Open "C:\coordX.txt" For Input As #a
Line Input #a, g
Close #a
Но, пока дойдёш до третей строки методом:
Open "C:\coordX.txt" For Input As #a
Line Input #a, g 'первая строка
Line Input #a, p 'вторая строка
Line Input #a, l 'третья строка
Close #a
Просто у меня может быть больше 100 строк... и чё делать?
Переменных не напосёшся... Help some body!!!
Если Вы уверены в наличии текстового файла и нужного количества строк, то попробуйте использовать что-то вроде :
Код:
Спасибо... это то что надо!!!