This script to edit a text file is driving me crazy!

[brodie28]

Thanks mate, works perfectly.

Sorry for the double post.

Edited July 21, 2006 by brodie28

[brodie28]

Thanks mate, works perfectly.

[SmOke_N]

Could that be changed so that it does not delete lines that are only spaces?

I added a StringIsSpace if statement but it didn't work.

Have you ever seen a StringIsSpace statement before? I haven't ...

#include <File.au3>
Local $sFilePath = @ScriptDir & '\locals.txt'
Local $nArray = '', $sStore
If Not _FileReadToArray($sFilePath, $nArray) Then MsgBox(64, 'Info:', 'Error reading File')
For $iCount = 1 To UBound($nArray) - 1
    If StringInStr($nArray[$iCount], 'Civilian') Or _
        StringInStr($nArray[$iCount], 'Thug') Or _
        StringStripWS($nArray[$iCount], 8) = '' Then
        $sStore &= $nArray[$iCount] & @CRLF
    EndIf
Next

$hOpen = FileOpen($sFilePath, 2)
FileWrite($hOpen, $sStore)
FileClose($hOpen)

[jvanegmond]

If you run a string that contains only " " (whitespaces) this may work:

StringRegExp($StringToCheck," *")

Untested.

[MHz]

If you run a string that contains only " " (whitespaces) this may work:

StringRegExp($StringToCheck," *")

Untested.

Read up on white space. Carriage Returns, Line Feeds, Horizontal Tabs, Vertical Tabs....

[jvanegmond]

I just did, lol. It's worth a shot.

Edit: Whitespace isn't cr, lf, or tabs.. from memory, \S is useless.

Edited July 21, 2006 by Manadar