Функция LineInput
Обновлен: Ноябрь 2007
Считывает одну строку из открытого последовательного файла и присваивает ее переменной типа String.
Public Function LineInput(ByVal FileNumber As Integer) As String
Параметры
- FileNumber
Обязательно. Любой допустимый номер файла.
Исключения
Тип исключения |
Номер ошибки |
Условие |
|---|---|---|
Достигнут конец файла. |
||
FileNumber не существует. |
См. столбец "Номер ошибки", если выполняется обновление приложений Visual Basic 6.0, в которых используется неструктурированная обработка ошибок. (Можно сравнить номер ошибки с Свойство Number (объект Err).) Однако по возможности следует заменять такую систему управления ошибками на Обзор структурной обработки исключений в Visual Basic.
Заметки
Функция LineInput предназначена для обеспечения обратной совместимости и может оказать влияние на производительность. Для неустаревших версий приложений объект My.Computer.FileSystem предоставляет более высокую производительность. Дополнительные сведения см. в разделе Доступ к файлам с помощью Visual Basic.
Данные, считанные с помощью функции LineInput, обычно записываются в файл с помощью Print.
.gif "Примечание о безопасности") Примечание о безопасности. |
|---|
При считывании из файла нельзя судить о его содержимом только по его расширению. Например, файл с именем Form1.vb может не являться исходным файлом Visual Basic. |
Функция LineInput читает из файла по одному знаку, пока не достигнет знака возврата каретки (Chr(13)) или последовательности "возврат каретки+перевод строки" (Chr(13)+Chr(10)). Последовательности "возврат каретки+перевод строки" пропускаются и не добавляются к строке.
| Примечание о безопасности. |
|---|
Для чтения файла с помощью функции LineInput требуется уровень доступа Read из перечисления FileIOPermissionAccess. |
Пример
В этом примере функция LineInput используется для чтения строки из последовательного файла и присвоения ее переменной. В этом примере предполагается, что TestFile представляет собой текстовый файл, состоящий из нескольких строк образцов данных.
Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
While Not EOF(1)
' Read line into variable.
TextLine = LineInput(1)
' Print to the console.
WriteLine(1, TextLine)
End While
FileClose(1)
Примечания для разработчиков приложений для интеллектуальных устройств
Данная функция не поддерживается.
Требования
Пространство имен: Microsoft.VisualBasic
**Модуль:**FileSystem
**Сборка:**Visual Basic (библиотека времени выполнения, в Microsoft.VisualBasic.dll)
См. также
Задачи
Практическое руководство. Запись текста в файлы с помощью StreamWriter в Visual Basic
Практическое руководство. Запись текста в файлы в Visual Basic