Hallo !Habe ein Anfängerproblem--> Aus Datei in andere Datei schreiben

    Hallo

    habe verschiedenste Sachen ausprobiert und auch im Forum gesucht, allerdings bin ich mit der Lösung die ich habe nicht zufrieden.

    Ich möchte von einem Textfile den Inhalt nehmen und in ein schon vorhandenes File anfügen. Vorab sollte eine Prüfung stattfinden ob die zu kopierenden Zeilen nicht evtl. schon im Zielfile da sind. Wenn die Zeilen da sind soll natürlich nicht kopiert werden.


    Ich habe das Kopieren mit FileReadLine und WriteLine versucht. Wenn ich nur den Inhalt verschiedener Variablen in ein Textfile ausgeben möchte klappt das auch. Aber ich muss doch sowas mit einer schleife o.ä.lösen können, oder ?


    Ich danke Euch recht herzlich für Eure Hilfe. (Versuche gerade mit dem Tool eine Oracle Konfig zu machen)


    Danke


    Bis dann

    ich weiß nicht wie man überprüfen aknn ob text schon in der anderen Datei drinne ist, aber so kannst du eine Datei auslesen und ans Ende einer anderen schreiben.

    [autoit]


    ;Quelldatei auslesen
    $quelle = FileRead("quelle.txt")

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

    ;Zieldatei schreiben
    FileWrite("ziel.txt", $quelle)

    [/autoit]

    Vlt mit

    [autoit]


    $fileread2 = Fileread(C:\Ziel.txt)
    If $quelle = $fileread2 then
    MsgBox(64,"Achtung","Quell- und Zieldatei identisch")
    EndIf

    [/autoit]


    Waluev

    Flensburg ist wie Payback - wenn man 18 Punkte hat bekommt man ein Fahrrad.

    ja hab ich mir auch schon gedacht. Allerdings will er doch schauen ob der Text schon IRGENDWO im File ist. Also angenommen quelle = "Das ist der TEXT" und in der Ziel datei ist

    BlABLABLABLA
    Das ist der TEXT
    BLABLABLABLA

    Oder hab ich da was falsch verstanden???

    Das geht dann so:

    Spoiler anzeigen
    [autoit]

    ;Quelldatei auslesen
    $quelle = FileRead("1.txt")

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

    $fileread2 = Fileread("2.txt")
    If StringInStr($fileread2,$quelle,1) then

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

    MsgBox(64,"Achtung","Zieldatei enthält Quelldatei komplett")

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

    Else

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

    ;Zieldatei schreiben
    FileWrite("2.txt", $quelle)

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

    EndIf

    [/autoit]

    Mann ich bin überrascht über so schnelle Antworten.


    Vielen Dank.Werde das gleich mal austesten.