VB6 讀取二進位制檔案並顯示(到現在為止發現的讀取速度最快的方法VB6 讀取二進位制檔案並顯示(到現在為止發現的讀取速度最快的方法)2008年06月06日 星期五 05:47Public Function
      ReadBinFile(ByVal BinFilePath As String) As String
      On Error GoTo ErrorSet
                                
         
          If Dir(BinFilePath, vbDirectory) = "" Then '檢查目錄是否存在，不存在退出
              MsgBox "檔案不存在！"
              Exit Function
          End If
         
         
          Dim BinFileNo As Integer
         
          BinFileNo = FreeFile                 'FreeFile 返回一個 Integer，代表下一個可供
      Open 語句使用的檔案號
         
             
          Open BinFilePath For Binary As #BinFileNo
          FileLen = LOF(BinFileNo)
         
          ReDim FileByte(FileLen) As Byte
         
          Get #BinFileNo, , FileByte()
          Close #BinFileNo
         
         
          Dim FileStr() As String
          ReDim FileStr(FileLen) As String
         
         
          For i = 0 To FileLen - 1
              If Len(Hex(FileByte(i))) = 1 Then
                  FileStr(i) = "0" & Hex(FileByte(i))
              Else
                  FileStr(i) = Hex(FileByte(i))
              End If
          Next i
         
         
          ReadBinFile = Join(FileStr)
         
         
          Exit Function
         
      ErrorSet:
          MsgBox "檔案" & BinFilePath & "讀取失敗！" & Err.Description & Chr(10) &
      Chr(13)
         
          ReDim FileByte(FileLen) As Byte
         
          Get #BinFileNo, , FileByte()
          Close #BinFileNo
         
         
          Dim FileStr() As String
          ReDim FileStr(FileLen) As String
         
         
          For i = 0 To FileLen - 1
              If Len(Hex(FileByte(i))) = 1 Then
                  FileStr(i) = "0" & Hex(FileByte(i))
              Else
                  FileStr(i) = Hex(FileByte(i))
              End If
          Next i
         
         
          ReadBinFile = StrConv(filestr, vbUnicode)
         
         
          Exit Function
         
      ErrorSet:
          MsgBox "檔案" & BinFilePath & "讀取失敗！" & Err.Description & Chr(10) &
      Chr(13)
         
      End Function