vb 在怎么读写*.txt文件,请高手帮帮忙!!

wsz0812 2009-11-06 11:36:51
vb 在怎么读写*.txt文件,请高手帮帮忙!!

有代码,还请加点注释,本人头一次vb。也就说我还不会的。。。^_^
...全文
342 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
贝隆 2009-11-06
  • 打赏
  • 举报
回复
TXT文件的读取

使用Binary模式比input模式少一些错误,下面是最简单的读取方法

Open "TXT文件" For Binary As #1
Text1.Text = Input(LOF(1), 1)
Close 1
贝隆 2009-11-06
  • 打赏
  • 举报
回复
如何读/写 Binary File

'以下是读取Binary file的程式
Dim Buff() as Byte

Open "d:\csys\8504\ctc" For Binary Access Read As #1
ReDim Buff(267)

Do While Not EOF(1)
Get #1, , Buff '每次读268个byte进来
'Call 处理Buff 的Routine
Loop
Close #1

'以下是写入Binary file的程式
Dim Buff() As Byte
Open "c:\tc" For Binary Access Write As #1
ReDim Buff(10)
Buff = StrConv("这是一个11", vbFromUnicode)
Put #1, , Buff

ReDim Buff(1)
Buff(0) = 210
Buff(1) = 70
Put #1, , Buff
Close #1
End Sub
wsz0812 2009-11-06
  • 打赏
  • 举报
回复
就是我装的这个的msdn没了--!
看不了..............
东方之珠 2009-11-06
  • 打赏
  • 举报
回复
多看一下 MSDN ,对你有帮助!
wsz0812 2009-11-06
  • 打赏
  • 举报
回复
谢谢了
zdingyun 2009-11-06
  • 打赏
  • 举报
回复
Option Explicit
Dim strfFleName
Dim sj() As String
Private Sub cmdOpen_Click() '确定文本文件的总行数
Dim sj() As String
Dim strS As String
Dim L As Integer
CommonDialog1.ShowOpen
strfFleName = CommonDialog1.FileName
Open strfFleName For Input As #1
Do While Not EOF(1)
Line Input #1, strS
ReDim Preserve sj(L)
sj(L) = strS
Debug.Print sj(L)
'以下写分割行数据并写入数据库语句
L = L + 1
Loop
Close #1
Text1 = UBound(sj)
End Sub

VB逐行读TXT文件的代码
jhone99 2009-11-06
  • 打赏
  • 举报
回复
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
Close #1 ' 关闭文件。
hjghjg26 2009-11-06
  • 打赏
  • 举报
回复
谢谢,各位
舉杯邀明月 2009-11-06
  • 打赏
  • 举报
回复
说完了....................
wsz0812 2009-11-06
  • 打赏
  • 举报
回复
谢谢大家
可爱的小莱 2009-11-06
  • 打赏
  • 举报
回复
没有什么可以补充的了

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧