人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBAでASCIIコード(漢字)への変換を行うコードが必要となりましたので、作成して頂けると嬉しいです。

例:
hogehoge 清水 愛 > hogehoge 清水 愛

よろしくお願いします。

逆変換のコードは
http://q.hatena.ne.jp/1286454563
の質問の最初の回答 Hatena_ReoReo7_101007_01()
を作って頂き、大変有用でしたが、(順)変換が必要となりましたので再度質問させて頂きます。XMLは利用しないやり方でお願いできればと思います。

●質問者: ReoReo7
●カテゴリ:インターネット ウェブ制作
✍キーワード:ASCII VBA XML コード 作成
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● きゃづみぃ
●40ポイント
Sub test()
 Debug.Print strCnvCNUc("清水愛")
End Sub

Function strCnvCNUc(a As String)
 For b = 1 To Len(a)
 c = c & "&#x" & Hex(AscW(Mid(a, b, 1))) & ";"
 Next b
strCnvCNUc = c
End Function

strCnvCNUc("清水愛")
で "清水愛"と
返してくれます。
◎質問者からの返答

ありがとうございます。スペースも"&#x68セミコロン"のようなコードに変換してくれるのですね。


2 ● Silvanus
●40ポイント ベストアンサー

果たしてこんなんでええんやろか…。

Option Explicit

Sub Hatena_ReoReo7_101105_01()

Debug.Print strCnvUcCN_Rvrs("hogehoge 清水 愛")

End Sub

Function strCnvUcCN_Rvrs(strSrc As String) As String

Dim strCnv As String
Dim str1Ch As String
Dim intPos As Integer

strCnv = ""
 For intPos = 1 To Len(strSrc)
 str1Ch = Mid(strSrc, intPos, 1)
 If AscW(str1Ch) < 256 Then
 strCnv = strCnv & str1Ch
 Else
 strCnv = strCnv & "&#x" & Hex(AscW(str1Ch)) & ";"
 End If
 Next
strCnvUcCN_Rvrs = strCnv

End Function
◎質問者からの返答

ありがとうございます。スペースをスペースとして吐き出してくれるのですね。

どちらの使い方が良いのかは検討してみたいと思いますが、両方を比較検討できるのが大変助かります。ありがとうございました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ