全角数字以外を半角化する方法

質問

VB6　WindowsXp
文字列内の全角数値（０～９）以外の文字を半角にする方法を
教えてください。

例）
ア－１２－50-123山田浩輔＆ＡＢＣＤ－２
↓
ア-１２-50-123山田浩輔&ABCD-２

回答No.1

n-jun · ベストアンサー

Dim myReg As Object
Dim st As String, ss As String
Dim v As Variant

Set myReg = CreateObject("VBScript.RegExp")
myReg.Pattern = "[^０-９]+"
myReg.Global = True

st = "ア－１２－50-123山田浩輔＆ＡＢＣＤ－２"
ss = st

For Each v In myReg.Execute(st)
ss = Replace(ss, v.Value, StrConv(v, vbNarrow))
Next

MsgBox st & vbLf & ss

Set myReg = Nothing

こんな感じの事でしょうか？

補足

回答ありがとうございました。
いまいち結果が不安定です。
下記の２つですが、全角カッコの半角化が前者の"（"
が半角になっていません。
２と2の違いだけで結果が異なるのはなぜでしょうか？
※下記は画面上ではわかりにくいかもしれませんので、コピペして試してみてください。

1、２、４、東京都新宿区西新宿（２）特
↓NG
1、２、４、東京都新宿区西新宿（２)特
===========================================
1、2、４、東京都新宿区西新宿（２）特
↓OK
1、2、４、東京都新宿区西新宿(２)特

回答No.3

n-jun

＃１です。

myReg.Pattern = "[^０-９（）]+|[（）]+"
ですかね。

お礼

できました。ありがとうございました。

回答No.2

yyr446

おそらく文字コードの問題でしょう
myReg.Pattern = "[^０１２３４５６７８９]+"
と書けばよい

お礼

ありがとうございます。
でも、結果は同じでした。解決していません。
引き続きお願いいたします。