Hi,
ich stehe gerade vor folgendem Problem.
Eine TXT Datei läßt sich auf Grund ihrer Größe (ca. 900MB - mit ca. 650.000 Zeilen) nicht öffnen.
Meine Idee:
Den Inhalt auf mehrere kleine Dateien verteilen.
Gehe aber davon dass ich dafür nicht gerade den optimalen Weg gewählt habe.
Es dauert jetzt schon 20min und bin erst in Zeile 12.000.
#include <file.au3>
Global $d=1
Global $z=1
Global $a=1
zeile()
func zeile()
$a=1
do
if FileReadLine(@ScriptDir&"\Test\DBDVFALT.TXT",$z)="" Then
Exit
Else
FileWriteLine(@ScriptDir&"\Test\DBDVFALT_"&$d&".TXT",FileReadLine(@ScriptDir&"\Test\DBDVFALT.TXT",$z))
SplashTextOn("","Datei: "&$d&@CRLF&"Zeile: "&$z,200,120)
$a=$a+1
$z=$z+1
EndIf
until $a=10000
datei()
EndFunc
func datei()
$d=$d+1
FileWrite(@ScriptDir&"\Test\DBDVFALT_"&$d&".TXT","")
zeile()
EndFunc
Einer von euch ne Idee?