[[20171012221214]]　『先頭から1つ目のスペースについて。』（ヤイリ）　ページの最後に飛ぶ

『先頭から1つ目のスペースについて。』（ヤイリ）

お世話になります。
例えば、下記の文字列があったとします。

ジョンポールジョーンズ

こちらを、最初のスペースにマッチさせて

ジョン,ポールジョーンズ
のように分割させたいのですが

先頭から1つ目のスペースにマッチさせる
正規表現が分かる方いらっしゃいますか。
どうぞよろしくお願い致します。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 Pattern = "[ 　]"
（seiya） 2017/10/12(木) 22:24

 追記　22:32
 >ジョン,ポール ジョーンズ
 >のように分割させたいのですが
 Pattern = "(.+?)[ 　](.*)"
 これね。

コメントどうもありがとうございます。
下記のコードですと
実行結果で
tmp = "ジョンポールジョーンズ"の
文字列が消えてしまいます。

ジョンポールジョーンズのようなパターンを
ジョン,ポールジョーンズにしたいのですが・・・

書き方がおかしいと思いますが
分かりますでしょうか。
お手数を
おかけします。

Sub main()

Dim tmp As String

tmp = "ジョンポールジョーンズ"

  Debug.Print makematch(tmp)
End Sub

Function makematch(strIN As String) As String

Dim tmp As String

Dim re As RegExp
Set re = New RegExp
re.Global = True

tmp = UCase(strIN)

re.Pattern = "(.+?)[ 　](.*)" '先頭から1つ目のスペースにマッチ
tmp = re.Replace(tmp, ",")

makematch = tmp

End Function
（ヤイリ） 2017/10/12(木) 23:19

 tmp = re.Replace(tmp, "$1,$2")
（seiya） 2017/10/12(木) 23:25

ご提示どうもありがとうございます。
解決しました。
今後ともよろしくお願いします。
（ヤイリ） 2017/10/13(金) 09:49

コメント返信：