は、文字列の数を特定し、交換する - VBA

Question

は私が: （コロンスペース）で、すべての:（コロン）を交換する必要があります。私はreplace関数を使ってこれを行うことができます。

description_string = Replace(currentSheet.Cells(i, j), ":", ": ") 

しかし、これは時間フォーマット（例えば、16:20）を置き換えます。私は私は、正規表現パターンとして

[a-zA-Z]:[a-zA-Z0-9] 

を用いて試みた前回値（例えば9:）

として番号を持つコロン:を識別する必要があります。問題は、これからどのようにコロンだけを置き換えるかということです。置換しようとすると、コロンの前後の文字全体が置換されます。

私は検索と置換しようとしたが、

abcdの日のような問題は文字列です：01/01/17 10時18のデス：

：XYZ

すべてのコロンに変更得ています

私が欲しいの出力は

ABCD日である：01/01/17 10時18分デ：XYZ

Answer 1

は

reg.Pattern = "(\D:)" ' non-digit followed by colon, as group $1 

\Dが非数字文字を指定する正規表現パターンを使用してみてください。 （\ D :)は、コロンが後に続く非数字の文字を指定します。かっこで括られたこのパターンは、後で置換すると$1と識別されます。キャプチャされた最初のグループであるためです。

次に、このように置き換える：

newString = reg.Replace(oldString, "$1 ") 'replace captured group by itself then space 

スペース続い自体にマッチグループ（$1）に置き換えます（このような）パターンで唯一のグループの場合には"$1 "

代替かっこを削除し、キャプチャしたグループを（$+）と指定することができます。

reg.Pattern = "\D:" ' non-digit followed by colon, as the only group ($+) 
newString = reg.Replace(oldString, "$+ ") 

---

Sub Example() 
    Dim reg As New RegExp: reg.Global = True: reg.Pattern = "(\D:)" 
    Dim oldString As String: oldString = "abcd Date:01/01/17 10:18 Des:xyz" 
    Dim newString As String: newString = reg.Replace(oldString, "$1 ") 
    Debug.Print newString 
End Sub 

abcd Date: 01/01/17 10:18 Des: xyz