'以下是读取Binary file的程式
Dim Buff() as Byte
open "d:\xyf.txt" for output as #2
Open "d:\xyf.ttt" For Binary Access Read As #1
ReDim Buff(267)
dim i as integer
Do While Not EOF(1)
Get #1, , Buff '每次读268个byte进来
'Call 处理Buff 的Routine
for i = 0 to 267
print #2, hex(buff(i))
print #2, " "
next i
Loop
Close #1
close #2
Dim Buff() as Byte
open "d:\xyf.txt" for output as #2
Open "d:\xyf.ttt" For Binary Access Read As #1
ReDim Buff(267)
dim i as integer
Do While Not EOF(1)
Get #1, , Buff '每次读268个byte进来
'Call 处理Buff 的Routine
for i = 0 to 267
print #2, hex(buff(i))
print #2, " "
next i
Loop
Close #1
close #2
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货