VBA zwei txt.Dateien, Datensätze anhand von Suchkriterien lokalisieren , Datensätze bearbeiten

Guten Tag,

könntet ihr mir bitte helfen, bin ein VBA-Anfänger, habe zwar schon einiges gemacht allerdings nur mit xls. Dateien. Bei dieser Aufgabe habe ich 2 .txt-Dateien diese sehen wie folgt aus:

Datei 1:

<Titel>
<ID>657</ID>
<Artist>ABBA</Artist>
<Album>ABBA Gold</Album>
<Path>C:/Music/money.mp3/Abba/Abba Gold/</Path>
<Info>...</Info>
</Titel>

<Titel>
<ID>111</ID>
<Artist>ABBA</Artist>
<Album>ABBA Gold</Album>
<Path>C:/Music/Abba/Abba Gold/Waterloo.mp3</Path>
<Rating>5</Rating>
<Info>...</Info>
</Titel>

<Titel>
<ID>012</ID>
<Artist>ABBA</Artist>
<Album>ABBA Gold</Album>
<Path>C:/Music/Abba/Mama Mia.mp3/Abba Gold</Path>
<Rating>4</Rating>
<Info>...</Info>
</Titel>


Datei 2:

<Titel>
<ID>555</ID>
<Artist>ABBA</Artist>
<Album>ABBA Gold</Album>
<Path>C:/Music/Abba/Abba Gold/Mama Mia.mp3</Path>
<Rating>3</Rating>
<Info>...</Info>
</Titel>

<Titel>
<ID>560</ID>
<Artist>ABBA</Artist>
<Album>ABBA Gold</Album>
<Path>C:/Music/Abba/Abba Gold/Waterloo.mp3</Path>
<Info>...</Info>
</Titel>

<Titel>
<ID>570</ID>
<Artist>ABBA</Artist>
<Album>ABBA Gold</Album>
<Path>C:/Music/Abba/Abba Gold/money.mp3</Path>
<Rating>3</Rating>
<Info>...</Info>
</Titel>


Die Aufgabe hierzu ist wie folgt. Wie ihr seht gibt es in diesen Txt. Dateien jeweils 3 Datensätze. Ein Datensatz beginnt immer mit <Titel> und endet mit </Titel> und besteht aus Artist, Album, Pfad, Rating und Info. Das Rating aus Datei1 soll in Datei2 übernommen werden.

D.h. der Programmablauf sollte in etwa so aussehen: Erstelle Datei3 (leere txt.Datei). Kopiere ersten Datensatz (<Titel>...</Titel> aus Datei2 und Suche den selben Datensatz anhand von "Artist", "Album" und "/*.mp3" (in Path) in Datei1. Ersetze Rating in dem Datensatz von Datei2 der dem Datensatz von Datei1 entspricht, das ganze steht dann korrekt in Datei3.

wenn das Rating in Datei 1 nicht vorhanden ist soll es auch in Datei3 nicht vorhanden sein.


Könnt ihr mir bitte helfen.


Grüße

Phoboz

Set regEx = CreateObject("VBScript.RegExp")

Set regEx = New RegExp

Sub TraRating

Dim Datei1 As String
Dim Datei2 As String
Dim TXT1 As String
Dim TXT2 As String
Dim fs

MsgBox "Bitte wählen Sie die erste txt.Datei aus."  
Datei1 = Application.GetOpenFilename _
("Micrsoft Text-Dateien (*.txt),*.txt")  
      
MsgBox "Bitte wählen Sie die zweite txt.Datei aus."  
Datei2 = Application.GetOpenFilename _
("Micrsoft Text-Dateien (*.txt),*.txt")  

Set fs = CreateObject("Scripting.FileSystemObject")  
               
Set OpenDatei1 = fs.OpenTextFile(Datei1, 1)
TXT1 = Split(OpenDatei1.ReadAll, vbCrLf)
OpenDatei1.Close

Set OpenDatei2 = fs.OpenTextFile(Datei2, 1)
TXT2 = Split(OpenDatei2.ReadAll, vbCrLf)
OpenDatei2.Close
      
End Sub

Sub TraRating()

Dim Datei1
Dim Datei2
Dim Datei3

Dim txt

Dim fso

MsgBox "Bitte wählen Sie die erste txt.Datei aus."  
Datei1 = Application.GetOpenFilename _
("Micrsoft Text-Dateien (*.txt),*.txt")  
      
MsgBox "Bitte wählen Sie die zweite txt.Datei aus."  
Datei2 = Application.GetOpenFilename _
("Micrsoft Text-Dateien (*.txt),*.txt")  

Open Datei1 For Input As #1
Open Datei2 For Input As #2

Set fso = CreateObject("Scripting.FileSystemObject")  
    Set Datei3 = fso.CreateTextFile("M:\Datei3.txt", True)  

i = 1
    Do While Not EOF(2)
        Line Input #2, txt
        Datei3.WriteLine (txt)
        i = i + 1
    Loop
Close #2
Close #1

End Sub