Delete lines in text file that dont end in .pdf

[05YamahaR1]

I would like to delete all lines in a .txt file that dont end with .pdf. I found but it's doing the opposite of what I'm trying to accomplish. It is deleting every line that ends with .pdf. What do I need to do to be able to delete every line that dont end with .pdf?

[PsaltyDS]

Read the whole file to an array with _FileReadToArray(). Then loop through the array using StringRight() to check the end of each line for ".pdf", and delete that element from the array if it's not there. Loop through the array in reverse to make it easier.

[Mallie99]

I would like to delete all lines in a .txt file that dont end with .pdf. I found but it's doing the opposite of what I'm trying to accomplish. It is deleting every line that ends with .pdf. What do I need to do to be able to delete every line that dont end with .pdf?

Are you familiar with Operators?

If True Then ...

If Not True Then ...

If A Then ...

If A Or B Then ...

If A And B Then ...

If A And Not B Then ...

The simplest way is to get a result, however you get that result, then examine it and see 1. is it the result you want and 2. how can you get the result better.

If you are seeing

If StringRight($InputLine, 4) = ".pdf" Then ...

Then the reverse will be

If Not StringRight($InputLine, 4) = ".pdf" Then ...

Or

If StringRight($InputLine, 4) <> ".pdf" Then ...

Mal

[GEOSoft]

Depending on the size of the file you are looking at this should do it.

$sFile = "SomeFile.txt"
$sText = FileRead($sFile)
$aHold = StringRegExp($sText, "(?m:^)(.+\.pdf)(?:\v|$)+", 3);; Get all the lines that end with .pdf
If UBound($aHold) > 0 Then
    $sHold = ""
    For $i = 0 To Ubound($aHold) -1
        $sHold &= $aHold[$i] & @CRLF
    Next
    $hFile = FileOpen($sFile, 2)
    FileWrite($hFile, StringStripWS($sHold, 2))
    FileClose($hFile)
EndIf

[05YamahaR1]

Depending on the size of the file you are looking at this should do it.

$sFile = "SomeFile.txt"
$sText = FileRead($sFile)
$aHold = StringRegExp($sText, "(?m:^)(.+\.pdf)(?:\v|$)+", 3);; Get all the lines that end with .pdf
If UBound($aHold) > 0 Then
    $sHold = ""
    For $i = 0 To Ubound($aHold) -1
        $sHold &= $aHold[$i] & @CRLF
    Next
    $hFile = FileOpen($sFile, 2)
    FileWrite($hFile, StringStripWS($sHold, 2))
    FileClose($hFile)
EndIf

Thank you George, it works perfect!

Also, thank you to everyone else that replied! I tried looking at the help file of what you suggested, but since I'm new to this it was just too foreign to me. However, I am looking at the wiki FAQs and tutorials so I can grasp this because this is way too cool!

Again, thank you guys!