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.
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:
ZitatToll... 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.
#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
_TextToMsgBox($path, $maxlines)
Text Zeilenweise als MsgBoxen
_TextToEdit($path, $id, $maxlines)
Zeigt den Text in einer Edit ein.
#ce
Func _TextToListView($path, $id, $maxlines)
Local $i, $text
For $i = 1 To $maxlines
$text = FileReadLine($path, $i)
GUICtrlCreateListViewItem($text, $id)
Next
EndFunc
Func _TextToMsgBox($path, $maxlines)
Local $i, $text
For $i = 1 To $maxlines
$text = FileReadLine($path, $i)
MsgBox(64, "Text", $text)
Next
EndFunc
Func _TextToEdit($path, $id, $maxlines)
Local $i, $text
For $i = 1 To $maxlines
$text = FileReadLine($path, $i)
GUICtrlSetData($id, $text)
Next
EndFunc