Hi all,
hier mal der "Quick TXT-Viewer".
Man kopiert die kompilierte *.exe in einen Ordner mit vielen *.txt-Files und kann die dann damit durchklicken und direkt ansehen, ohne sie direkt zu öffnen (spart Zeit, meiner Meinung nach).
Spoiler anzeigen
#include <file.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("File Viewer", 631, 469, 192, 114)
$path = GUICtrlCreateInput("", 16, 16, 593, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$out = GUICtrlCreateEdit("", 16, 72, 593, 377)
$back = GUICtrlCreateButton("<-", 16, 40, 75, 25, $WS_GROUP)
$open = GUICtrlCreateButton("Öffnen", 96, 40, 75, 25, $WS_GROUP)
$fwd = GUICtrlCreateButton("->", 176, 40, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
Global $dir = @ScriptDir
Global $files = _FileListToArray($dir,"*.txt")
Global $cnt = UBound($files)
Global $i = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $back
file("back")
Case $fwd
file("next")
Case $open
file("open")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
func file($opt)
if $opt = "open" Then ShellExecute(GUICtrlRead($path))
if $opt = "next" Then $i += 1
if $opt = "back" Then $i -= 1
if $i >= $files[0] +1 Then $i = 1
if $i <= 0 Then $i = $files[0]
GUICtrlSetData($path, $dir & "\" & $files[$i])
GUICtrlSetData($out, "")
GUICtrlSetData($out, FileRead($files[$i]))
EndFunc
Gruß
x0r