2 TXT dateien vergleichen

    Ich möchte 2 Dateien miteinander vergleichen
    txt 1 ist älter txt2 ist neu.

    Ich will alle einträge die in txt1 vorhanden sind und nicht in der txt2 sind in txt2 übernehmen.
    falls einträge in beiden einträgen vorhanden sind dann nur die aktuelle übernehmen also die aus der txt2

    Ausschlaggebend ist nicht die IP oder so nur "systemname"


    So sieht meine tx1t aus.

    Systemname;Adapter;Description;IP;Subnet;Gateway;MAC;DNS;DNS Suffix;WINS1;WINS2;DHCP Server
    Host1;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.87;255.255.255.0;10.32.34.1;00:30:05:6C:B1:B9;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host2;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.88;255.255.255.1;10.32.34.2;00:30:05:6C:B1:B10;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host3;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.89;255.255.255.2;10.32.34.3;00:30:05:6C:B1:B11;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host4;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.90;255.255.255.3;10.32.34.4;00:30:05:6C:B1:B12;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host5;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.91;255.255.255.4;10.32.34.5;00:30:05:6C:B1:B13;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host6;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.92;255.255.255.5;10.32.34.6;00:30:05:6C:B1:B14;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host7;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.93;255.255.255.6;10.32.34.7;00:30:05:6C:B1:B15;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host8;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.94;255.255.255.7;10.32.34.8;00:30:05:6C:B1:B16;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host9;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.95;255.255.255.8;10.32.34.9;00:30:05:6C:B1:B17;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host10;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.96;255.255.255.9;10.32.34.10;00:30:05:6C:B1:B18;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx


    so sieht meine txt2 aus,

    Systemname;Adapter;Description;IP;Subnet;Gateway;MAC;DNS;DNS Suffix;WINS1;WINS2;DHCP Server
    Host11;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.24;255.255.255.0;10.32.34.1;00:30:05:6C:B1:B9;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host12;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.25;255.255.255.1;10.32.34.2;00:30:05:6C:B1:B10;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host13;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.26;255.255.255.2;10.32.34.3;00:30:05:6C:B1:B11;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host4;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.27;255.255.255.3;10.32.34.4;00:30:05:6C:B1:B12;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host5;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.28;255.255.255.4;10.32.34.5;00:30:05:6C:B1:B13;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host62;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.29;255.255.255.5;10.32.34.6;00:30:05:6C:B1:B14;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host63;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.30;255.255.255.6;10.32.34.7;00:30:05:6C:B1:B15;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host64;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.31;255.255.255.7;10.32.34.8;00:30:05:6C:B1:B16;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host65;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.32;255.255.255.8;10.32.34.9;00:30:05:6C:B1:B17;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host66;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.33;255.255.255.9;10.32.34.10;00:30:05:6C:B1:B18;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx


    so soll es aussehen:
    Systemname;Adapter;Description;IP;Subnet;Gateway;MAC;DNS;DNS Suffix;WINS1;WINS2;DHCP Server
    Host1;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.87;255.255.255.0;10.32.34.1;00:30:05:6C:B1:B9;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host2;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.88;255.255.255.1;10.32.34.2;00:30:05:6C:B1:B10;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host3;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.89;255.255.255.2;10.32.34.3;00:30:05:6C:B1:B11;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host4;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.27;255.255.255.3;10.32.34.4;00:30:05:6C:B1:B12;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host5;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.28;255.255.255.4;10.32.34.5;00:30:05:6C:B1:B13;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host6;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.92;255.255.255.5;10.32.34.6;00:30:05:6C:B1:B14;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host7;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.93;255.255.255.6;10.32.34.7;00:30:05:6C:B1:B15;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host8;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.94;255.255.255.7;10.32.34.8;00:30:05:6C:B1:B16;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host9;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.95;255.255.255.8;10.32.34.9;00:30:05:6C:B1:B17;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host10;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.96;255.255.255.9;10.32.34.10;00:30:05:6C:B1:B18;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host11;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.24;255.255.255.0;10.32.34.1;00:30:05:6C:B1:B9;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host12;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.25;255.255.255.1;10.32.34.2;00:30:05:6C:B1:B10;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host13;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.26;255.255.255.2;10.32.34.3;00:30:05:6C:B1:B11;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host4;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.27;255.255.255.3;10.32.34.4;00:30:05:6C:B1:B12;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host5;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.28;255.255.255.4;10.32.34.5;00:30:05:6C:B1:B13;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host62;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.29;255.255.255.5;10.32.34.6;00:30:05:6C:B1:B14;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host63;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.30;255.255.255.6;10.32.34.7;00:30:05:6C:B1:B15;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host64;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.31;255.255.255.7;10.32.34.8;00:30:05:6C:B1:B16;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host65;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.32;255.255.255.8;10.32.34.9;00:30:05:6C:B1:B17;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host66;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.33;255.255.255.9;10.32.34.10;00:30:05:6C:B1:B18;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx


    Kann mir jemand helfen würde mich über jede hilfe freuen...

    lg SubZero ;)
    ==========================================================================

    "Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral."

    Einmal editiert, zuletzt von subzero007 (28. April 2010 um 13:58)

    alles was du brauchst sind 2 _filereadtoarray, 2 for schleifen zum vergleichen und den vergleich selbst.
    und wenn was noch nicht vorhanden dann schreibe in datei.
    wo liegt das problem? wo ist dein ansatz?

    Hi,

    1) 2*mal _FileReadToArray
    2) For Loop über 1.stes Array -> txt1
    3) StringSplit -> Systemnamen auslesen
    4) Mit partieller Suche über 2.tes Array mit _ArraySearch und Systemnamen als Suchobjekt
    5) Wenn _ArraySearch > 0 dann ist der Eintrag schon vorhanden, ansonsten nicht.

    ;-))
    Stefan

    Danke Danke

    Beide files in jeweils einen array lesen: OK
    Spliten: OK

    Aber komme jetzt nicht weiter ??
    Kann da jemand helfen?

    [autoit]

    #include <array.au3>
    #include <File.au3>

    [/autoit][autoit][/autoit][autoit]

    Local $afile1, $afile2
    Local $file1 = @ScriptDir&'\network01.csv'
    _FileReadToArray($file1, $afile1)
    Local $file2 = @ScriptDir&'\network02.csv'
    _FileReadToArray($file2, $afile2)

    [/autoit][autoit][/autoit][autoit]

    For $i = 1 To UBound($afile1) - 1 ; 1. Element ist Beschreibung der csv Daten
    $temp1 = StringSplit($afile1[$i], ";")

    [/autoit][autoit][/autoit][autoit]

    Next

    [/autoit][autoit][/autoit][autoit]

    For $j = 1 To UBound($afile2) - 1 ; 1. Element ist Beschreibung der csv Daten
    $temp1 = StringSplit($afile2[$j], ";")

    [/autoit][autoit][/autoit][autoit]

    Next

    [/autoit]

    lg SubZero ;)
    ==========================================================================

    "Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral."

    Hi,

    brauchst nur eine For Schleife:

    [autoit]


    For $i = 2 To UBound($afile1) - 1 ; 1. Element ist Beschreibung der csv Daten, also ab 2. tem element suchen, ..[0] = Anzahl, [1] = Beschreibung
    $temp = StringSplit($afile1[$i], ";",2)
    ;partielle Suche über Array des 2.ten Textfiles
    $index = _ArraySearch ($afile2, $temp [0], 0,0,0,1)
    If $index < 1 Then
    ;Element nicht vorhanden, also schreiben
    EndIf
    ;kein else notwendig, da Element vorhanden und in text2 belassen werden soll
    Next

    [/autoit]

    ;-))
    Stefan

    ???
    Jetzt habe ich den überblick komplett verloren?

    was mache ich falsch? oder was muss ich tun????

    lg SubZero ;)
    ==========================================================================

    "Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral."

    Hi,

    kompletter Code:

    [autoit]


    #include <array.au3>
    #include <File.au3>

    [/autoit][autoit][/autoit][autoit]

    Local $afile1, $afile2
    Local $file1 = @ScriptDir&'\network01.csv'
    _FileReadToArray($file1, $afile1)
    Local $file2 = @ScriptDir&'\network02.csv'
    _FileReadToArray($file2, $afile2)

    [/autoit][autoit][/autoit][autoit]

    For $i = 2 To UBound($afile1) - 1 ; 1. Element ist Beschreibung der csv Daten, also ab 2. tem element suchen
    ;deaktiviere Anzahl Rückgabe bei StringSplit -> Hostname ist also $temp [0]
    $temp = StringSplit($afile1[$i], ";",2)
    ;partielle Suche über Array des 2.ten Textfiles
    $index = _ArraySearch ($afile2, $temp [0], 0,0,0,1)
    If $index < 1 Then
    $file = FileOpen ($file2, 1)
    FileWriteLine ($file, $afile1 [$i])
    FileClose ($file)
    EndIf
    ;kein else notwendig, da Element vorhanden und in text2 belassen werden soll
    Next

    [/autoit]

    ;-))
    Stefan

    Danke..
    so sieht meine txt aus.

    Systemname;Adapter;Description;IP;Subnet;Gateway;MAC;DNS;DNS Suffix;WINS1;WINS2;DHCP Server
    Host11;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.24;255.255.255.0;10.32.34.1;00:30:05:6C:B1:B9;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host12;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.25;255.255.255.1;10.32.34.2;00:30:05:6C:B1:B10;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host13;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.26;255.255.255.2;10.32.34.3;00:30:05:6C:B1:B11;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host4;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.27;255.255.255.3;10.32.34.4;00:30:05:6C:B1:B12;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host5;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.28;255.255.255.4;10.32.34.5;00:30:05:6C:B1:B13;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host62;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.29;255.255.255.5;10.32.34.6;00:30:05:6C:B1:B14;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host63;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.30;255.255.255.6;10.32.34.7;00:30:05:6C:B1:B15;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host64;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.31;255.255.255.7;10.32.34.8;00:30:05:6C:B1:B16;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host65;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.32;255.255.255.8;10.32.34.9;00:30:05:6C:B1:B17;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host66;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.31.33;255.255.255.9;10.32.34.10;00:30:05:6C:B1:B18;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host2;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.88;255.255.255.1;10.32.34.2;00:30:05:6C:B1:B10;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host3;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.89;255.255.255.2;10.32.34.3;00:30:05:6C:B1:B11;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host7;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.93;255.255.255.6;10.32.34.7;00:30:05:6C:B1:B15;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host8;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.94;255.255.255.7;10.32.34.8;00:30:05:6C:B1:B16;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host9;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.95;255.255.255.8;10.32.34.9;00:30:05:6C:B1:B17;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx
    Host10;Local Area Connection;Intel(R) PRO/1000 CT Network Connection;10.32.34.96;255.255.255.9;10.32.34.10;00:30:05:6C:B1:B18;xx.xx.xx.xx, xx.xx.xx.xx;test.com;xx.xx.xx.xx;xx.xx.xx.xx;xx.xx.xx.xx


    es fehlen die zeilen Host1 und Host6..??
    Was läuft da falsch?

    lg SubZero ;)
    ==========================================================================

    "Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral."

    Hi,

    Shit. Host6 ist partial von Host61 z.Bsp. und Host1 von Host11.
    Neue For Schleife

    [autoit]


    For $i = 2 To UBound($afile1) - 1 ; 1. Element ist Beschreibung der csv Daten, also ab 2. tem element suchen
    $temp = StringSplit($afile1[$i], ";",2)
    ;partielle Suche über Array des 2.ten Textfiles
    $index = _ArraySearch ($afile2, $temp [0], 0,0,0,1)
    If $index < 1 Then
    $file = FileOpen ($file2, 1)
    FileWriteLine ($file, $afile1 [$i])
    FileClose ($file)
    Else
    $temp1 = StringSplit ($afile2 [$index], ",", 2)
    If $temp [0] <> $temp1 [0] Then
    $file = FileOpen ($file2, 1)
    FileWriteLine ($file, $afile1 [$i])
    FileClose ($file)
    EndIf
    EndIf
    Next

    [/autoit]

    ;-))
    Stefan