Help needed with RegExp Replace

[p13rameshk]

hi all,

I am facing trouble constructing a regexp replace function.

For example,
current string: "I need help", he replied.
characters to be replaced: "I need help", (including the quotations and the comma)
final string expected: he replied.

Th regexp I am trying to use is ".+",

My code looks like:

Sub RegEx_Tester()
Set RegExp = CreateObject("vbscript.regexp")
RegExp.Global = True
RegExp.IgnoreCase = False
RegExp.Pattern = "".+","

I am getting the Expected: end of statement error.

Please help me resolve this. I have enabled RedExp in tools--> References

Thanks,
RK

 

[Fennek]

Hi,

is it always the text from the beginnig to the ","?

regards

 

[p13rameshk]

Hi,

is it always the text from the beginnig to the ","?

regards

No. There could be other stuff before the starting "; it always ends with ", though.

 

[Fennek]

Hi,

just a guess (without test)

.Pattern = """.+"","

New = oldStr.Replace("")

Maybe later I will boot the pc

regards

 

[p13rameshk]

Hi,

just a guess (without test)

.Pattern = """.+"","

New = oldStr.Replace("")

Maybe later I will boot the pc

regards

This works!Thank you so much.

 

[Fennek]

Hi,

now it is tested

Sub Fen()
Tx = Cells(1, 1) 'content: qwe "A Text", gfd
With CreateObject("vbscript.Regexp")
.Pattern = """.+"","
T = .test(Tx)
Tn = .Replace(Tx, "")
Debug.Print T, Tn
End With
End Sub
8Sub Fen()
Tx = Cells(1, 1) 'content: qwe "A Text", gfd
With CreateObject("vbscript.Regexp")
.Pattern = """.+"","
T = .test(Tx)
Tn = .Replace(Tx, "")
Debug.Print T, Tn
End With
End Sub

regards