二进制
有没有办法将一个文件用binary方式读到.Text中
然后再将.text中的数据保存到文件,文件要没有问题
问题点数：0、回复次数：1Top
1 楼fj182（阿花）回复于 2006-03-04 16:40:35 得分 0
可以，前提是读和写的时候都用得一种编码，即都为Ascii或Unicode。如：
Option Explicit
Const 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 Function
Private 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 SubTop
