Batch file regel verwijderen uit een tekstbestand met een match uit andere bestand

[Woordvoerder]

Hallo,

ik heb 2 tekst bestanden.

lijst1.txt bevat:

C:\Program Files\Folder1\enter
C:\Program Files\Folder1\numbers.txt
C:\Program Files\Folder1\files.jpg
C:\Program Files\Folder1\movies.jpg

lijst2.txt bevat:

enter
numbers.txt
files.jpg

De bedoeling is dat lijst1.txt zich vergelijkt met lijst2.txt en wat niet overeenkomt zich opslaat in een nieuwe lijst3.txt bestand met de locatie van het bestand.

dus de uitkomst van lijst3.txt moet zijn:

C:\Program Files\Folder1\movies.jpg

 

[edmoor]

Dat kan met dit Visual Basic Script:

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile1 = objFSO.OpenTextFile("C:\Users\Woordvoerder\lijst1.txt", ForReading)
Set objFile2 = objFSO.OpenTextFile("C:\Users\Woordvoerder\lijst2.txt", ForReading)

txtLijst2 = objFile2.ReadAll

Do Until objFile1.AtEndOfStream
    strAddress = objFile1.ReadLine
    Itm = Split(strAddress, "\")

    If Ubound(Itm) > -1 Then
        Pad = ""
        For i = 0 to Ubound(Itm)-1
            Pad = Pad & Itm(i) & "\"
        Next
        strAddress = Itm(Ubound(Itm))
        If InStr(txtLijst2, strAddress) = 0 Then
            strNotFound = strNotFound & Pad & strAddress & vbCrLf
        End If
    End If
Loop

objFile1.Close
objFile2.Close

Set objFile3 = objFSO.CreateTextFile("C:\Users\Woordvoerder\lijst3.txt")
objFile3.WriteLine strNotFound
objFile3.Close

Plak deze code in een nieuw tekstbestand die je daarna wijzigt van naam inclusief de extensie.
Dus van Nieuw tekstdocument.txt naar bijvoorbeeld Vergelijk.vbs
Die extensie .vbs is belangrijk. Daarna kan je dubbelklikken op het bestand om deze uit te voeren.

Wel even de in de code gebruikte padnamen naar wens aanpassen.