VBScriptの正規表現で半角スペースをマッチ

VBScriptの正規表現で、半角スペースや全角スペースをマッチさせたいです。
どうしたらよいでしょうか。
よろしくお願いします。

No.2 回答者： nicotinism 回答日時： 2013/01/19 12:25

こんな感じ？

注※
s = "a b c　d" は
ab間に半角スペース１個
bc間に半角スペース２個
cd間に全角スペース１個を置いてます。

.Pattern = "[ 　]+"は
[]内に半角スペース一個と全角スペース一個置いてます
末尾の + は一文字以上のマッチです

m.firstindex + 1 は見つけた文字位置
（m.value だとスペースはメッセージボックスでは判らないためオマケ）

Dim r
Dim m
Dim mc
Dim s
Set r = CreateObject("VBScript.RegExp")
s = "a b c　d"
With r
.Pattern = "[ 　]+"
.Global = True
.IgnoreCase = False
Set mc = .Execute(s)
End With

For Each m In mc
MsgBox m.Value & m.firstindex + 1
Next

No.1 回答者： lupin-333333 回答日時： 2013/01/19 11:33

http://msdn.microsoft.com/ja-jp/library/cc427970 …

をみましょう。特定一文字だけなら、そのものを指定すればいい。スペースならスペース。分かりにくいのなら、アスキコードで指定。まあマスク（引き算）してもいいのでしょう。問題は、スペースは予約語とも言うべき、単語区切り文字ですね。

http://search.yahoo.co.jp/search?p=%EF%BC%B6%EF% …