LineInput 函数
更新：2007 年 11 月
从打开的顺序文件中读取一行数据并将它赋给 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 函数读取文件时，要求具备 FileIOPermissionAccess 枚举的 Read 访问权限。 |
示例
本示例使用 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)
智能设备开发人员说明
不支持此函数。
要求
**模块：**FileSystem
**程序集：**Visual Basic 运行库（在 Microsoft.VisualBasic.dll 中）
请参见
任务
如何：在 Visual Basic 中使用 StreamWriter 向文件中写入文本