Beiträge von uuchip

  • FileReadLine zu langsam

    Hallo Zusammen,

    ich wollte gerade mal wieder etwas mit AutoIt coden. Konkret geht es darum mehrere ca. 1.1MB grosse RTF Files zu parsen und als CSV zu speichern. Das einlesen der ca. 6000 Zeilen pro File dauert mit Autoit Minuten (nach 6 Minuten hatte ich die Faxen dicke), man kann zusehen wie AutoIt die Zeilen einliest, es funktioniert aber es ist viel zu langsam.

    Zu beobachten war auch, dass FileReadLine OHNE expliziete Angabe der linenumber immer nur die erste Zeile einliest

    Woran liegt das????

    Danke für Eure hilfe. Mit freundlichen Grüßen
    Lutz

    P.S: Das olle brexx benötigt dafür nur Sekundenbruchteile

    P.P.S.: Der unvollständige Code:

    Spoiler anzeigen
    [autoit]

    ; pcdmis2csv00.au3.au3
    #include-once
    #include <\Archiv\Prg\AutoIt\Include\rexx01.au3>
    #include <\Archiv\Prg\AutoIt\Include\tools00.au3>
    #include <\Archiv\Prg\AutoIt\Include\stack00.au3>

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

    ; Grundeinstellungen
    HotKeySet("{PAUSE}", "MeinExit")

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

    ; Hilfsfunktionen
    Func MeinExit()
    Exit
    EndFunc

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

    ; init
    $n_s1 = inistack() ; init stack 1

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

    $search = FileFindFirstFile(@WorkingDir&"\*.rtf")
    If $search = -1 Then
    MsgBox(0, @ScriptName&": Fehler!", "Keine RTF Dateien in >"&@WorkingDir&"< gefunden")
    Exit
    EndIf
    While 1
    $dummy = FileFindNextFile($search)
    If @error Then ExitLoop
    push($n_s1,$dummy)
    WEnd
    FileClose($search)

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

    send("^n")

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

    while eos($n_s1)
    $datei_r = pop($n_s1)
    $datei_w = changestr('.rtf',$datei_r,'.csv')
    fileopen($datei_r,0) ; Quelle lesend geöffnet
    fileopen($datei_w,2) ; Ziel überschreibend geöffnet
    tooltip(@ScriptName&"- Datei: "&$datei_r&" wird bearbeitet", )
    $n = 0 ; Startzeile Messprogramm
    While 1
    $n = $n + 1
    $zeile = FileReadLine($datei_r,$n)
    ; tooltip($zeile)
    if $zeile = "}}" Then ExitLoop ; Ende des RTF
    ; if pos('SCN',$zeile) > 0 then
    ; $rl = length($zeile) - pos('SCN',$zeile) + 1
    ; $zeile = right($zeile,rl)
    ; ele = word(zeile,1)
    ; endif

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

    ; MsgBox(0, "Line read:", $n)
    Wend

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

    fileclose($datei_r)
    fileclose($datei_w)
    wend

    [/autoit]

    Edit BugFix: Tags gesetzt

  • Tutorial

    Hallo peethebee,

    super Projekt, weiter so! Ich hoffe (wenn's fertig ist), dass die Infos auch als CHM und PDF vorliegen werden.

    Mit freundlichen Grüßen
    Lutz

  • CMD Aulesen

    Hallo,

    hatte vor einiger Zeit das Problem den CMD Output mit AutoIT weiter zu verarbeiten, gelöst habe ich das wie folgt (siehe Anhang).

    wobei:
    1. cmd($dosbefehl) den Output nach Array $cmdout schreibt
    2. cmd2str($dosbefehl) das Ganze als String zurückgibt
    3. und writecmd($dosbefehl) dafür SEND benutzt

    Mit freundlichen Grüßen
    Lutz

  • Stapelspeicher STACK00.AU3 Erweiterung

    Moin BugFix

    das das Ganze noch auf der Standardunit ARRAY beruht, gelte die Einschränkungen der "normalen" Felder also ca. 16Mio Elemente sind
    theoretisch möglich. Aber schnell ist das Skript (zur Zeit) nicht.

    Z.B. sortiert es noch noch dem BUBBLE Verfahren für grosse Datenmengen wäre z.B. QUICKSORT angebracht. IMO ist auch die ARRAY Unit nicht so optimal. Ändern könnte man das, aber die Grenzen wird der Interpreter von AutIt setzen. Evtl. wäre es für Dein Probem nicht schlecht mit einem externen Progi (z.B.SQLlite) zu arbeiten und dieses in AutoIt einzubinden?

    tschö... mit ö
    Lutz

    Zitat

    Original von BugFix
    Hallo,
    wow - interessante Angelegenheit.
    Wie sieht das aus mit der Datenmenge, die ich im jeweiligen Stack parken kann. Gibt es eine Limitierung von Haus aus oder begrenzt der physikalische Speicher den Inhalt?
    Ich fasse das gleich mal ins Auge um für eine umfangreiche Datenbank die selektierten Daten nach verschiedensten Kriterien schneller umsortieren zu können. Da könnte natürlich die Datenmenge eine Rolle spielen. Muß ich aber selbst erst mal hochrechnen, was als Maximum zu erwarten ist. :)

  • Update Grafikerweiterung turtle02.au3

    Hilalie,

    anbei ein Update zur Turtlegrafik.

    Änderungen von turtle01.au3 nach turtle02.au3
    · Funktion stiftnummer($nr) hinzugefügt
    · Funktion stiftab_f() in Dokumentation hinzugefügt
    · Funktion turtletext($text) hinzugefügt
    · Funktion textfarbe($farbe) hinzugefügt
    · Funktion xko() hinzugefügt
    · Funktion yko() hinzugefügt
    · Fehler in aufxy($x,$y) verbessert

    Beispiele und Skript im Anhang.
    byebye
    Lutz