Zwei Dateien per Batch zusammenfügen

Hallo zusammen!

Ich stehe vor folgendem Problem:
Aus einem Programm erhalte ich zwei Logdateien. In der einen Datei steht, welcher User wann eine Änderung durchgeführt hat und in der anderen, welche Änderung es war. Ich würde nun gern beide Dateien zusammenführen, man sucht sich sonst einfach dumm und dämlich.

Datei 1 sieht folgendermaßen aus:

In den ersten beiden Zeilen steht, wann die Logdatei erstellt wurde. Wichtig wird es aber Zeile 3. Es gehören immer zwei Zeilen zusammen. In Zeile 3 stehen Datum und Uhrzeit, in Zeile 4 der angemeldete User und der Verweis, welche Zeilen in der zweiten Datei zu dieser Änderungen gehören. Gleiches für Zeile 5+6, 7+8 usw.

Die Datei 2 enthält jetzt nur die geänderten Werte, getrennt durch eine Leerzeile.

Ich möchte nun eine Ausgabe, die in etwa so aussehen soll:

Datei 1 hat die Endung .alg, Datei 2 die Endung .atx. Im Endeffekt sind es aber Textdateien, die normal mit dem Editor geöffnet werden können. Ein Umbenennen in .txt wäre kein Problem.

Ist das mit Batchdateien überhaupt möglich? Oder brauche ich dafür was ganz anderes?

Danke schon mal für Eure Hilfe!


Viele Grüße
Ines

ALG = "Datei1.alg"  
ATX = "Datei1.atx"  
LG = "Datei1.log"  
Header = 2 'Anzahl Koopfzeilen  

Set fso = CreateObject("Scripting.FileSystemObject")  

set rE = New RegExp
rE.Pattern = ".*\[ .+ \].+\[ (\d+) \].+\[ (\d+) \]"  
rE.Global = True

ALGZ = Split(fso.OpenTextFile(ALG).ReadAll, vbNewline)
ATXZ = Split(fso.OpenTextFile(ATX).ReadAll, vbNewLine)

For i = 0 To UBound(ALGZ)
    LOGZ = LOGZ & vbNewline & ALGZ(i)
    If i >= Header And Left(ALGZ(i), 1) <> "[" Then  
        Set Matches = rE.Execute(ALGZ(i))
        If Matches(0).SubMatches.Count = 2 Then
            Von = Matches(0).SubMatches(0)
            Anzahl = Matches(0).SubMatches(1)
            WScript.Echo Von, Anzahl
            For j = 0 To Anzahl - 1
                LOGZ = LOGZ & vbNewline & ATXZ(Von + j)
            Next
        Else
            WScript.Echo "Fehler in Zeile " & i  + 1 & " !"  
            WScript.Quit 1
        End If
    End If
Next

fso.CreateTextFile(LG).Write Mid(LogZ, 3)

$file1 = gc "C:\datei1.alg"  
$file2 = gc "C:\datei2.atx"  
$fileMerged = "C:\merged.txt"  

$newContent = ""  
foreach($row in $file1){
    if ($row -match "^Log Updates From"){  
        $regex = [regex] "\[ (\d+) \]"  
        $matches = $regex.Matches($row)
        [int]$start =  $matches.Groups[1].Value
        [int]$len = $matches[1].Groups[1].Value
        $newContent += $row + "`r`n"  
        for ($i = $start-1;$i -lt ($start-1+$len);$i++){
            $newContent += $file2[$i] + "`r`n"  
        }
        $newContent += "`r`n"  
    }else{
        $newContent += $row + "`r`n"  
    }
}
$newContent | out-File $fileMerged

For i = 0 to UBound(ALGZ)-1

[Wed Feb 19 20:22:42 2014]
Create Spreadsheet Update Log
[Thu Feb 20 09:44:11 2014]
Log Updates From User [ User1 ] Starting At Row [ 1 ] For A Total Of [ 4 ] Rows
"P1" "P7" "Produkt"   
"Kto1" "Konto" "Kto2"   

"GJ" "M" "M12"   
[Thu Feb 20 09:46:14 2014] 
Log Updates From User [ User1 ] Starting At Row [ 5 ] For A Total Of [ 2 ] Rows 
"Kto1" "Kto3" "Kto4" "Kto5"   

For j = -1 To Anzahl - 1

If Trim(ALGZ(i)) <> "" Then

LOGZ = LOGZ & vbNewline & ATXZ(Von + j - 1)

LOGZ = LOGZ & vbNewLine & ATXZ(Von + j - 1)

$file1 = gc "C:\temp\datei1.txt"  
$file2 = gc "C:\temp\datei2.txt" | out-string  
$fileMerged = "C:\temp\merged.txt"  
$newContent = ""  

foreach($row in $file1){
    if ($row -match "^\d+;"){  
        $artnr = $row.Split(";").Trim()  
        $regex = new-Object regex("^$artnr;([^\r\n]*)", [System.Text.RegularExpressions.RegexOptions]::Multiline)  
        $match = $regex.Match($file2)
        if ($match.Success){
            $newContent += $row + ";" + $match.Groups[1].Value + "`r`n"  
        }else{
            $newContent += $row + "`r`n"  
        }
    }else{
        $newContent += $row + "`r`n"  
    }
}
set-content $fileMerged $newContent