パターン処理(再度） vbscript

質問

excel　ＶＢＡ(vbscript)
質問１　文字変数Ｘを処理して変数ｙを求めるマクロコードのヒントを
　　　　（つまり.xlsを除き、続いて文字や_を取り去る）
質問２　文字変数Ｘを処理して変数ｚを求めるマクロコードのヒントを
　　　　（つまり文字のみを取り去る）
(例）ｘ＝FILE20041211_1212system.xls
　　　ｙ＝FILEsystem
　　　ｚ＝20041211_1212.xls　　
上記に対して次の回答があり、満たします。
ANo.2 Sub　test()
　Dim　x　As　String
　Dim　y　As　String
　Dim　z　As　String
　　x　=　"FILE20041211_1212system.xls"
　With　CreateObject("VBScript.RegEXP")
　　　　　　.Pattern　=　"^(\D*)(\d+\_\d+)(\D*)\b.xls\b$"
　　　　　　If　.test(x)　Then
　　　　　　　　　y　=　.Replace(x,　"$1")　&　.Replace(x,　"$3")
　　　　　　　　　z　=　.Replace(x,　"$2")　&　".xls"
　　　　　　End　If
　　　　　　MsgBox　x　&　vbLf　&　y　&　vbLf　&　z
　End　With
End　Sub
(今回の質問）(例）ｘ＝FILE20041211_1212system.xlsにおいて
"_"が実ははいらない場合もありまして、そのような例
ｘ＝FILE200412111212system.xlsにおいては、どのようにANo.2 Sub　test()を変更すべきか。

回答No.1

Wendy02 · ベストアンサー

こんにちは。

こういう感じで、? を入れればよいはずです。

.Pattern = "^(\D*)(\d+\_?\d+)(\D*)\.xls"

\b の境界の空文字認識は、ファイル名に対しては必要ないと思います。

お礼

おかげで解決しました。ご回答どうもありがとうございました。