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

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

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


3x

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

Dim myFile() As Byte<BR>                       Dim lngFile As Long                                                               '文件长度<BR>                       Dim FileName As String                                       '文件名称<BR>                       Dim FileNumber As Integer               '文件号<BR>                       <BR>                       FileName = "C:\a.txt'取得文件名及路径<BR>                       lngFile = FileLen(FileName)                                                       '取得文件长度<BR>                       ReDim myFile(lngFile - 1) As Byte       '初始化数组<BR>                       FileNumber = FreeFile                                                                                                       '获得随机文件号<BR>                                                       <BR>                       Open FileName For Binary As #FileNumber                               '打开文件<BR>                       Get #FileNumber, , myFile                                                                                                                                               '将文件写入数组<BR>                       Close #FileNumber

marain 发表于 2005-1-28 15:25:00

本帖最后由 作者 于 2005-1-28 15:50:52 编辑

谢先，这个我会



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


谢谢

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

你可以把后面的一段先取出来存在str里,然后在str里查找"("的位置，再找")"的位置，不知道行不行
页: [1]
查看完整版本: 求教：关于二进制文件的读取