VB关于ASCII码转换成16进制的问题.docx

VB关于ASCII码转换成16进制地问题
悬赏分:5 - 解决时间:2008-10-21 16:01
有这样一团代码:他能实现字符串转换成ASCII码16进制
但是我想让他实现ASCII码16进制转换成字符串谢谢各位大哥希望能有代码并且给出比较详细地说明我会追加积分地麻烦了!~~
Private mand1_Click()
Dim A$, i%, B$
A =
For i = 1 To Len(A)
B = B & Hex(Asc(Mid(A, i, 1)))
Next
= B
End Sub
建立两个文本框一个按钮
Private mand1_Click()
Dim A1%, B1$, i%, p% '定义变量
A1 = '将输入地ASCII码赋值给A1
For i = Len(A1) To 1 Step -1 '循环
B1 = Mid(UCase(A1), i, 1) '取各位数字为了方便转为大写
p = Len(A1) - i '位权
Select Case B1 '将16进制转为10进制
Case "A"
C = C + 16 ^ p * 10
Case "B"
C = C + 16 ^ p * 11
Case "C"
C = C + 16 ^ p * 12
Case "D"
C = C + 16 ^ p * 13
Case "E"
C = C + 16 ^ p * 14
Case "F"
C = C + 16 ^ p * 15
Case Else
C = C + 16 ^ p * Val(B1)
End Select
Next
= Chr(C) '转换为字符
End Sub
以上是对你程序地修改地方法
其实完全可以很简单地
Private mand1_Click()
Dim A1%, B1$, i%, p% '定义变量
A1 = '将输入地ASCII码赋值给A1
= Chr(Val("&H" & A1)) '转换为字符利用数值转换
End Sub
试试效果是不是一样啊
求vb中将字符串转换为16进制地ascii码代码
悬赏分:110 - 解决时间:2008-2-20 16:46
ascii码为16进制形式地
字符串包含数字字母和汉字
问题补充:
得到地ascii码全部为大写、并且取值是从后往前
欢迎大家积极帮助积分定当顷囊相送
楼上地不是VB代码,不要乱贴啊
使用VB内部函数
Hex$(x) 是把10进制地数字变成16进制
如y=Hex$(10)就是求10地十六进制数那么 y=A
字母,数字,和汉字地asc码都只要用asc()这个函数就可以求出来了
你把问题写写清楚地话,我可以写下代码
Option Explicit
Dim aa$, bb$, hexstr$, I&, S
Private mand1_Click()
Dim lendd As Integer, n As Integer
lendd = Len()
= ""
n = 0
For I = lendd To 1 Step -1
n = n + 1
= + Mid(, I, 1)

If n = 4 Then = & "-": n = 0

Next I





End Sub
Private mand2_Click()
aa = ""
If = "" Then Exit Sub
For I = 1 To Len()
aa = aa & CStr(ZFto16(Mid(, I, 1)))
Next I
= Trim(aa)
= ""
End Sub
Public Function ZFto16(hz$) As String
If hz = "" Then Exit Function
ZFto16 = Hex(Asc(hz))
End Function
Public Function ZF16toZF(hexstr$) As String
If hz = "" Then Exit Funct