[..] Texte edit

[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?

[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

[zeshrek]

@Moi : l'utilisation de la coloration syntaxique est limitée, et n'a pas sa place dans le forum. Merci de corriger

[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+

[TT22]

Tu progresseras plus vite.

Strofe à raison, moi le 18 avril je ne savais presque rien sur Autoit.
Depuis, j'ai beaucoup appris.

[moi]

merci ça marche très bien.
j'ai compris tout le code car je le connaissais mais je ne conaissais pas:

Code : Tout sélectionner

 $txt = GUICtrlRead($e)

[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...

[moi]

j'ai améliorer le script. on peut imprimer le texte avec une imprimante par défaut.

txtedit.au3

(1.53 Kio) Téléchargé 67 fois

[TT22]

Est-ce que ça fonctionne avec les imprimantes en réseau ?

[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.

[TT22]

Non, je parlais bien de ça

[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 .