Page 1 sur 1
[..] Texte edit
Posté : mar. 12 juil. 2011 21:28
par moi
j'ai essayé de faire un simple éditeur de texte:
► Afficher le texte
#include <GUIConstants.au3>
#include <File.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("text edit", 633, 447, 309, 189)
$e = GUICtrlCreateEdit("", 8, 88, 617, 353)
$Button1 = GUICtrlCreateButton("quitter sans sauvegarder", 8, 8, 169, 33, 0)
$Button2 = GUICtrlCreateButton("sauvegarder", 8, 48, 169, 33, 0)
$Button3 = GUICtrlCreateButton("ouvrir...", 184, 8, 57, 33, 0)
$Label1 = GUICtrlCreateLabel("chemin : ", 184, 56, 200, 19)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$source = ''
$txt = ''
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button1
Exit
Case $Button2
$source = FileSaveDialog("sauvegarder",@MyDocumentsDir&'\',"txt (*.txt)",9)
GUICtrlSetData($Label1,"Chemin : "& $source)
$txt = $e
_FileCreate($source)
FileWrite($source, $txt)
Case $Button3
$source = FileOpenDialog("ouvrir",@MyDocumentsDir&'\',"text files (*.txt)",9)
GUICtrlSetData($Label1,"Chemin : "& $source)
$txt = FileRead($source)
$e = $txt
EndSwitch
WEnd
mais voila ça ne marche pas entièrement je fait un texte dans mon edit, je sauvegarde mon fichier .txt et quand j'ouvre le fichier avec blocs-notes le texte est remplacé par un 3
.
la fonction ouvrir ne marche pas .
quesqui ne marche pas dans mon code?
Re: [..] Texte edit
Posté : mar. 12 juil. 2011 22:12
par mikell
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstants.au3>
#include <File.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("text edit", 633, 447, 309, 189)
$e = GUICtrlCreateEdit("", 8, 88, 617, 353)
$Button1 = GUICtrlCreateButton("quitter sans sauvegarder", 8, 8, 169, 33, 0)
$Button2 = GUICtrlCreateButton("sauvegarder", 8, 48, 169, 33, 0)
$Button3 = GUICtrlCreateButton("ouvrir...", 184, 8, 57, 33, 0)
$Label1 = GUICtrlCreateLabel("chemin : ", 184, 56, 500, 19)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$source = ''
$txt = ''
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button1
Exit
Case $Button2
$source = FileSaveDialog("sauvegarder",@DesktopDir&'\',"txt (*.txt)",[color=#FF0000]16[/color])
GUICtrlSetData($Label1,"Chemin : "& [color=#FF0000]$source & ".txt"[/color])
[color=#FF0000]$txt = GuiCtrlRead($e)[/color]
_FileCreate([color=#FF0000]$source & ".txt"[/color])
FileWrite([color=#FF0000]$source & ".txt"[/color], $txt)
Case $Button3
$source = FileOpenDialog("ouvrir",@DesktopDir&'\',"text files (*.txt)",9)
GUICtrlSetData($Label1,"Chemin : "& $source)
$txt = FileRead($source)
$e = $txt
EndSwitch
WEnd
Re: [..] Texte edit
Posté : mar. 12 juil. 2011 22:13
par zeshrek
@Moi : l'utilisation de la coloration syntaxique est limitée, et n'a pas sa place dans le forum. Merci de corriger
Re: [..] Texte edit
Posté : mar. 12 juil. 2011 22:22
par Strofe
Bonjour
► Afficher le texte
Code : Tout sélectionner
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button1
Exit
Case $Button2
$source = FileSaveDialog("sauvegarder",@MyDocumentsDir&'\',"txt (*.txt)",9)
GUICtrlSetData($Label1,"Chemin : "& $source)
$txt = GUICtrlRead($e)
$file = FileOpen($source & ".txt",8 + 2)
FileWrite($file, $txt)
FileClose($file)
Case $Button3
$source = FileOpenDialog("ouvrir",@MyDocumentsDir&'\',"text files (*.txt)",9)
GUICtrlSetData($Label1,"Chemin : "& $source)
$file = FileOpen($source,0)
$txt = FileRead($file)
GUICtrlSetData($e,$txt)
FileClose($file)
EndSwitch
WEnd
J'ai modifié le minimum. Reste les sécurités...
Regarde les fonctions, il y a des exemples, il ne faut pas hésiter à les tester. Tu progresseras plus vite.
Pour info :
http://www.autoitscript.fr/forum/viewto ... f=3&t=1608
A+
Re: [..] Texte edit
Posté : mer. 13 juil. 2011 00:30
par TT22
Strofe a écrit :Tu progresseras plus vite.
Strofe à raison, moi le 18 avril je ne savais presque rien sur Autoit.
Depuis, j'ai beaucoup appris.
Re: [..] Texte edit
Posté : mer. 13 juil. 2011 10:38
par moi
merci ça marche très bien.
j'ai compris tout le code car je le connaissais mais je ne conaissais pas:
Re: [..] Texte edit
Posté : mer. 13 juil. 2011 10:57
par zeshrek
Dis donc, il vas quand même as falloir qu'a chacun de tes posts je te dise que la coloration syntaxique n'a pas sa place ici ?
Alors tu lis
ce post de Tlem et tu t'y tiens.
Edit : Si ca se reproduit, je connais un topic qui va finir au feu d'artifice de ce soir. A bon entendeur...
Re: [..] Texte edit
Posté : mer. 13 juil. 2011 11:34
par moi
j'ai améliorer le script. on peut imprimer le texte avec une imprimante par défaut.
Re: [..] Texte edit
Posté : mer. 13 juil. 2011 12:24
par TT22
Est-ce que ça fonctionne avec les imprimantes en réseau ?
Re: [..] Texte edit
Posté : mer. 13 juil. 2011 12:36
par moi
si tu parle des autres imprimantes connectés à l'ordinateur : eh bien je ne pense pas. il faudrait mettre un FilePrintDialog (imprimer sous...) ou l'on peut choisir l’imprimante.
j'ai cherché dans l'aide de SciTE mais rien.
si tu ne parle pas de ça alors je ne comprends pas.
je m'intéresse plus aux langages de programmation que au terme en rapport avec les imprimantes. je ne suis pas très fort dans le domaine.
Re: [..] Texte edit
Posté : mer. 13 juil. 2011 12:55
par TT22
Non, je parlais bien de ça
Re: [..] Texte edit
Posté : mer. 13 juil. 2011 13:02
par moi
et bien si ce que je pense est vrai il se connecte à l'imprimante par défaut mais si elle est indisponible il l'imprime sur une autre, je ne sais pas trop
.
il faudrait trouver une
.
