Line Input #file number, string_variable

file number
string_variable

Считывает строку из открытого текстового файла (открытого в режиме Input через номер связанного файла) и сохраняет его в переменной типа string.

Символ переноса строки (может быть символом LF (Chr(10)) или CRLF (Chr(13,10))) не включается в получаемую строку.

' компилировать с опцией -lang qb

'$lang: "qb"

Dim Filehandle As Integer
Dim txt As String
    
On Error Goto HandleErrors
    
Filehandle = FreeFile
Open "test_text_file.txt" For Input As #filehandle

If LOF(filehandle) > 0 Then
        Line Input #filehandle, txt
Else
        Goto HandleErrors
End If

Close #filehandle
Print "The first line of test_text_file.txt is:"
Print txt
    
HandleErrors:
Print "Error."
Resume Next

• Нет
  
  

• Input #
  
• Line Input #
  
• Open
  
• Input (Файловый режим)