Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] NumbersTextLister
Auteur Message
Répondre en citant
Message [Prog] NumbersTextLister 
Rebonjour,

J'avais besoin de lister des nombres de 1 à 100, et comme je suis flemmard, je me suis dis que ce serait mieux de faire un programme qui me le fasse à ma place. Le script est assez simple mais ça permet de voir un peu la gestion des fichiers textes. Je n'ai pas commenté le code, mais je le ferait dès que j'aurais le temps et l'astuce de Laddy pour la gestion des fichiers textes est disponible en cas de problèmes.

Capture d'écran :


Code:
#include <GUIConstants.au3>

HotKeySet("{esc}", "_quit") ;Si on appuye sur la touche escape alors on utilise la fonction _quit

Func _quit()
Exit ;On quitte la programme
EndFunc

#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("NumbersTextLister", 309, 224, 193, 125)
$Input1 = GUICtrlCreateInput("1", 64, 72, 145, 21)
$Input2 = GUICtrlCreateInput("100", 64, 112, 145, 21)
$detxt = GUICtrlCreateLabel("De", 16, 72, 22, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$atxt = GUICtrlCreateLabel("A", 16, 112, 13, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$titretxt = GUICtrlCreateLabel("Lister des les nombres dans un fichier texte :", 16, 16, 264, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$lister = GUICtrlCreateButton("Lister", 64, 152, 121, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $lister
         lister()
   EndSwitch
WEnd

Func lister()
$nombredebut = GUICtrlRead($Input1)
$nombre = $nombredebut
$nombrefin = GUICtrlRead($Input2)
$File = FileOpen("NumbersTextLister"&$nombredebut&"-"&$nombrefin&".txt",2)
If $file= -1 Then
MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier.")
Exit
EndIf
While 1
FileWriteLine($File, $nombre)
$nombre = $nombre+1
If $nombre = $nombrefin+1 Then ExitLoop
WEnd
FileClose($File)
MsgBox(0,"NumbersTextLister","Le fichier texte [NumbersTextLister"&$nombredebut&"-"&$nombrefin&".txt] contenant les nombres voulus a été créé dans le dossier du programme.")
ShellExecuteWait(@ScriptDir&"\NumbersTextLister"&$nombredebut&"-"&$nombrefin&".txt")
Exit
EndFunc





______________________________________________________
Message Publicité 
PublicitéSupprimer les publicités ?


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch