正規表現を用いての置換。

質問

お世話になっております。
VBScriptで、正規表現を用いての置換がうまくいかないので、ご教授ください。

半角数字に挟まれている、全角の「ー」（長音符）を、半角ハイフンに変換したいと
思っています。
先日ご教授いただいて、以下のように作りました。
---
Set ObjRegExp = Server.CreateObject("VBScript.RegExp")
ObjRegExp.Pattern = "([0-9])ー([0-9])"
StrHalf = ObjRegExp.Replace(StrHalf, "$1-$2")
---

しかし、たとえば
１ー2であれば、1-2となるのですが、
1ー2ー3の時に、1-2ー3（後方が長音符のまま）となってしまいます。
修正すべき点をご教授いただけないでしょうか。

回答No.3

mu2011 · ベストアンサー

>1ー2ー3の時に、1-2ー3（後方が長音符のまま）となってしまいます
　⇒先に1－2のパターンで確定するから2－3パターンは確定できないと思う。
　　Testメソッドでループするぐらいでしょうか。
　　Do　While ObjRegExp.Test(StrHalf)
　　　StrHalf = ObjRegExp.Replace(StrHalf, "$1-$2")
　　Loop

回答No.2

ki-aaa

単純に

ObjRegExp.Global = True

が抜けているだけでは?

回答No.1

Tacosan

手を抜くなら単純にループでいいんじゃね?