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里查找"("的位置，再找")"的位置，不知道行不行
页: [1]
查看完整版本: 求教：关于二进制文件的读取