jack1891 |
|
| Questo è abbastanza inutile per studenti onesti xD Infatti a me serve solo per poter dividere un file di testo in diversi file più corti da mettere nell'ipod per copiare durante i compiti, mi spiego meglio: per Divina Commedia mi dovrei imparare a memoria la parafrasi di 2 canti, ecco con questo "programmino" creo tanto file di testo quante sono le terzine con la parafrasi  CODICE ; ~ Text Divider v1.0
; ~ by Jack1891
#include <GUIConstants.au3>
#include<file.au3>
$Form = GUICreate("Text Divider v1.0 - by Jack1891", 300, 150, 200, 125, -1)
$testo10="Selezionare un file di testo da dividere in altri file, successivamente indicate il carattere secondo il quale dividere il testo e creare dei ''sotto-file''"
$Label0 = GUICtrlCreateLabel("Istruzioni:", 15, 15, 60, 60)
$Label10= GUICtrlCreateLabel( ""&$testo10 , 30, 30, 240, 60)
$Button = GUICtrlCreateButton("Click per procedere",170, 105, 100, 30 )
$Button00 = GUICtrlCreateButton("Informazioni",30, 105, 100, 30 )
GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $Button00
MsgBox(0,"Text Divider v1.0 - by Jack1891","Tool per dividere un testo in altri file"&@CRLF&@CRLF&"Autore: Jack1891")
Case $Button
GUISetState(@SW_HIDE)
$file1 = FileOpenDialog ("Seleziona il file da dividere",@DesktopDir,"File di testo (*.txt)",1)
$q=InputBox("Text Divider v1.0","Hai scelto di dividere il file:"&$file1&@CRLF&"Immetti il carattere per il quale va diviso il file")
$letto=FileRead($file1)
$String = Stringsplit ( $letto , $q )
For $i = 1 to $String [ 0 ]
_FileCreate(@ScriptDir&"\"&$i&".txt")
$open=FileOpen(@ScriptDir&"\"&$i&".txt", 1)
FileWrite($open,$String[$i])
Next
Exit
EndSwitch
WEnd
Exit Spero possa essere utile, anche se dubito, è stato comunque un pò di esercizio. |
| | |
