这个问题用C很容易解决，但是我对VB一窍不通，怎么解决？
问题：读一个文本文件，以二进制输出（实际上是十六进制）。
如，一个以ascii编码的文件内容为 "abc 测", 我要输出显示为"61 62 63 B2 E2".
本来我想这样做的:
Private Sub Text1_Change()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
bChar = MidB(Text1.Text, i, 1)
c = Int(Asc(bChar) / 16) & (Asc(bChar) Mod 16)
Text2.Text = Text2.Text + " " + c
Next i
Text2.Refresh
End Sub
但是MidB这句话有错，如果用Mid，对于中文又无法辨认。请VB版的高手指点一下，谢谢！
问题点数：50、回复次数：8Top
1 楼yunyu97（）回复于 2005-08-02 23:58:41 得分 30
Private Sub Text1_Change()
Dim bytData() As Byte
Dim i As Long
Text2.Text = ""
If Text1.Text = "" Then
Exit Sub
End If
bytData = StrConv(Text1.Text, vbFromUnicode)
Text2.SelText = Hex(bytData(0))
For i = 1 To UBound(bytData)
Text2.SelText = " "
Text2.SelText = Hex(bytData(i))
Next i
End SubTop
2 楼aohan（aohan）回复于 2005-08-03 00:21:44 得分 2
同意Top
3 楼yankao（努力学习，做个好人！）回复于 2005-08-03 07:53:54 得分 2
路过学习！
Top
4 楼alianc（alianc）回复于 2005-08-03 09:16:42 得分 2
路过,我是来学习的,大家继续Top
5 楼MagicianLiu（魔术师·刘）回复于 2005-08-03 09:37:47 得分 14
用二进制读取出对应字节的数值，然后转换成16进制
Private Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lread Lib "kernel32" Alias "_lread" (ByVal hFile As Long, lpBuffer As Any, ByVal wBytes As Long) As Long
Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Const READAPI = 0 ' Flags for _lopen
Const WRITEAPI = 1
Const READ_WRITE = 2
Private Sub Form_Load()
Dim hFile As Long
Dim FLen As Long
Dim str As String
Dim lBuffer As Long
Dim i As Long
i = 1
FLen = FileLen("C:\2.txt")
hFile = lopen("C:\2.txt", READAPI)
If IsNumeric(hFile) Then '如果打开成功
While i <= FLen
lread hFile, lBuffer, 1
str = str & " " & Hex(lBuffer)
i = i + 1
Wend
MsgBox str
End If
End SubTop
6 楼of123（）回复于 2005-08-03 10:50:57 得分 0
Private Sub Text1_Change()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
intChar = MidB(Text1.Text, i, 1)
strTmp = Hex(intChar)
If intChar < 0 Then '双字节文字
Text2.Text = Text2.Text + " " + Left(strTmp, 2) + " " + mid(strTmp, 3,2)
Else
Text2.Text = Text2.Text + " " + strTmp
End If
Next i
Text2.Refresh
End Sub
Top
7 楼of123（）回复于 2005-08-03 10:54:10 得分 0
更正，不要用 MidB:
Private Sub Text1_Change()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
intChar = Chr(Mid(Text1.Text, i, 1))
strTmp = Hex(intChar)
If intChar < 0 Then '双字节文字
Text2.Text = Text2.Text + " " + Left(strTmp, 2) + " " + Mid(strTmp, 3,2)
Else
Text2.Text = Text2.Text + " " + strTmp
End If
Next i
Text2.Refresh
End Sub
Top
8 楼of123（）回复于 2005-08-03 10:55:25 得分 0
还是忙中出错：
intChar = Asc(Mid(Text1.Text, i, 1))
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
