16進コード文字列を文字列に変換

VB6を使用して
16進コード"88DC52A9" を "補助" に変換することはできないでしょうか。
技術的に初心者なものでよろしくお願いいたします。

No.3 回答者： noname#140971 回答日時： 2009/01/14 11:12

補足: もう少し具体的に・・・。

[イミディエイト]
? HStr("88DC")
補
? XStr("&H" & "88DC")
補

Public Function HStr(ByVal HEXDATA As String) As String
　　HStr = ChrW("&H" & HEXDATA)
End Function

Public Function XStr(ByVal CCODE As Long) As String
　　XStr = ChrW(CCODE)
End Function

HStr()、XStr()とのどっちを採用するのかは好みの問題だと思います。

この回答へのお礼

Husky2007さん、ありがとうございました。

お礼日時：2009/01/14 11:36

No.2 回答者： redfox63 回答日時： 2009/01/14 11:12

そのコードがUnicodeの文字列ならば

dim s1 as string, ss as string, n as integer
s1 = "88DC52A9"
for n = 0 to 1
ss = ss & ChrW( Val( "&H" & mid( s1, n * 4 + 1, 4 ) ) )
next
print ss
といった具合で変換できるでしょう ・・・

この回答へのお礼

redfox63さん、ありがとうございました。

お礼日時：2009/01/14 11:35

No.1 回答者： noname#140971 回答日時： 2009/01/14 10:57

[イミディエイト]

? CarW(&H88DC)
補
? ChrW(&h52A9)
助

CarW()が使えると思いますよ。

この回答へのお礼

Husky2007さん、ありがとうございました。

お礼日時：2009/01/14 11:33