mini-problem um auch noch die vorletzte zeile auszulesen...

  • hab eben hilfe gefunden und zwar hier: [ gelöst ] txt daten auslesen
    das war auch mein probnlem, nun die frage: wie kann ich da noch die vorletzte zeile auslesen??????

    von $pattern hab ich so gut wie keine ahnung

    nun kann es aber sein, dass die vorletzte zeile ne leerzeile ist, weiss man vorher nicht....

    ok, zur erleichterung hier noch mal der quelltext .

    BugFix schrieb: "Da gibt es eine einfachere Lösung (statt $text halt "FileRead(deine_Datei)")" <--- hab ich gemacht


    Danke euch...

    Einmal editiert, zuletzt von Der_Storch (5. Oktober 2009 um 12:39)

    • Offizieller Beitrag

    Wenn Du die _ArrayDisplay-Zeile auskommentierst, dann wird Dir das ganze Array angezeigt.

    Für die vorletzte Zeile brauchst Du aber nur zwei Werte anpassen:

    Spoiler anzeigen
    [autoit]


    #include <array.au3>
    $text = _
    '10/02/2009 02:00:00 2 ankauf 12 1 ' & @CRLF & _
    '13/02/2009 08:00:00 2 verkauf 13 0 0' & @CRLF & @CRLF & _
    '14/02/2009 05:00:00 5 ankauf 14 1 ' & @CRLF & _
    '14/02/2009 10:00:00 5 verkauf 12 0 0' & @CRLF & @CRLF & _
    '16/02/2009 06:00:00 6 ankauf 12 1 ' & @CRLF & _
    '18/02/2009 12:00:00 6 verkauf 13 0 0' & @CRLF & @CRLF & _
    '19/02/2009 07:00:00 7 ankauf 12 1 ' & @CRLF & _
    '19/02/2009 08:00:00 8 verkauf 14 0 0'

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

    $pattern = '(\d{2}:\d{2}:\d{2})(?:\s+\d+\s+)(\w+)'
    $ret = StringRegExp($text, $pattern, 3)
    ;~ _ArrayDisplay($ret)

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

    MsgBox(0, 'Letzte Zeile', $ret[UBound($ret)-2] & ' ' & $ret[UBound($ret)-1])
    MsgBox(0, 'Vorletzte Zeile', $ret[UBound($ret)-4] & ' ' & $ret[UBound($ret)-3])

    [/autoit]