excel ＶＢＡ(vbscript) patttern処理

質問

excel　ＶＢＡ(vbscript)
（前提）文字列は、FILE20080301_0330system.xlsのように
英字列数字列_数字列英字列.xlsからなる文字列とする。
あるいはFILE200803010330system.xls　　のように途中の"_”がなかったりする。
(例） x ＝FILE20080301_0330system.xls　　
上記のような文字変数x を処理して変数ｙを求める。ただし"_”はない場合もある。
ｙ＝FILEsystem
　　　　（つまり.xlsを除き、先頭の英字を残し、続いて数字や_を取り去り後ろの英字部分を採用した文字列とする）

また文字変数x を処理して変数ｚを求める。
ｚ＝20041211_1212.xls　
　（つまり.、先頭の英字を取り去り残し、続いて数字部分と_を残し後ろの英字部分を除き 、さらにxlsを残した文字列とする）

マクロコードについて下記のコードが解決しますが、

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*)\.xls"
　　　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において
データ自身が、.xlsの前に半角あるいは全角のspaceが１つ入っていても結果として求めるy,zを出すにはどのように.patternなど変更すればよいかを教えてほしい。つまり下記例
（例）ｘ＝FILE20041211_1212system　.xlsでも同じ結果をだしたい。

回答No.1

Wendy02 · ベストアンサー

こんにちは。

パターンで処理する方法もあるけれども、以下のように、VB側のReplace 関数で処理したほうが確かな気がします。パターンには、テキストコンペア・モードがなかったような気がするので、全角・半角を指定しなければならないと思います。

Sub test2()
　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*)\.xls"
　　　If .test(x) Then
　　　　　　y = .Replace(x, "$1") & .Replace(x, "$3")
　　　　　　'以下に一行加えた
　　　　　　y = Replace(y, Space(1), "", , , 1)　'1=vbTextCompare
　　　　　　z = .Replace(x, "$2") & ".xls"
　　　End If
　　　　　　MsgBox x & vbLf & y & vbLf & z
　End With
End Sub

お礼

ご回答どうもありがとうございました。

回答No.3

Wendy02

#1の回答者です。

一応、代わりの正規表現パターンも書いておくことにします。
Replace 関数で行うのも、どちらでもよいです。全角空白に関しては、可視化するために、文字コードにしておきました。

　.Pattern = "^(\D*)(\d+\_?\d+)([A-z]+)[\s\u3000]*\.xls"

お礼

どうもごていねいに、ご回答どうもありがとうございました。

回答No.2

okormazd

xをVBAのReplaceで、
x = Replace(x, " ", "")
x = Replace(x, "　", "")
としておけばいいが、
どうしてもRegEXPを使いたければ、

.Pattern = "^(\D*)(\d+\_?\d+)([a-z]*)((\s*)|　*).xls"

とでもするのかな。
|　*).は全角空白。
半角空白か、全角空白だけなら何個でもいいが、混在はだめだ。
1個なら大丈夫だろう。

お礼

その通り本質をみていませんでした。
ご回答どうもありがとうございました。