2015年中国人平均寿命:vb 用binary打开模式 输出全是乱码 急待解决!!!!!

来源:百度文库 编辑:高校问答 时间:2024/03/28 22:41:13
Private Sub fs_Click()
Dim n(0 To 3000) As Long
Dim s() As Byte
Open "d:\a.txt" For Binary As 1
ReDim s(1 To 599) As Byte
Get 1, , s
Text1.Text = s
Close 1
End Sub
我定义一个数组,为什么输出全是乱码,清高手帮忙改改,多谢了
我必须用二进制方式打开,因为要定义数组截取0 TO 599 ,600 TO1199 等 用文本方式打开我就不会定义截取了 ?

Binary 是用字节方式打开,也就是说是二进制方式,在二进制下的数据方式和文本格式是不一样的,所以无法用文本方式看,所以是乱码!

如果要想用文本方式读出,就需要用文本方式打开!

Open "d:\a.txt" For Input as #1
Input #1,s
text1.text = s
Close #1

从新打开