[RESOLVED] Regexp

[lvdb]

Hello,

This is the code:

String ": this the first "
String "this is 7777 7777 7777 7777"

If Not aline.StartsWith(":") Then

Dim pattern2 As String = "[0-9]{4}\s[0-9]{4}\s[0-9]{4}\s[0-9]{4}"
Dim rg2 As Regex = New Regex(pattern2)
If Regex.IsMatch(aline, pattern2) Then
aline = Regex.Replace(aline, pattern2, "REPLACE")
End If

End If
wr.WriteLine(aline)
What is the regex to delete the space between: 7777 7777 7777 7777
Thank you in advance for your reply.

Leo

[.paul.]

try this:

Dim testStr As String = "this is 7777 7777 7777 7777"
 
Dim rx As New Regex("[0-9]{4}\s[0-9]{4}\s[0-9]{4}\s[0-9]{4}")
MsgBox(Regex.Replace(rx.Match(testStr).Value, " ", ""))

[lvdb]

Hi Paul,

It works, thank you.

Regards,

Leo