IBM Lotus Symphony


Оператор Line Input # [встроенный]

Читает строки из последовательного файла в переменную.

Синтаксис:

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


Комментарии по продукту | Дополнительная документация | Товарные знаки