从品牌网站建设到网络营销策划,从策略到执行的一站式服务
用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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图