二进制

Question

有没有办法将一个文件用binary方式读到.Text中   然后再将.text中的数据保存到文件,文件要没有问题

Answer 1

可以，前提是读和写的时候都用得一种编码，即都为Ascii或Unicode。如：
Option ExplicitConst mc_FileName       As String = "c:\test.dat"Private Function ReadFile() As String
    
    Dim intFileNum      As Integer
    Dim bytData()       As Byte
    
    intFileNum = FreeFile()
    
    Open mc_FileName For Binary As intFileNum
        ReDim bytData(LOF(intFileNum) - 1)
        Get intFileNum, , bytData()
    Close intFileNum
    
    ReadFile = StrConv(bytData(), vbUnicode)        'UNICODE编码
    
End FunctionPrivate Sub WriteFile(ByVal strData As String)
    
    Dim intFileNum      As Integer
    Dim bytData()       As Byte
    
    bytData() = StrConv(strData, vbFromUnicode)     'ASCII编码    intFileNum = FreeFile()
    
    Open mc_FileName For Binary As intFileNum
        Put intFileNum, 1, bytData()
    Close intFileNum
    
End Sub