Ich möchte gerne 2 Dateien Zeile für Zeile zusammenfugen.
z.B. aus
\$OEM$
\bcdw
\BM.BINund
=F:\soft\XPCD\$OEM$
=F:\soft\XPCD\bcdw
=F:\soft\XPCD\BM.BINsoll
\$OEM$=F:\soft\XPCD\$OEM$
\bcdw=F:\soft\XPCD\bcdw
\BM.BIN=F:\soft\XPCD\BM.BIN
werden
die Zeilenanzahl beider Dateien ist immer gleich, sprich, wenn die eine 300 Zeilen hat, dann die andere genau soviele, nur die gesamte Zeilenanzahl ist immer verschieden
Hallo!
Schon mal selbst was versucht?
Am einfachsten wohl erst mal beide mit _ArrayReadFromFile in zwei Array einlesen, dann das eine Array jeweils mit dem Teil des anderen ergänzen und das Ergebnis mit _ArrayWriteToFile schreiben.
peethebee
Hallo!
Für pees vorschlag brauchst du die Beta 
ausserdem meint er _FileReadToArray und _FileWriteFromArray
hier die beiden funktionen:
;===============================================================================
;
; Description: Reads the specified file into an array.
; Syntax: _FileReadToArray( $sFilePath, $aArray )
; Parameter(s): $sFilePath - Path and filename of the file to be read
; $aArray - The array to store the contents of the file
; Requirement(s): None
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @error = 1
; Author(s): Jonathan Bennett <jon at hiddensoft dot com>
; Note(s): None
;
;===============================================================================
Func _FileReadToArray($sFilePath, ByRef $aArray)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $hFile
$hFile = FileOpen($sFilePath, 0)
If $hFile = -1 Then
SetError(1)
Return 0
EndIf
$aArray = StringSplit( StringStripCR( FileRead($hFile, FileGetSize($sFilePath))), @LF)
FileClose($hFile)
Return 1
EndFunc ;==>_FileReadToArray
;===============================================================================
;
; Description: Write array to File.
; Syntax: _FileWriteFromArray( $sFilePath, $aArray )
; Parameter(s): $sFilePath - Path and filename of the file to be written
; $a_Array - The array to retrieve the contents
; $i_Base - Start reading at this Array entry.
; $I_Ubound - End reading at this Array entry.
; Default UBound($a_Array) - 1
; Requirement(s): None
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @error = 1
; Author(s): Jos van der Zande <jdeb at autoitscript dot com>
; Note(s): None
;
;===============================================================================
Func _FileWriteFromArray($sFilePath, $a_Array, $i_Base = 0, $i_UBound = 0)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $hFile
; Check if we have a valid array as input
If Not IsArray($a_Array) Then
SetError(2)
Return 0
EndIf
; determine last entry
Local $last = UBound($a_Array) - 1
If $i_UBound < 1 Or $i_UBound > $last Then $i_UBound = $last
If $i_Base < 0 Or $i_Base > $last Then $i_Base = 0
; Open output file
$hFile = FileOpen($sFilePath, 2)
If $hFile = -1 Then
SetError(1)
Return 0
EndIf
;
FileWrite($hFile, $a_Array[$i_Base])
For $x = $i_Base + 1 To $i_UBound
FileWrite($hFile, @CRLF & $a_Array[$x])
Next
FileClose($hFile)
Return 1
EndFunc ;==>_FileWriteFromArrayJungs danke schonmal, aber so ganz kapiert habe ich es nicht, wie muss ich diese beiden Sachen anwenden?
habs so versucht
_FileReadToArray(@TempDir & '\liste-2.txt', $aArray)
_FileReadToArray(@TempDir & '\liste-3.txt', $aArray)
_FileWriteFromArray(@TempDir & '\liste-4.txt', $aArray)
ohne Erfolg, konnt ihr mal ein Beispiel nennen
Dim $array1[1], $array2[1]
_FileReadToArray("C:\Text.txt", $array1)
_FileReadToArray("C:\Text2.txt", $array2)
For $i = 1 to $array1[0]
$array1[$i] = $array1[$i] & $array2[$i]
Next
_FileWriteFromArray("C:\ergebnis.txt", $array1, 1)ungetestet.
peethebee
Hi johny,
hier noch eine andere Variante. Das Skript ist etwas umfangreicher als das von peethebee, weil noch Fehlerbehandlung enthalten ist ;). Und ich habe nicht _FileWriteArray verwendet. Dafür habe ich mein Skript getestet 
#include <File.au3>
Dim $aliste2, $aliste3
_FileReadToArray(@ScriptDir & "\liste-2.txt", $aliste2)
if @error Then
Msgbox(32,"",@ScriptDir & "\liste-2.txt"&" wurde nicht gefunden")
exit
EndIf
_FileReadToArray(@ScriptDir & "\liste-3.txt", $aliste3)
if @error Then
Msgbox(32,"",@ScriptDir & "\liste-3.txt"&" wurde nicht gefunden")
exit
EndIf
$file = FileOpen(@ScriptDir & "\liste-4.txt",2)
; Check if file opened for reading OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
For $i = 1 to ubound($aliste2)-1
FileWriteLine($file,$aliste2[$i]&$aliste3[$i])
next
FileClose($file)Jungs ihr seit einsame Klasse, hier hat man kaum die Frage gestellt, schon ist sie beantwortet. Hatte nicht erwartet so schnell eine Antwort u. Lösung zu bekommen.
Es hat gefunzt, BIG THX
@jonk, auch an dir Danke, funzt auch, ihr lasst ja einen kaum Zeit zum experementieren, klasse, seit ercht auf Zack
Hallo,
Vielen Dank für dein Lob!
Wir tun unser bestes...
Meine Lösung hatte aufgrund meiner knappen zeit den Vorteil, dass noch Platz für deine eigenen Gedanken blieb
Edit: Ach ja, wenn es was sinnvolles wird, freuen wir uns, wenn du den Quelltext mit uns teilst...
peethebee
Dein Tip war genauso gut, ich finde es immer gut mehrere Möglichkeiten zu kennen
Klar wurde ich den Quelltext zur Verfugung stellen.
Ich wollte eigentlich eine pathlist für mkisosfs.exe erstellen um direkt mit wenigen Mausklicks eine Bootcd zu erstellen ohne vorher ein Iso zu erstellen.
Nur musste ich feststellen das meine pathlist nicht so einfach funzt, es gibt da wohl bei mkisofs.exe noch mehr zu beachten gibt, wie leere Ordner.
Daher muss ich es einstellen vorerst bis mir was einfällt, brauchen tuhe ich es nicht unbedingt, aber ich finde Autoit einfach nur geil. Also habe ich ausser den paar Zeilen hier nicht viel mehr.
Trotzdem kann ich eure Tips verdammt gut gebrauchen, hab sie mir direkt in Scite abgespeichert und werde sie in Zukunft oft verwenden, nach der Möglichkeit 2 Dateien zusammenfugen hatte ich schon lange gesucht.
Also nochmal Muito Obrigado