Probleme d'execution d'action successives
Posté : mar. 30 juin 2020 15:32
Bonjour,
je voulais faire un script qui affiche une liste dans une fenêtre, pouvoir modifier cette liste et l'enregistrer.
le problème c'est que après avoir enregistrer, je me suis aperçu que la liste était doublée.
j'ai voulu modifier cela en enregistrant le fichier sous un autre nom aa un autre emplacement (en tmp.txt) puis copié le tmp.txt au bon emplacement en changeant son nom.
mais voila le probleme est que l'action d'enregistrer s'effectue mais les action suivantes non...
Voila mon Script:
si l'un de vous vois mon erreur je suis preneur
je voulais faire un script qui affiche une liste dans une fenêtre, pouvoir modifier cette liste et l'enregistrer.
le problème c'est que après avoir enregistrer, je me suis aperçu que la liste était doublée.
j'ai voulu modifier cela en enregistrant le fichier sous un autre nom aa un autre emplacement (en tmp.txt) puis copié le tmp.txt au bon emplacement en changeant son nom.
mais voila le probleme est que l'action d'enregistrer s'effectue mais les action suivantes non...
Voila mon Script:
Code : Tout sélectionner
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FileConstants.au3>
$Form = GUICreate("Ajout d'un TAG", 265, 396, 650, 115, $WS_EX_TOPMOST)
$Edit = GUICtrlCreateEdit("", 8, 64, 252, 321)
;$Input = GUICtrlCreateInput("", 32, 24, 265, 21)
$Open = GUICtrlCreateButton("Ouvrir", 8, 24, 75, 25, 0)
$Save = GUICtrlCreateButton("Sauver", 95, 24, 75, 25, 0)
$QUIT = GUICtrlCreateButton("Quitter", 180, 24, 75, 25, 0)
;$Button3 = GUICtrlCreateButton("Nouveau", 488, 24, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Open
$liste = ("AUTOIT\inventaire\liste\liste.txt")
If @error Then
MsgBox(4096,"","La liste est introuvable")
Else
; GUICtrlSetData($Input,$liste)
$open = FileOpen($liste,0)
$read = FileRead($liste)
FileClose($liste)
GUICtrlSetData($Edit,$read)
EndIf
Case $Save
$readctrl = GUICtrlRead($Edit)
FileWrite("AUTOIT\inventaire\liste\tmp\tmp.txt",$readctrl)
FileCopy("AUTOIT\inventaire\liste\tmp\tmp.txt", "AUTOIT\inventaire\liste\liste.txt",9)
;FileDelete("AUTOIT\inventaire\liste\liste1.txt")
Exit
Case $QUIT
Exit
; Case $Button3
; GUICtrlSetData($Edit,"")
EndSwitch
WEnd