求教：关于二进制文件的读取

marain

用Get 如何读出二进制文件中可变长度字符串。


3x

yulijin608

Dim myFile() As Byte
Dim lngFile As Long '文件长度
Dim FileName As String '文件名称
Dim FileNumber As Integer '文件号

FileName = "C:\a.txt'取得文件名及路径
lngFile = FileLen(FileName) '取得文件长度
ReDim myFile(lngFile - 1) As Byte '初始化数组
FileNumber = FreeFile '获得随机文件号

Open FileName For Binary As #FileNumber '打开文件
Get #FileNumber, , myFile '将文件写入数组
Close #FileNumber

marain

谢先，这个我会



我的意思读取一个二进制文件中的一整行


谢谢

yulijin608

你可以把后面的一段先取出来存在str里,然后在str里查找"("的位置，再找")"的位置，不知道行不行