TequillaSun
Grünschnabel
Hallo liebe Gemeinde,
verzeiht mir wenn ich eine schon so oft gestellte Frage nochmals stelle, doch mir stellt sich folgendes Problem:
Ich habe zwei Textdateien | Inhalt.txt und Entfernen.txt.
Aus diesen beiden Textdateien sollen jeweils alle Zeilen gelesen werden und bei ungleichheit in eine dritte Datei geschrieben werden. Ich hoffe, es ist bis hier hin verständlich was ich machen möchte.
Nehmen wir an Inhalt.txt enthält zunächst zwei Zeilen mit folgendem Schema:
Und in der Entfernen.txt befindet sich dann die Zeile:
So soll in der dritten Textdatei Ausgabe.txt einfach nur:
stehen.
Bisher löse ich es mit zwei Arrays die alle Zeilen einer Textdatei enthalten:
Erstes Problem:
Die Zeilen in der Zieldatei sehen so aus:
Zweites Problem:
Man sieht, dass die Zeilen noch immer vorhanden, also nicht wie gewünscht entfernt worden sind.
-------------------------------------------------
Ich hoffe ich konnte mein Problem gut Schildern. Wie im Titel genannt, handelt sich es um ein VBScript. Falls noch Fragen offen sind: Bitte stellen, ich versche sie zu beantworten.
Grüße
Patrick
verzeiht mir wenn ich eine schon so oft gestellte Frage nochmals stelle, doch mir stellt sich folgendes Problem:
Ich habe zwei Textdateien | Inhalt.txt und Entfernen.txt.
Aus diesen beiden Textdateien sollen jeweils alle Zeilen gelesen werden und bei ungleichheit in eine dritte Datei geschrieben werden. Ich hoffe, es ist bis hier hin verständlich was ich machen möchte.
Nehmen wir an Inhalt.txt enthält zunächst zwei Zeilen mit folgendem Schema:
Code:
Hallo
Test
ist
gelöscht
worden
Und in der Entfernen.txt befindet sich dann die Zeile:
Code:
Hallo
Test
So soll in der dritten Textdatei Ausgabe.txt einfach nur:
Code:
ist
gelöscht
worden
Bisher löse ich es mit zwei Arrays die alle Zeilen einer Textdatei enthalten:
Code:
Const ForReading=1, ForWriting=2, ForAppending=8
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objInhalt = objFSO.OpenTextFile(C:\Inhalt.txt,1)
strInhalt= objDuplicateFree.readAll
aInhalt = Split(strInhalt,vbCrLf)
.....
'selbiges auch mit der Entfernen.txt
.....
For each Inhalt in aInhalt
For Each Eintrag in aEntfernen
If Inhalt <> Eintrag Then
set objZiel=objFSO.OpenTextFile("C:\Ziel.txt", ForAppending, true)
objZiel.WriteLine Inhalt
objZiel.Close
End If
Next
Next
Erstes Problem:
Die Zeilen in der Zieldatei sehen so aus:
Code:
Hallo
Test
ist
ist
gelöscht
gelöscht
worden
worden
Zweites Problem:
Man sieht, dass die Zeilen noch immer vorhanden, also nicht wie gewünscht entfernt worden sind.
-------------------------------------------------
Ich hoffe ich konnte mein Problem gut Schildern. Wie im Titel genannt, handelt sich es um ein VBScript. Falls noch Fragen offen sind: Bitte stellen, ich versche sie zu beantworten.
Grüße
Patrick