正規表現で先頭から続く文字0を空白へ置換した値を求める。

Question

正規表現(VBScript.RegExp)のを使って先頭から続く文字0を空白へ置換した値を求たいと思っています。
例:値　　　 回答
1000000 --> 1000000
1111100 --> 1111100
0001234 --> 1234
0001230 --> 1230
0120012 --> 120012
9000000 --> 9000000
※末尾の桁位置を合わせる。

試した事。
Dim re As RegExp
re.Pattern = "0"
Target = "0001203"
MyStr = re.Replace(Target, Space(1))
MyStr --> 12 3
以上、宜しくお願い致します。

Comments

[hidezzz]

"0000000"を与えられたら、"□□□□□□□"(すべて空白に置き換わる)になる想定ですか？それとも"□□□□□□0"(最後の0は残る)ですか？

[ad.sys.soleil]

□□□□□□0がベストです。

Answer 1

正規表現を使わない場合の一例

'7桁固定の場合
Target = "0001203"
Debug.Print Format(Val(Target),"@@@@@@@") 

'桁数可変で元の桁数に合わせる場合
Target = "00001203"
Debug.Print Format(Val(Target),String(Len(Target),"@"))

'"00000000"の場合は、"       0" となる。
Target = "00000000"
Debug.Print Format(Val(Target),String(Len(Target),"@"))

Comments

[ttyp03]

空白で埋めるのには@があったんですね。
ちょうど見たページにはなかったので出来ないのかと思いました。

[ad.sys.soleil]

有難う御座います。参考になりました。

[hatena19]

正規表現も便利なんですが、関数にして繰り返し呼び出すとき、RegExpオブジェクトも繰り返し生成破棄することになり、重くなりがちですので、私はできるかぎりVBAネイティブでするようにしてます。

Answer 2

正規表現使わないとダメでしょうか。

以下のコードでも同様の結果は得られます。

' 7桁固定で良いなら
MyStr = Right("       " & Val(Target), 7)

' Targetの文字数で処理する場合
MyStr = Right(String(Len(Target), " ") & Val(Target), Len(Target))

---

正規表現を使った場合も書いておきます。
あまり詳しくはないので2段階になってしまいましたが、たぶんこんな感じじゃないかと思います。

Dim re As RegExp
Dim mc As MatchCollection

Target = "0001203"
Set re = New RegExp
re.Pattern = "^0*"
Set mc = re.Execute(Target)
'MyStr = re.Replace(Target, String(Len(mc.Item(0)), " "))
MyStr = re.Replace(Target, String(mc.Item(0).Length, " "))
    
Debug.Print MyStr

Comments

[ad.sys.soleil]

有難う御座います。
なるほどアイディアは在るものですね使わせて頂きます。
勉学のため正規表現の方法もあれば、知りたいので回答継続して募集したいと思います。

[ad.sys.soleil]

有難う御座います。
なるほどString(Len(mc.Item(0)), " ")が素晴らしいです。Good!
正規表現^0*部分のパターン検索文字列で凄いものの方も期待してCloseは保留して起きます。

[ttyp03]

ちょっとだけ修正しました。
プロパティとして文字列の長さを持っていたので、わざわざLenする必要はなかったです。

個人的な見解ですが、おそらく一発で置換はできないと思います。
置換したい文字列の長さと言うのは、検索してみないとわからないものなので、Replaceのタイミングで指定することはできないからです。
もしかしたら凄腕の方が現れるかもしれませんので、待ってみる価値はあるかもしれませんが。

Answer 3

Set re = CreateObject("VBscript.RegExp")
re.Pattern = "^0+"
Target = "0001203"
myStr = re.Replace(Target, String(Len(re.Execute(Target)(0).Value), "x"))
MsgBox myStr

Comments

[ad.sys.soleil]

有難う御座います。大変参考になりました。

Answer 4

正規表現チェッカー

イメージ画像

正規表現を使うならこのサイトはご存知ですか？

VBAのことは分かりませんが正規表現^0*で先頭の0を全て検知出来ます。
あとはそれを利用した何かしらの実装をすれば良いかと。
1例として空白10文字の文字列に上記の結果を足して後ろから10文字取得すれば空白で埋められたものが作れます。

Comments

[ad.sys.soleil]

有難う御座います。
^0*で遣りましたが、0001230を変換すると
□1230となり□□□1230になりませんでした。(□は空白の意味)

[mjk]

そこはご自分で考えてください。
１．1230より前の空白を消すという正規表現の使い方と
２．1230の前を空白で埋めるという（VBAの）実装
の１の部分のみヒントになればと思い回答しました。

[ad.sys.soleil]

有難う御座います。実は^0*は質問前に試していました。
(?=0)の先読みも遣ったのですが、上手く行かず質問とさせて頂きました。
説明不足で申し訳け御座いませんでした。

[mjk]

いえいえ。正規表現のみで変換までするとなると私は分かりません。良い回答がつくと良いですね。