2 Textfiles miteinander vergleichen, wie?

[darth_mueller]

Hallo

ich stehe vor folgendem problem:

ICh habe 2 .txt files

das erste ist folgender maßen aufgebaut:

..............................filename1............

..............................filename2..............

..............................filename3..............

..............................filename4..............

usw....

das andere so:

filename2

filename4

usw....

jetzt möchte ich den filenamen aus datei 2 in datei1 finden, und die komplette Zeile, in der er vorkommt in eine neue Datei umleiten ( alternativ können auch alle, die die namen nicht enthalten gelöscht werden)

wie mach ich das am besten?

am liebsten wäre es mir mit irgendeiner anwendersoftware (open office o.ä.)

windows oder linux wäre auch egal, aber ich hab echt keinen blassen schimmer wie ich das machen soll

[InfoJunkie]

Die Punkte aus $Datei1 kannst Du ganz einfach löschen, indem Du mit einem Editor deiner Wahl einfach alle "." durch eine leere Zeichenkette ersetzen lässt. Also Suchen -> Ersetzen -> Suchen: . -> Ersetzen mit: [hier garnichts eintragen!]

Dann kommt für $Datei2 unter Linux das Tool diff (http://www.linux-user.de/ausgabe/2001/11/091-zubefehl/diff-1.html) zum Einsatz. Es vergleicht zwei Dateien und gibt die Unterschiede in eine weitere Datei aus.

HTH

[darth_mueller]

Die Punkte aus $Datei1 kannst Du ganz einfach löschen, indem Du mit einem Editor deiner Wahl einfach alle "." durch eine leere Zeichenkette ersetzen lässt. Also Suchen -> Ersetzen -> Suchen: . -> Ersetzen mit: [hier garnichts eintragen!]

es sind keine punkte, das steht irgendwas, das dann auch mit übernommen werden muss

aber ich bin grad dabei es mit visual basic zu lösen

[darth_mueller]

hier is der code:

Private Sub Command1_Click()

Dim zeile As String

Dim zeile2 As String

Open "c:\datei1.txt" For Input As #1

Open "c:\neuedatei.txt" For Output As #2

Open "c:\datei2.txt" For Input As #3

Do While Not EOF(1)

Line Input #1, zeile

Do While Not EOF(3)

Line Input #3, zeile2

If InStr(zeile, zeile2) <> 0 Then

Print #2, zeile

Loop

Close #3

Loop

Close #1

Close #2