Delete part of text file

[jerem488]

Hello

I have a text file with numbers on each line.

But whenever I have a series of 4 lines related, like this :

1) 32 44 89 134 78
2) 87 45 66 11 22
3) 32O 34 98 14 38
4) 29 55 71 99 39

And if one of the 4 lines containing "SK", we remove 4 lines.

THanks

Edited July 21, 2009 by jerem488

[PsaltyDS]

Hello

I have a text file with numbers on each line.

But whenever I have a series of 4 lines related, like this :

1) 32 44 89 134 78
2) 87 45 66 11 22
3) 32O 34 98 14 38
4) 29 55 71 99 39

And if one of the 4 lines containing "SK", we remove 4 lines.

THanks

What?

Is there a question in there...?

[jerem488]

How to remove these 4 lines if one of them contain "SK" ?

[PsaltyDS]

How to remove these 4 lines if one of them contain "SK" ?

You can't delete data in the middle of the file without rewriting the file from that point to the end. The easiest way would be _FileReadToArray(), edit the array as required (i.e. with _ArrayDelete()), then _FileWriteFromArray(). Or you could read the whole file into a string variable, manipulate that, then overwrite it back.

[bogQ]

this can help

FileReadLine()

StringInStr()

_FileWriteToLine()

_FileWriteToLine($sFile, $iLine, $sText[, $fOverWrite = 0])

Remarks

If _FileWriteToLine is called with $fOverWrite as 1 and $sText as "", it will delete the line

[jerem488]

yes but if it's the fourth line that contains "SK", how to remove the previous 3 lines ???

[bogQ]

_FileWriteToLine($sFile, $iLine-1, "", 1)

_FileWriteToLine($sFile, $iLine-2, "", 1)

_FileWriteToLine($sFile, $iLine-3, "", 1)

edit youl only need to call -3 three times or something like that, its same if you work with arrow i supose on its count

Itl b nice to see what way do you read the file so that anyone can help you, any codes?

Edited July 21, 2009 by bogQ

[PsaltyDS]

edit youl only need to call -3 three times or something like that, its same if you work with arrow i supose on its count

Itl b nice to see what way do you read the file so that anyone can help you, any codes?

Good catch. I had forgotten you could do that with _FileWriteToLine():

Remarks

If _FileWriteToLine is called with $fOverWrite as 1 and $sText as "", it will delete the line.

[jerem488]

I have a little problem.

the problem is the condition if the first line contain "SK" ??

Bacause if the first line contain "SK", the program don't must copy this line and 3 lines after this line.

I have this code :

$File = FileOpen("C:\File.txt", 0)

    If $File = -1 Then
        MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier.")
        Exit
    EndIf

    ; Read in lines of text until the EOF is reached
    While 1
        $line = FileReadLine($file)
        If @error = -1 Then ExitLoop
        If StringInStr($line,"2)") And StringInStr($line,"INC") Then
            $NombresLignes = _FileCountLines("c:\File2.txt")
            _FileWriteToLine("c:\File_2.txt", $NombresLignes-1, "", 1)
        ElseIf StringInStr($line,"3)") And StringInStr($line,"INC") Then
            _FileWriteToLine("c:\File2.txt", $NombresLignes-1, "", 1)
            _FileWriteToLine("c:\File2.txt", $NombresLignes-2, "", 1)
        Else
;~          If Not StringInStr($line,"1)") And StringInStr($line,"INC") Then
            FileWriteLine("C:\File2.txt", $line)
;~          EndIf
        EndIf
    Wend

    FileClose($file)

[somdcomputerguy]

Perhaps this is of assistance.. Autoit Wrappers - AutoIt Forums - Page 6

[bogQ]

if i understand correct you need something simulat to this

expandcollapse popup

#Include <File.au3>
Global $todelite = "",$z = 0

$File = FileOpen("test.txt", 0)
If $File = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier.")
    Exit
EndIf
$lines = _FileCountLines("test.txt")
For $x = 1 To $lines
    $line = FileReadLine($file,$x)
    If StringInStr($line,"sk") Then
        Select
            Case StringLeft($line,1) = "1"
                If $todelite = "" Then
                    $todelite = $x+3
                Else
                    $todelite = $todelite&";"&$x+3
                EndIf
                $z = $z+4
                _FileWriteToLine("test2.txt",$z-3,FileReadLine($file,$x+0), 1)
                _FileWriteToLine("test2.txt",$z-2,FileReadLine($file,$x+1), 1)
                _FileWriteToLine("test2.txt",$z-1,FileReadLine($file,$x+2), 1)
                _FileWriteToLine("test2.txt",$z-0,FileReadLine($file,$x+3), 1)
            Case StringLeft($line,1) = "2"
                If $todelite = "" Then
                    $todelite = $x+2
                Else
                    $todelite = $todelite&";"&$x+2
                EndIf
            Case StringLeft($line,1) = "3"
                If $todelite = "" Then
                    $todelite = $x+1
                Else
                    $todelite = $todelite&";"&$x+1
                EndIf
            Case StringLeft($line,1) = "4"
                If $todelite = "" Then
                    $todelite = $x
                Else
                    $todelite = $todelite&";"&$x
                EndIf
        EndSelect
    EndIf
Next
FileClose($file)

MsgBox(0,"This lines i need to delite",$todelite)

$delite = StringSplit($todelite,";")
If IsArray($delite) Then
    For $y = $delite[0] To 1 Step -1
        _FileWriteToLine("test.txt", $delite[$y]-3, "", 1)
        _FileWriteToLine("test.txt", $delite[$y]-3, "", 1)
        _FileWriteToLine("test.txt", $delite[$y]-3, "", 1)
        _FileWriteToLine("test.txt", $delite[$y]-3, "", 1)
    Next
EndIf

test.txt file for testing

1) 01 0 0 0 0

2) 02 0 0 0 0

3) 03 0 0 0 0

4) 04 0 0 0 0

1) 05 0 0 0 0

2) 06 0 0 0 0

3) 07 0 0 0 0

4) 08 0 0 0 0

1) 09 0 0 0 0

2) 10 0 0 0 0

3) 11 0 0 0 0

4) 12 0 0 0 0

1) 13 0 0 0 sk

2) 14 0 0 0 0

3) 15 0 0 0 0

4) 16 0 0 0 0

1) 17 0 0 0 0

2) 18 0 0 0 0

3) 19 0 0 0 0

4) 20 0 0 0 0

1) 21 0 0 0 0

2) 22 0 0 0 0

3) 23 0 0 0 0

4) 24 0 0 0 0

1) 25 0 0 0 0

2) 26 0 0 0 sk

3) 27 0 0 0 0

4) 28 0 0 0 0

1) 29 0 0 0 sk

2) 30 0 0 0 0

3) 31 0 0 0 0

4) 32 0 0 0 0

1) 33 0 0 0 0

2) 34 0 0 0 sk

3) 35 0 0 0 0

4) 36 0 0 0 0

dont forget to create test2.txt for output from lines that are with "1)" and have "sk" on them when testing

[GEOSoft]

If I understand you properly, if any of the lines contains SK, you want to delete all of the files contents.

If StringInString(FileRead("somefile.txt"), "SK") Then
    $hFile = FileOpen("somefile.txt", 2)
    FileClose($hFile)
EndIf