IBM Lotus Symphony
|
Читает строки из последовательного файла в переменную.
Line Input #номер-файла As Integer, переменная As String
номер-файла — номер файла, содержащего данные, которые требуется прочитать. Файл должен быть заранее открыт оператором Open с ключевым словом INPUT.
переменная — имя переменной, где будут храниться прочитанные данные.
С помощью оператора Line Input# можно читать строки из открытых файлов и сохранять их в переменных. Строки читаются последовательно до первой пары символов возврата каретки (Asc=13) и перевода строки (Asc=10). Символы конца строки не включаются в результат.
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg as String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "Это строка текста"
Print #iNumber, "Это другая строка текста"
Close #iNumber
iNumber = Freefile
Open aFile For Input As iNumber
While not eof(iNumber)
Line Input #iNumber, sLine
If sLine <>"" then
sMsg = sMsg & sLine & chr(13)
end if
wend
Close #iNumber
Msgbox sMsg
End Sub