Question

VB二进制文件的操作

看这段代码
Private Sub Command1_Click()
Dim temp() As Byte
temp = Text1.Text
Open "d:\GGG.text" For Binary As #1
Put #1, 1, temp()
Close #1
End Sub
以二进制形式保存一个GGG.text文件
我在文本框内输入“你我他”然后保存，
保存后的GGG.txt文件打开后内容是“`Ob諲t 1 ”
怎么还原“你我他”这三个字

Answer 1

两种解决方法：
1、
Private Sub Command1_Click()
Dim temp() As Byte
temp = StrConv(Text1.Text, vbFromUnicode)
Open "d:\GGG.text" For Binary As #1
Put #1, 1, temp()
Close #1
End Sub

2、
Private Sub Command1_Click()
Dim temp As String
temp = Text1.Text
Open "d:\GGG.text" For Binary As #1
Put #1, 1, temp
Close #1
End Sub

建议用第二种。文本字串可以直接储存到二进制文件中的，无需用个字节数组中转。

追问

你电脑有DNF吗？ 如果有的话用记事本打开“地下城与勇士\start\version.ini”里面也是乱码
我的目的是分析version.ini的内容

追答

那你把数据仍然读入到一个字节数组中，VB会自动转换的，比如：

Private Sub Command2_Click()
Dim temp() As Byte
Open "d:\GGG.text" For Binary As #1
ReDim temp(LOF(1) - 1)
Get #1, , temp()
Text2.Text = temp
Close #1
End Sub

追问

谢谢你 `Ob諲 这个乱码解决了
但是 地下城与勇士\start\version.ini 还没解决 因为ini是配置设置是文本文件

追答

乱码的产生是多种原因的，这只能说DNF这个文件的乱码和VB产生的乱码不是同一种原因造成的。另外VB的二进制文件读写方式适用于所有文件（包括文本文件），二进制文件与文本文件并没有严格区分的，关键看你怎么处理，所以“因为ini是配置设置……”云云并不是问题所在。