Page 1 sur 1
[..] Lire/Editer/sauvegarder un fichier texte.
Posté : mar. 21 juil. 2009 20:04
par Josef
Bonjour,
Je souhaiterez Lire,éditer et sauvegarder un fichier texte.
J'ai créer un Edit ( $Edit1 ), puis je souhaite que cette édit lit : data.txt
Ensuite, grâce a cette edit, de le modifier, puis le sauvegarder.
Facile non ? Pas pour moi..Je comprend pas pour les FileRead et FileOpen, car j'arrive pas a édit et je ne sais comment sauvegarder..
Josef
Re: [..] Lire/Editer/sauvegarder un fichier texte.
Posté : mar. 21 juil. 2009 20:49
par orax
Bonjour, voilà un exemple :
Code : Tout sélectionner
GUICreate("")
$f=FileRead("data.txt")
$Edit1=GUICtrlCreateEdit($f,100,100)
;~ vous pouvez aussi utiliser GUICtrlSetData($Edit1,$f) pour remplire l'edit
GUISetState()
Sleep(10000)
$hF=FileOpen("data.txt",2)
FileWrite($hF,GUICtrlRead($Edit1))
FileClose($hF)
Re: [..] Lire/Editer/sauvegarder un fichier texte.
Posté : mer. 22 juil. 2009 00:30
par Josef
Ne marche pas..
Je peux supprimé les lettres, mais pas réécrire
Re: [..] Lire/Editer/sauvegarder un fichier texte.
Posté : mer. 22 juil. 2009 01:27
par orax
Code : Tout sélectionner
GUICreate("")
$f=FileRead("data.txt")
$Edit1=GUICtrlCreateEdit("",100,100)
GUISetState()
GUICtrlSetData($Edit1,$f)
Sleep(10000)
$hF=FileOpen("data.txt",2)
FileWrite($hF,GUICtrlRead($Edit1))
FileClose($hF)
Re: [..] Lire/Editer/sauvegarder un fichier texte.
Posté : mer. 22 juil. 2009 12:03
par Josef
Ne marche toujours pas.
Re: [..] Lire/Editer/sauvegarder un fichier texte.
Posté : mer. 22 juil. 2009 16:02
par jbnh
Avec fileread / filewrite / guictrlsetdata et quelques essais, ca devrait passer
Re: [..] Lire/Editer/sauvegarder un fichier texte.
Posté : jeu. 23 juil. 2009 12:04
par ani
Voici un petit exemple pour lire/editer/sauvegarder
une ébauche
► Afficher le texte
Code : Tout sélectionner
$Form = GUICreate("", 587, 396, 193, 115)
$Edit = GUICtrlCreateEdit("", 8, 64, 569, 321)
$Input = GUICtrlCreateInput("", 32, 24, 265, 21)
$Button1 = GUICtrlCreateButton("Ouvrir", 312, 24, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Sauver", 400, 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 $Button1
$File = FileOpenDialog("",@ScriptDir,"Text files (*.txt)",1)
If @error Then
MsgBox(4096,"","Vous n'avez selectionner de fichier")
Else
GUICtrlSetData($Input,$file)
$open = FileOpen($File,0)
$read = FileRead($open)
FileClose($open)
GUICtrlSetData($Edit,$read)
EndIf
Case $Button2
$readctrl =GUICtrlRead($Edit)
FileWrite(@ScriptDir & "\sauvegarde.txt",$readctrl)
Case $Button3
GUICtrlSetData($Edit,"")
EndSwitch
WEnd
bonne continuation