UC知道高分求VB读取文本..
来源：百度知道 编辑：UC知道 时间：2024/06/08 19:37:28
这个文本很奇怪，还有前面有一部分被加密了，全是空格。后
具体请大家到vbgood论坛下载这个文件。
http://www.vbgood.com/viewthread.php?tid=81058&extra=page%3D1
Dim str As String
Open "h:\10981" For Input As #1
While Not EOF(1)
Line Input #1, str
Debug.Print str
Wend
Close #1
按照这样读入，如何分割。print可以，但输出到文本框中乱成一团。
具体请大家到vbgood论坛下载这个文件。
http://www.vbgood.com/viewthread.php?tid=81058&extra=page%3D1
Dim str As String
Open "h:\10981" For Input As #1
While Not EOF(1)
Line Input #1, str
Debug.Print str
Wend
Close #1
按照这样读入，如何分割。print可以，但输出到文本框中乱成一团。
用2进制方式读取 open "10981" for binary as #1 get #1,1,gdat close #1以上程序段读取该文件第1字节的数据你那文件的16进制显示：
用以下方法可以完全读入文件。
VB的字符串无法正常显示这些字符，所以用Ascii编码显示出来。
Dim Data1 As String
Dim Data() As Byte
Dim l As Long
Open "c:\10981" For Binary As #1
ReDim Data(1 To LOF(1))
Get #1, 1, Data()
Close #1
Data1 = ""
For l = 1 To UBound(Data)
Data1 = Data1 & CStr(Data(l)) & &q