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

marain · 发表于 2005-1-28 15:04:00

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

yulijin608 · 发表于 2005-1-28 15:15:00

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 · 发表于 2005-1-28 15:25:00

谢先，这个我会我的意思读取一个二进制文件中的一整行
谢谢

yulijin608 · 发表于 2005-1-28 15:58:00

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

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

发表回复

精选推荐