Оператор Get

[Saturn.65]

Помогите кто может.
Надо читать нужную строчку.
Только вот стоит ограничение на кол-во символов.
Если его сделать *1000, то начинает читать все строчки. А мне надо только выбранную.

Код: Выделить всё

Dim MyFile
Dim usr As String * 1
MyFile = FreeFile
Open ("C:\mybf.txt") For Binary As #MyFile
Get #MyFile, 3, usr
Close #MyFile
MsgBox usr


После выполнения этого кода, должно появится сообщение "l". Как вы видите, в коде, после объявления типа переменной usr стоит "*1", это значит, что переменная usr может иметь только один символ, попробуйте 1 изменить на 3, и в сообщение уже будет не "l", а "llo".
А как мне прочесть строчку целиком, сколько там есть символов, без ограничений?
Спасибо. В поиске уже был. Все не совсем то.

[burik]

Код: Выделить всё

Dim MyFile
Dim usr As String
MyFile = FreeFile
Open ("C:\mybf.txt") For Input As #MyFile
Line Input #MyFile, usr
Close #MyFile
MsgBox usr

[keks-n]

Не проще ли использовать режим For Input ?

[Saturn.65]

Не проще ли использовать режим For Input ?

Мне хоть что. Лишь бы нужную строку в txt прочитать.

[iGrok]

Либо For Input и три раза Line Input
Либо For Binary, считать весь файл в txt, arr() = Split(txt, vbCrLf), str=arr(2)