注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

闻新而动

双核动力

 
 
 

日志

 
 
 
 

VB读写文本文件  

2010-10-18 13:50:16|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
VB读写文件要用到以下语句:
1、Open语句打开文件。
2、读文件使用Line Input、Input #,(以上为文本方式)和Get(以上为二进制方式)。
3、写文件使用Print #、Write(以上为文本方式)和Put(以上为二进制方式)。
4、Close语句关闭文件
5、二进制方式下移动文件位置使用Seek语句。
所有这些语句在VB的帮助中都有详细说明和例子。
文本文件的示例:
Open "TESTFILE" For Output As #1 ' 打开输出文件。
Print #1, "This is a test" ' 将文本数据写入文件。
Print #1, ' 将空白行写入文件。
Print #1, "Zone 1"; Tab ; "Zone 2" ' 数据写入两个区(print zones)。
Print #1, "Hello" ; " " ; "World" ' 以空格隔开两个字符串。
Print #1, Spc(5) ; "5 leading spaces " ' 在字符串之前写入五个空格。
Print #1, Tab(10) ; "Hello" ' 将数据写在第十列。
' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
Print #1, MyBool ; " is a Boolean value"
Print #1, MyDate ; " is a date"
Print #1, MyNull ; " is a null value"
Print #1, MyError ; " is an error value"
Close #1 ' 关闭文件。
读文件示例
使用 Line Input # 语句从顺序文件中读入一行数据,并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Debug.Print TextLine ' 在调试窗口中显示数据。
Loop
/++++++++++++++++++++++++++++++++++++++++++++++++++++/
读取指定行
/++++++++++++++++++++++++++++++++++++++++++++++++++++/
我是用 Line Input 语句来实现的。
用 DO 循环 加 eof(#n) 再来个计数变量就可以很好的的控制读取固定的行,一次整行读入。这样的代码很简单!:
'打开文件 c:\Escreps.prn
Open "c:\Escreps.prn" For Input As #1
'取文件内容,这种是知道文件的固定行数
For i = 1 To 24
Line Input #1, temp
Select Case i
Case 8 '例如要处理第8行
'在这里可以处理 TEMP 读取的内容
End Select
Next i
Close #1
'*-----------------不知道文件总行数的时候用这种办法。
Do While Not EOF(1)
'------------取文件内容
Line Input #10, DateSr
i=i+1
Select Case i '这个你也可以用其他判断语句。
Case 8 '例如要处理第8行
'在这里可以处理 TEMP 读取的内容
End Select
LOOP
  评论这张
 
阅读(72358)| 评论(3)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017