多谢回复! 我用如下代码,每次读一个字符,应该没问题 Private Sub Command1_Click() Open "E:\evbtest\成都数据\000000车1月19日.dat" For Binary As #1 ' 打开文件。 Dim i As LongFor i = 0 To 199 mychar = Asc(Input(1, #1)) ' 读入一个字符。 MsgBox mychar Next iEnd Sub
建议更改如下: Private Sub Command1_Click() Open "E:\evbtest\成都数据\000000车1月19日.dat" For Binary As #1 ' 打开文件。 Dim i As Long dim mychar as ByteFor i = 0 To 199 if EOF(1) then Exit For Get #1, ,mychar ' 读入一个字符。 MsgBox mychar Next iclose #1 End Sub
多谢,已解决 在EVB中有什么区别? Dim MyChar As Byte File1.Open strfile, fsModeBinary, fsAccessReadFor i = 1 To 20 File1.Get MyChar, 1 Next i在EVB中运行以上代码,提示错误 invalid file format
我用如下代码,每次读一个字符,应该没问题
Private Sub Command1_Click()
Open "E:\evbtest\成都数据\000000车1月19日.dat" For Binary As #1 ' 打开文件。
Dim i As LongFor i = 0 To 199
mychar = Asc(Input(1, #1)) ' 读入一个字符。
MsgBox mychar
Next iEnd Sub
Private Sub Command1_Click()
Open "E:\evbtest\成都数据\000000车1月19日.dat" For Binary As #1 ' 打开文件。
Dim i As Long
dim mychar as ByteFor i = 0 To 199
if EOF(1) then Exit For
Get #1, ,mychar ' 读入一个字符。
MsgBox mychar
Next iclose #1
End Sub
2.字节是Byte。VB6的String是基于Unicode的,一个字符两个字节
在EVB中有什么区别?
Dim MyChar As Byte
File1.Open strfile, fsModeBinary, fsAccessReadFor i = 1 To 20
File1.Get MyChar, 1
Next i在EVB中运行以上代码,提示错误
invalid file format