大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用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 '关闭
给你一个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)
以下示例一次从文件中读取一行,然后将每行文本打印到控制台。
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