Text Dateien vergleichen und Ergänzen

#Region    ;************ Includes ************
#include <File.au3>
#include <Array.au3>
#EndRegion    ;************ Includes ************
Global $aDatei1[1], $aDatei2[1]


$sDatei1 = @ScriptDir & "\1.txt"
$sDatei2 = @ScriptDir & "\2.txt"


_FileReadToArray($sDatei1, $aDatei1) ;Datei 1 ins Array
_FileReadToArray($sDatei2, $aDatei2) ;Datei 2 ins Array
_ArrayDisplay($aDatei1)


;Schleife in Datei 2
For $i = 1 To UBound($aDatei2) - 1
	$sLinks = StringLeft($aDatei2[$i], 6) ;linke 6 Zeichen jeder Zeile von Datei 2
	$iSearch = _ArraySearch($aDatei1, $sLinks, 1) ;in Datei 1 nach den 6 Zeichen suchen (genaue Übereinstimmung notwendig)
	If $iSearch <> -1 Then $aDatei1[$iSearch] = $aDatei2[$i] ;Eintrag gefunden >>> Zeile von Datei 2 in Datei 1 übernehmen
Next


_ArrayDisplay($aDatei1)

#Region    ;************ Includes ************
#include <String.au3>
#include <File.au3>
#include <Array.au3>
#EndRegion    ;************ Includes ************
Global $aDatei1[1], $aDatei2[1]


$sDatei1 = @ScriptDir & "\1.txt"
$sDatei2 = @ScriptDir & "\2.txt"


_FileReadToArray($sDatei1, $aDatei1) ;Datei 1 ins Array
_FileReadToArray($sDatei2, $aDatei2) ;Datei 2 ins Array
_ArrayDisplay($aDatei1)


;Schleife in Datei 2
For $i = 1 To UBound($aDatei2) - 1
	$aLinks = _StringBetween($aDatei2[$i], ";", ";") ;Text zwischen den ersten beiden ";" jeder Zeile von Datei 2
	If IsArray($aLinks) Then
		$iSearch = _ArraySearch($aDatei1, ";" & $aLinks[0] & ";", 1) ;in Datei 1 nach den Zeichen suchen (genaue Übereinstimmung notwendig)
		If $iSearch <> -1 Then $aDatei1[$iSearch] = $aDatei2[$i] ;Eintrag gefunden >>> Zeile von Datei 2 in Datei 1 übernehmen
	EndIf
Next


_ArrayDisplay($aDatei1)