8月 132013
 

次の関数を使うと、この機能が実現できる。

機能:任意位の文字列を16進数の文字列で表示する
必要となるところ:通信などの場合、16進数に変換されると転送できる

例えば:次の言葉は次の文字列で表示する

1,データ収集専用ツール

0031 002C 30C7 30FC 30BF 53CE 96C6 5C02 7528 30C4 30FC 30EB

関数の詳細:
[vb]
Public Function str2hex(ByVal str As String) As String
Dim intP As Integer
Dim str2 As String
Dim strP As String
For intP = 1 To Len(str)
strP = Mid(str, intP, 1)
str2 = str2 & Right("0000" & Hex$(AscW(strP)), 4) & " "
Next intP
str2hex = str2
End Function
[/vb]