TextTo UDF

    Hallo.
    Habe mir mal eine kleine UDF gecoded, mit der ihr Zeilenweise den Text einer Datei in
    eine ListView, MsgBox oder Edit reinsetzen könnt.

    Die Funktionen werden in der UDF beschrieben.
    Hoffentlich hilft sie.

    also echt,
    sry aber da stimm ich Understood zu:

    Zitat

    Toll... andere machen sinnvolle Scripte und arbeiten richtig dafür und du stellst ein 5 Minuten Script rein -.-

    nichts gegen die funktionen, aber des is ja mal ziemlich billig.

    ne richtige udf sollte ein vernünftiges error handling haben und was sinnvolles tun.
    die 3 funktionen finde ich sin sehr speziell. vor allem die _TextToMsgBox
    da werden x-msgbox fenster hintereinander angezeigt. ein vernünftiges programm verzichtet fast ausschließlich auf msgboxen, weil die den user einfach nur nerven...

    is echt nix gegen dich, aber da könnten wahrscheinlich viele autoit'ler jede mögliche funktion reinstellen, und dann hätte autoit iwann 1 millionen funktionen und 99,99% werden nich gebraucht.

    Spoiler anzeigen
    [autoit]

    #include-once
    #cs
    Copyright: PrideRage
    Beschreibung: Ermöglicht es dem User, Text aus einer Datei in verschiedene Elemente zu setzen.
    Funktion: _TextToListView($path, $id, $maxlines)
    Text Zeilenweise in eine ListView
    $path : Hier muss der Pfad der Datei angegeben werden
    $id : Die ID der ListView
    $maxlines : Wie viele Zeilen maximal aus der Datei gelesen werden

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

    _TextToMsgBox($path, $maxlines)
    Text Zeilenweise als MsgBoxen

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

    _TextToEdit($path, $id, $maxlines)
    Zeigt den Text in einer Edit ein.
    #ce

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

    Func _TextToListView($path, $id, $maxlines)
    Local $i, $text
    For $i = 1 To $maxlines
    $text = FileReadLine($path, $i)
    GUICtrlCreateListViewItem($text, $id)
    Next
    EndFunc

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

    Func _TextToMsgBox($path, $maxlines)
    Local $i, $text
    For $i = 1 To $maxlines
    $text = FileReadLine($path, $i)
    MsgBox(64, "Text", $text)
    Next
    EndFunc

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

    Func _TextToEdit($path, $id, $maxlines)
    Local $i, $text
    For $i = 1 To $maxlines
    $text = FileReadLine($path, $i)
    GUICtrlSetData($id, $text)
    Next
    EndFunc

    [/autoit]