楼主可以使用Access数据库,应该更简单和直观。至于使用文本文件,使用Open语句操作即可如何读/写 Binary File'以下是读取Binary file的程式 Dim Buff() as ByteOpen "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, , BuffReDim Buff(1) Buff(0) = 210 Buff(1) = 70 Put #1, , Buff Close #1 End Sub
Dim Buff() as ByteOpen "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, , BuffReDim Buff(1)
Buff(0) = 210
Buff(1) = 70
Put #1, , Buff
Close #1
End Sub
http://zhidao.baidu.com/question/90973587.html
这里看看吧,会有你想要的。