MACの「〜」を「〜」に置換 (ID:142405)

名前

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

本文 12136 というと…この文字という事になりますね。 http://www.unicode.org/cgi-bin/GetUnihanData.pl?codepoint=2F68 上記の文字ではないのだとしたら、投稿時に文字化けしないよう、 Unicode のコードポイントを示してもらった方が良いかと。 なお、文字の置換については、 Dim srcText As String '置換前の Unicode 文字列 srcText = ……… Dim char As String '「〜」に置換したい文字 char = ChrW(12136) Dim dstText As String dstText = Replace(srcText, Chr, "〜") のようにすれば OK です。 なお、VB6 の Form / TextBox / Label / MsgBox / Debug.Print 等は、 Shift_JIS 以外のデータを正しく表現できない(Unicode 非対応)事に 注意してください。