[..] Lire/Editer/sauvegarder un fichier texte.

[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

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

[Josef]

Ne marche pas..

Je peux supprimé les lettres, mais pas réécrire

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

[Josef]

Ne marche toujours pas.

[jbnh]

Avec fileread / filewrite / guictrlsetdata et quelques essais, ca devrait passer

[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