vb点虐 逐行读取数据 vbnet readline 语句

vb 逐行读取文本文件

用Open打开文件，然后用Line行读取即可。

创新互联建站-专业网站定制、快速模板网站建设、高性价比江西网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式江西网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖江西地区。费用合理售后完善，10余年实体公司更值得信赖。

代码如下：

Dim tempStr as String '定义变量tempStr为字符串

Open "C:\Test.txt" For Input As #1 '打开文件

While Not EOF(1)  '读取到结束

Line Input #1, tempStr '读取一行到变量tempStr

'对应的处理

Wend '未结束继续

Close #1 '关闭

vb点虐 按行读取字符串

给你一个VB2010读写文件的例子吧

Dim name As String = ""

Dim age As Integer

name = InputBox("请输入姓名")

age = InputBox("请输入年龄")

FileOpen(1, "d:\信息.txt", OpenMode.Append)

WriteLine(1, name, age)

FileClose(1)

FileOpen(1, "d:\信息.txt", OpenMode.Input)

Dim h As String

Dim j As String

Dim f As String

f = ""

h = ""

j = ""

While EOF(1) = False

f = LineInput(1)  vbCrLf  f

End While

FileClose(1)

MsgBox("姓名"  "  "  "年龄"  vbCrLf  f)

vb点虐 怎么从文本文档中读取一行数据，将文本输出到控制台？

以下示例一次从文件中读取一行，然后将每行文本打印到控制台。

Sub ReadTextLinesFromFile()

Dim file As New System.IO.StreamReader("c:test.txt")

Dim oneLine As String

oneLine = file.ReadLine()

While (oneLine "")

Console.WriteLine(oneLine)

oneLine = file.ReadLine()

End While

file.Close()

End Sub