*Sym98* |
|
| Ok, lo ammetto, non serve a niente...L'ho realizzato sperando di poter riuscire a leggere, almeno in questo modo, un file txt con più di 1.000.000 di righe di testo, ma senza risultato... Comunque ho deciso di postarlo pur di fare qualcosa...  Source #include <guiconstants.au3>
#include <guiedit.au3>
$Form1 = GUICreate("Read Txt By Sym98", 625, 445, 191, 119)
GUISetFont(12, 800, 2, "Comic Sans MS")
GUISetBkColor(0x000000)
$Edit = GUICtrlCreateEdit("Select a txt file", 8, 8, 609, 425)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$File = GUICtrlCreateMenu("File")
$Open = GUICtrlCreateMenuItem("Open...", $File)
$Close = GUICtrlCreateMenuItem("Close", $File)
$Exit = GUICtrlCreateMenuItem("Exit", $File)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $Close
GUICtrlSetData($Edit, "Select a txt file")
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
Case $Open
$File_Opened = FileOpenDialog("Start a file of text", @WorkingDir, "Only documents(*.txt)", 1)
If $File_Opened <> "" Then
GUICtrlSetData($Edit, "")
$Read_File = FileRead($File_Opened)
_GUICtrlEdit_AppendText($Edit, $Read_File)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
EndIf
EndSwitch
WEnd  FrontBack - Security Decompiler Team SecureFile: QUI |
| | |
