Beiträge von SaNiSo

  • Hallo zusammen ...

    Mea culpa!

    Ich gelobe Besserung und zur Strafe:
    AutoIt wird nur mit großem "A" und "I" geschrieben.
    AutoIt wird nur mit großem "A" und "I" geschrieben.
    AutoIt wird nur mit großem "A" und "I" geschrieben.
    AutoIt wird nur mit großem "A" und "I" geschrieben.
    AutoIt wird nur mit großem "A" und "I" geschrieben.
    AutoIt wird nur mit großem "A" und "I" geschrieben.
    ...
    :)

    to be continued...

  • Textdatei zeilenweise durchsuchen

    Zuerst einmal möchte ich euch allen für die schnelle und hilfreiche Unterstützung danken.

    Jedoch lag es mir hier fern einen Wettkampf in Punkto schnelleres Ein-/ Auslesen einer Textdatei via FileReadLine oder FileListtoArray() zu entfachen oder durch meinen Post die "Gemeinde" in zwei Lager zu spalten.

    Ich habe letztendlich euer aller Tipps zu Herzen genommen und das Codebeispiel von AspirinJunkie ein wenig angepasst und siehe da "die Sch... geht". :D

    Für die Zukunft nehme ich mir auf jeden Fall mit, dass mir umso detaillierter und auch schneller geholfen werden kann je mehr Informationen, Dokumentationen, Anlagen etc. ich hinzufüge.

    Also nochmals euch allen meinen rechtherzlichen Dank.

  • Hallo zusammen ...

    ... ich bin der Neue und werde wohl demnächst häufiger hier auftauchen.

    Berufsbedingt und aus privatem Interesse möchte ich mich näher mit AutoIT beschäftigen.

    Ich erhoffe mir davon vieles im Berufsleben automatisieren zu können um somit Arbeitsabläufe zu optimieren. Im privaten Bereich plane ich einfach mir kleine Helferlein zu basteln um somit mehr Erfahrungen beim Scripten mit Auto IT zu sammeln.

    Ich freue mich schon auf ein freundliches Miteinander und bin gespannt welche Efahrungen/ Erkenntnisse ich hier sammeln werde. Und wer weiß vielleicht bin ich auch irgendwann in der Lage selbst jemandem mit Rat und Tat zur Seite zu stehen.

  • Textdatei zeilenweise durchsuchen

    Hallo zusammen,

    ich versuche mich schon seit zwei Tagen an einem AutoIT-Script um eine Textdatei zeilenweise einzulesen. Immer wenn ich denke ich habe es ist doch noch irgendwie ein Fehler drin.

    Folgende Ausgangssituation:
    Eine Textdatei ("Daten.txt" oder ".csv") ganz egal enthält mit Semikolon separierte Einträge:
    WertA1;WertB1;WertC1;WertD1;WertE1; ... WertK1
    WertA2;WertB2;WertC2;WertD2;WertE2; ... WertK2
    ...

    Bedingungen:

    • Nun möchte ich nach einem bestimmten Wert suchen und dafür die Datei zeilenweise einlesen.
    • Wird der Wert (z.B.: WertK23) gefunden sollen alle Werte der Zeile entsprechend ausgegeben werden. (WertA23=... ; WertB23=...; ...WertK23=...)
    • Wir der Wert nicht gefunden sollen das Script sich die nächste Zeile vornehmen bis EOF.
    • Auch wenn der Wert gefunden wird, soll dennoch die Datei bis EOF durchsucht werden, da ggf. ein zweiter, dritter, ... Eintrag vorhanden ist. Ebenso soll dann die ganze Zeile ausgegeben werden.


    Mein Lösungsansatz:

    [autoit]


    #include <File.au3>

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

    ; Basisdaten
    $daten = "c:\Daten.csv"
    $datensatzgroesse = _FileCountLines($Daten)

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

    ; Anzeige der Summe aller Datensätze
    MsgBox (4096, "Inhalt", "Es befinden sich " & $datensatzgroesse & " Datensätze in der Verwaltung.")

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

    ; Abfrage, was getan werden soll
    $suchsoll = InputBox ("Datensuche", _
    "Bitte geben Sie die Daten ein," & @CRLF & _
    "nach denen gesucht werden soll", "", "")
    If @error = 1 Then
    Call ("abbruch")
    Else
    Call ("suchen", $suchsoll)
    EndIf

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

    ; Funktionen
    Func suchen ($suchsoll)
    $file = FileOpen ($daten, 0)
    For $i = 1 To $datensatzgroesse
    $zeile = FileReadLine($daten, $i)
    $durchlauf = 0
    Do
    $durchlauf = $durchlauf + 1
    If StringInStr ($zeile, $suchsoll) Then
    $datensatz = StringSplit ($zeile,';')
    MsgBox (4096, "Datenfund " & $suchsoll, _
    "Wert1: " & @TAB & $datensatz[1] & @CRLF & _
    "Wert2: " & @TAB & $datensatz[2] & @CRLF & _
    "Wert3: " & @TAB & $datensatz[3] & @CRLF & _
    "Wert4: " & @TAB & $datensatz[4] & @CRLF & _
    "Wert5: " & @TAB & $datensatz[5] & @CRLF & _
    "Wert6: " & @TAB & $datensatz[6] & @CRLF & _
    "Wert7: " & @TAB & $datensatz[7] & @CRLF & _
    "Wert8: " & @TAB & $datensatz[8] & @CRLF & _
    "Wert9: " & @TAB & $datensatz[9] & @CRLF & _
    "Wert10: " & @TAB & $datensatz[10] & @CRLF & _
    "Wert11: " & @TAB & $datensatz[11])
    ExitLoop 1
    Else
    MsgBox (48, "Meldung", "Der gesuchte Datensatzinhalt " & $suchsoll & " wurde nicht gefunden!")
    ExitLoop 2
    EndIf
    Until $durchlauf > $datensatzgroesse
    Next
    $file = FileClose ($daten)
    EndFunc

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

    Func abbruch ()
    MsgBox (16, "Abbruch", "Sie haben Abbrechen/ Cancel gedrückt." & @crlf & _
    "Auf wiedersehen.")
    EndFunc

    [/autoit]

    Weitere Planung:

    • Über eine anfängliche GUI die Option besitzen suchen, ändern, löschen, anlegen von Daten in diese Datei
    • Werte der einzelne Zeile exportieren und entsprechend neues Textfile schreiben

    Vielleicht hilft euch dies den Hintergrund etwas zu verstehen.

    Ich möchte um Gottes Willen von euch kein komplettes Script haben, das will ich schon selbst hinbekommen. Nur wie bereits erwähnt tippel ich schon seit ca. 2 Tagen auf der Stelle, weil ich irgendwie nicht den Durchlauf hinbekomme.
    Ich erhoffe mir von euch den entscheidenden Hinweis/ Denkanstoss sodass ich wieder weitermachen kann.
    Bei Fragen stehe ich euch zur Verfügung.