Regexp Replace LF with CRLF if line on has an LF

[gruntydatsun]

I'm having trouble with this regex.

I need to take a string that I'm StdOutRead ing from the output of plink.exe:

$PID1 = Run(@ComSpec & " /c " & 'plink.exe ' & $server & ' -v -l ' & $un & ' -pw ' & $pw & ' ' & $app & ' ' & $from & ' ' & $to & ' bps ' & $refnum , "", @SW_HIDE,$STDIN_CHILD + $STDERR_MERGED)
    local $line, $text
    While 1
        Sleep(100)
        $line = StdoutRead($PID1)           ;read contents of STDOUT into $line
        if @error Then ExitLoop             ;if read fails, its the end of the list
        $text &= $line
        $text = StringRegExpReplace($text,"\H\n$",@CRLF)
        GUICtrlSetData($ed_Progress,$text)
    WEnd
    filewrite("C:\outputfile.txt",$text)
    msgbox(1,"TEXT",$text)

If a line of the results has an LF at the end i need to replace it with a CRLF

if it has a CRLF i do nothing.

Simple right, not for some of us apparently.

i tried this:

$temp = StringRegExpReplace($text,"(H)n$",'$1' & @CRLF)    FAIL

i tried this:

$text = StringRegExpReplace($text,"Hn$",@CRLF)  

works on some most lines, not on some and truncates the last char on a few lines.

 

I wonder how many clock tower gunmen got their start with an regex problem they couldn't figure out?

[gruntydatsun]

Here's more details to help:

the plink session is running a shell script on a linux box.

the below file is variable $text saved out to a file on my windows box using file write.

outputfile.txt

Edited October 30, 2013 by gruntydatsun

[czardas]

Try this, I'm no expert but it seems to work.

;

Local $sString = @LF & "1" & @LF & @LF & "abc" & @CRLF & "3"
$sString = StringRegExpReplace($sString, "(.?)(\n)", "$1" & @CRLF)

[mikell]

An other way, replace any trailing vertical white(s) space(s) by @crlf

Local $sString = "0" & @LF & "1" & @LF & "2" & @LF & "abc" & @CRLF & "3"
$sString = StringRegExpReplace($sString, "\v*$", @CRLF)
msgbox(0,"", $sString)

[czardas]

Yeah, that will replace vertical tab too Chr(11). I'm not exactly sure which characters are in this group. Nice example though.

Edited October 30, 2013 by czardas

[gruntydatsun]

thanks for the help.

you can see which whitespace characters are in the data file by opening it in notepad++ and select view > show symbol > show all characters

[guinness]

Check the beta it discusses what is including.

[Melba23]

gruntydatsun,

I have been using this pattern to force @CRLF line endings for some time:

$sText = StringRegExpReplace($sText, "((?<!\x0d)\x0a|\x0d(?!\x0a))", @CRLF)

It looks for (@LF not preceded by @CR) or (@CR not followed by @LF) and replaces them with @CRLF.

M23

[jchd]

You rather be cautious with lone LFs and regexps: release AutoIt used lone LF as the default newline convention, but beta (which will be released anytime soon) now uses a wider setting (*ANYCRLF).

If you expect your code to work correctly with both versions, you have to be precise about what you want replaced. BTW, you ought to always be as restrictive as possible in your patterns.

Here you aim at any LF not precedeed by a CR; that seems to specify exactly what you want to select. So why not translate that verbatim with a look-behind?

LF is "n" and looking behind for a CR is "(?<!r)n".

EDIT: Melba has a turbojet keyboard.

Edited October 30, 2013 by jchd