VB十六进制与汉字互转
发布网友
发布时间：2022-04-26 15:56
我来回答
共1个回答
热心网友
时间：2023-10-13 02:56
Private Sub Form_Load()
Debug.Print FromHex("C4E3")
Debug.Print ToHex("你")
End Sub
' 用途：将十六进制转化为十进制
' 输入：Hex(十六进制数)
' 输入数据类型：String
' 输出：HEX_to_DEC(十进制数)
' 输出数据类型：Long
' 输入的最大数为7FFFFFFF,输出的最大数为2147483647
Public Function HEX_to_DEC(ByVal Hex As String) As Long
Dim i As Long
Dim B As Long
Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, Len(Hex) - i + 1, 1)
Case "0": B = B + 16 ^ (i - 1) * 0
Case "1": B = B + 16 ^ (i - 1) * 1
Case "2": B = B + 16 ^ (i - 1) * 2
Case "3": B = B + 16 ^ (i - 1) * 3
Case "4": B = B + 16 ^ (i - 1) * 4
Case "5": B = B + 16 ^ (i - 1) * 5
Case "6": B = B + 16 ^ (i - 1) * 6
Case "7": B = B + 16 ^ (i - 1) * 7
Case "8": B = B + 16 ^ (i - 1) * 8
Case "9": B = B + 16 ^ (i - 1) * 9
Case "A": B = B + 16 ^ (i - 1) * 10
Case "B": B = B + 16 ^ (i - 1) * 11
Case "C": B = B + 16 ^ (i - 1) * 12
Case "D": B = B + 16 ^ (i - 1) * 13
Case "E": B = B + 16 ^ (i - 1) * 14
Case "F": B = B + 16 ^ (i - 1) * 15
End Select
Next i
HEX_to_DEC = B
End Function'十六进制转汉字
Public Function FromHex(ByVal lyHex As String) As String
FromHex = Chr(HEX_to_DEC(lyHex))
End Function'汉字制转十六进
Public Function ToHex(ByVal lyCH As String) As String
ToHex = Hex(Asc(lyCH))
End Function
16进制(什么格式都可以)转换为汉字的VB代码
h = Hex(Asc("你"))16进制字串转换为汉字：c = Chr("&H" & h)
VB十六进制与汉字互转
End Select Next i HEX_to_DEC = B End Function'十六进制转汉字 Public Function FromHex(ByVal lyHex As String) As String FromHex = Chr(HEX_to_DEC(lyHex))End Function'汉字制转十六进 Public Function ToHex(ByVal lyCH As String) As String ToHex = Hex(Asc(lyCH))End Function ...
如何用VB读取十六进制文件,并翻译为中文
读取的话，你就可以逐行读出来，然后两个16进制字符做成一个字节：比如十六进制A，B char c;c = A * 16 + B；如果你读到的是字符'A','B'那么就要换算一下，对应的16进制值。比如‘A’对应A（10）.至于翻译成中文，这个要看你使用哪种编码了 有ANSI,Uicode等 ...
vb UTF-8汉字转十六进制的问题?
在转换字符串只需要把字符串赋值给字节数组就可以了.但vb6函数不能指定编码形式.不是unicode编码,就是ASCII编码,使用StrConv函数带VbStrConv.Narrow参数返回的字符串转到字节后就是ASCII编码的.要使用其他编码的使用API.VB.net可以使用system.text.encoding.UTF-8.GetBytes()方法获取十六进制编码 ...
求VB 16进制转字符方法
Len(strData) Step 3 '处理为ASCII字符 sj = Val("&H" & Mid(strData, i, 2))If sj < 32 Or sj > 128 Then '当接收字节中有Chr(0)时，其后字符被切割 strDat = strDat & "."Else strDat = strDat & Chr(sj)End If Next msgbox(strDat ) 'strDat 为转换成的字符 ...
怎么用vb将十六进制数转换成十进制数,并将十进制数,转换成字符型,显示...
Text1输入16进制数，例如“ 6A7C ”，Text2显示对应的10进制 Text2.text=cLng( "&H" & Text1.text)
VB中怎样把程序或文本转换成二进制或十六进制储存,运行的时候再把这些...
提示一下，使用资源文件就可以，你想集成什么类型的文件都可以，运行时可以把它放出来
vb如何将在文本框输入的文本转化为二进制和十六进制?
输入:Hex(十六进制数)输入数据类型:String输出:HEX_to_OCT(八进制数)输出数据类型:String输入的最大数为2147483647个字符Public HEX_to_OCT(ByVal Hex As String) As String Dim Bin As String Hex = UCase(Hex) Bin = HEX_to_BIN(Hex) HEX_to_OCT = BIN_to_OCT(Bin)End VB自带函数:十进制转八进制...
求vb中将字符串转换为16进制的ascii码
Dim i As Integer text2=""For i = 1 To Len(Text1)Text2 = Text2 + format(Hex(Asc(Mid(Text1, i, 1))),"0000")Next 以上为热心网友的结果，只是为了准确转换数字与汉字，加了一点东西.
VB编程中,如何用16进制(十六进制)打开和修改文件呢???
很容易呀..使用Open "文件" For Binary As #1 方式来打开文件,然后读取每字节,并转换为16进制显示到文框内就行了 做好每行显示的宽度,以及相对应的地址显示..
