外字を変換したい

質問

Windows2000(sp3)
VisualBasic(sp5)
で開発中です。

いま、
『文字列の中に外字（F040～F9FC）が含まれていないかチェックし、含まれていたら、特定の文字に変換する。』
と言うことをしたいのですが、この場合、文字列を16進に変換し、その上で、F040～F9FCが含まれていないかチェックすると言う方法しか思い浮かびません。

もっとスマートで、処理時間が少ない方法等ありましたら教えてください。
よろしくお願いします。

回答No.1

FlossenEngel · ベストアンサー

単なる一例です。(外字を1文字単位で☆に変換するとして)

Function ans(s As String) As String
'参照設定でMicrosoft VBScript Regular Expressionsにチェック
Dim re As New RegExp

re.Pattern = "[" & Chr(&HF040) & "-" & Chr(&HF9FC) & "]"
re.Global = True
ans = re.Replace(s, "☆")
End Function

お礼

ありがとうございます。
完璧です！！
すっごく嬉しいです。

本当に、ありがとうございました。