Delete blank Lines With a space in a text file

[TecGuy]

Ok I'm stumped. I have been trying to delete 3 blank lines at the top of my text file.

Each line has one space in it. Here is the code i have so far

Global $s_infile = "C:\Config.Msi\Backup\log\Test11.txt"
Global $s_outfile = "C:\Config.Msi\Backup\log\Test11.txt"
Global $s_string = FileRead($s_infile)
StringRegExpReplace($s_string, "([:space:]\v{3,}", "")
Global $h_open = FileOpen($s_outfile, 2)
FileWrite($h_open, $s_string)
FileClose($h_open)

Your help would be greatly appreciated

[Jos]

You are not saving the result of StringRegExpReplace() and write the original string to the output file.

Jos

[TecGuy]

Ok I changed it to the following but still doesnt work

Global $s_infile = "C:\Config.Msi\Backup\log\Test11.txt"
Global $s_outfile = "C:\Config.Msi\Backup\log\Test11.txt"
Global $s_string = FileRead($s_infile)
$s_string = StringRegExpReplace($s_string, "([:space:]\v{3,}", "")
Global $h_open = FileOpen($s_outfile, 2)
FileWrite($h_open, $s_string)
FileClose($h_open)

[Jos]

Your regex gave a @error = 2. Try:

$s_string = StringRegExpReplace($s_string, "(\s\r\n){0,3}", "")

[GEOSoft]

$sStr = "This is some string" & @CRLF & @CRLF
$sStr &= "Which was followed by an empty line" & @CRLF & @CRLF & " " & @CRLF
$sStr &= "And line containing only a string."

$sHold = $sStr & @CRLF & @CRLF

$sStr = StringRegExpReplace($sStr, "\h+\v+", "")

$sHold &= $sStr

MsgBox(0, "Result", $sHold)

EDIT: Solved a case-sensitivity issue and removed the note about it. This should be fine as is.

EDIT 2:

Of course after re-reading your problem, Jos and I both missed the obvious since you did mention they were only at the beginning of the file.

$sStr = StringStripWS($sStr, 1)

Edited May 1, 2010 by GEOSoft

[TecGuy]

Thank you both for your help, I did not see the latest reply until today.

I apologize for the late reply,

This is what I emplimented:

The first string removes the string statement removes some blank lines ( and i did find they are through out)

Then Next 2 to StringRight lines removes any trailing lines and moves the carrage return to the end of the last sentence.

My issues is that i have to run it 4 times to remove all the blank lines. I would like to cleanup this code some to make it better.

I would really like it to test for more blank lines and run until no more exist. I would appreciate any help you could give.

Below is my feable attempt:

Func _BlankS()
    Global $s_infile = "C:\test1.txt"
    Global $s_outfile = "C:\test1.txt"
    Global $s_string = FileRead($s_infile)
    $s_string = StringRegExpReplace($s_string, "(\s\r\n){0,3}", "")
    If StringRight($s_string, 1) = @LF Then $s_string = StringTrimRight($s_string, 1)
    If StringRight($s_string, 1) = @CR Then $s_string = StringTrimRight($s_string, 1)
    Global $h_open = FileOpen($s_outfile, 2)
    FileWrite($h_open, $s_string)
    FileClose($h_open)
    Sleep(3000)
    Global $s_string = FileRead($s_infile)
    $x = 1
;~ MsgBox(0, "String", $s_string)
    Do
        $s_string = StringRegExpReplace($s_string, "(\s\r\n){0,3}", "")
        Global $h_open = FileOpen($s_outfile, 2)
        FileWrite($h_open, $s_string)
        FileClose($h_open)
;~ MsgBox(0, "String", @Error)
        Global $s_string = FileRead($s_infile)
;~ MsgBox(0, "String", $s_string)
        $x += 1
    Until $x = 3
    Return 1
EndFunc   ;==>_BlankS