１６進のデータをキャラクタに変換するには？ (ID:114431)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士さん、ありがとうございました。 下記のような感じで処理したらうまく行きました。 '************************************************************ ' パックをゾーンに変換する '************************************************************ Function BinToHex(ByVal StrBin As String) As String Dim sData$, sBuff As String Dim lData&, lCnt As Long Dim J As Integer sBuff = "" For J = 1 To Len(StrBin) sBuff = sBuff & Hex(Asc(Mid(StrBin, J, 1))) Next BinToHex = sBuff End Function