高分求助，VB高手帮个忙 谢谢了
您好，我打算用VB做个客户端，但今天遇到问题，希望高手指导一下，我也是新手，谢谢您
请问如何让VB创建个用16进制写的TXT文件，还有就是如何将一个十进制转换为16进制，不是单个数字转换，譬如将十进制（ea1234）转换为16进制。
希望高手能给个提示，谢谢
第1个回答 2008-07-19
给你两个函数，我自己做的。第二个函数能把任何一个字符串转换成十六进制，第一个函数能把以我这种形式保存的十六进制数据转换回来，返回相应的字符串。换句话说，这两个函数互为反函数。注意他们的类型都是String。
最后的Command1_Click过程是测试用的。我这个函数不仅可以转换字母、数字，汉字也照样可以。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Function HexToDec(Hex As String) As String
Dim i As Long
For i = 1 To Len(Hex) Step 4
Dim s As String
s = Chr(CDec("&H" & Mid(Hex, i, 4)))
HexToDec = HexToDec & s
Next
End Function
Function DecToHex(Dec As String) As String
Dim i As Integer
For i = 1 To Len(Dec)
Dim s As String
s = Hex(Asc(Mid(Dec, i, 1)))
If Len(s) < 4 Then
Do Until Len(s) = 4
s = "0" & s
Loop
End If
DecToHex = DecToHex & s
Next
End Function
Private Sub Command1_Click()
Print HexToDec("006500610031003200330034")
Print DecToHex("ea1234")
End Sub
最后的Command1_Click过程是测试用的。我这个函数不仅可以转换字母、数字，汉字也照样可以。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Function HexToDec(Hex As String) As String
Dim i As Long
For i = 1 To Len(Hex) Step 4
Dim s As String
s = Chr(CDec("&H" & Mid(Hex, i, 4)))
HexToDec = HexToDec & s
Next
End Function
Function DecToHex(Dec As String) As String
Dim i As Integer
For i = 1 To Len(Dec)
Dim s As String
s = Hex(Asc(Mid(Dec, i, 1)))
If Len(s) < 4 Then
Do Until Len(s) = 4
s = "0" & s
Loop
End If
DecToHex = DecToHex & s
Next
End Function
Private Sub Command1_Click()
Print HexToDec("006500610031003200330034")
Print DecToHex("ea1234")
End Sub
相似回答
