Need some help with StringRegExpReplace

[autoitter]

Hi all,

I need some help with StringRegExpReplace. I'm a bit of a noob with regular expressions. I want to replace all @CR characters in a string with @CRLF, but only if the carriage return isn't followed by a linefeed already.

Have been playing around with StringRegExpReplace, but can't get it to work. Any ideas?

Thanks

Edited November 23, 2008 by autoitter

[toonboon]

you could first replace all @CR@LF with @CRLF and then replace all other remaining @CRs with @CRLF.

[martin]

Hi all,

I need some help with StringRegExpReplace. I'm a bit of a noob with regular expressions. I want to replace all @CR characters in a string with @CRLF, but only if the carriage return isn't followed by a linefeed already.

Have been playing around with StringRegExpReplace, but can't get it to work. Any ideas?

Thanks

@toonboon I think what you meant was replace all @CRLF with @CR then replace all @CR with @CRLF.

@ autoitter, this might do what you want

;if text is $t then $r will be the converted text.
$r = StringRegExpReplace($t,"\r([^\n])","\r\n\1")

Edited November 23, 2008 by martin

[autoitter]

you could first replace all @CR@LF with @CRLF and then replace all other remaining @CRs with @CRLF.

@CR@LF is actually the same as @CRLF. My problem is that some @CR characters are followed by a @LF. I only want to replace "loose" @CR's.

I was trying something like this:

$strReceived = StringRegExpReplace($strReceived, "(\r)(^\n)", @CRLF & "\1")

But this doesn't work...

[toonboon]

autoitter, then my idea works for you

$strReceived = StringRegExpReplace($strReceived, "@CR@LF", @CRLF)
$strReceived = StringRegExpReplace($strReceived, "@CR", @CRLF)

that way all @CR's followed by a @LF (and thus @CR@LF) will be replaced by @CRLF (the same) then you can change all loose @CR's to @CRLF's.

[autoitter]

Got it!

This is it:

$strReceived = StringRegExpReplace($strReceived, "\r([^\n])", @CRLF & "\1")

Thanks martin and toonboon!

[gruntydatsun]

I came up with something slightly different

$fixed = StringRegExpReplace($text,"(?m)\R{2,}",@CRLF)

it works without the ?m too

$fixed = StringRegExpReplace($text,"\R{2,}",@CRLF)

 

Edited January 19, 2018 by gruntydatsun
better answer

[iamtheky]

stringreplace(StringReplace($text , @CR , @CRLF) , @LF & @LF , @LF)