vb新手求助:采用vb以十六进制的形式读取文本文档数据
一个文本文档以十六进制的形式存有数据,正常情况下打开是乱码的,想用vb读取文本中的数据,并显示出来。本人不是很懂vb,由于毕设中遇到。很是着急,各位懂vb的朋友请帮帮忙吧...
一个文本文档以十六进制的形式存有数据,正常情况下打开是乱码的,想用vb读取文本中的数据,并显示出来。
本人不是很懂vb,由于毕设中遇到。很是着急,各位懂vb的朋友请帮帮忙吧。。。
感谢万分。。 展开
本人不是很懂vb,由于毕设中遇到。很是着急,各位懂vb的朋友请帮帮忙吧。。。
感谢万分。。 展开
2个回答
展开全部
窗体上放入一个多行文本框(带纵向滚动条),一个命令按钮:
Private Sub Command1_Click()
Dim ss() As Byte, i As Long
Open "e:\tmp\123.txt" For Binary As #1
ss = InputB(LOF(1), #1)
Close #1
For i = 0 To UBound(ss)
If i > 0 And (i Mod 16) = 0 Then Text1.SelText = vbCrLf
Text1.SelText = Right("0" & Hex(ss(i)), 2) & " "
Next
End Sub
Private Sub Command1_Click()
Dim ss() As Byte, i As Long
Open "e:\tmp\123.txt" For Binary As #1
ss = InputB(LOF(1), #1)
Close #1
For i = 0 To UBound(ss)
If i > 0 And (i Mod 16) = 0 Then Text1.SelText = vbCrLf
Text1.SelText = Right("0" & Hex(ss(i)), 2) & " "
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询