PureBasic

Bonjour tous le monde, voila je cherche à a enregistrer le contenue d'un stringgadget dans un fichier texte, mais à chaque fois que je clique sur mon boutton ca m remplace ma premiere ligne dans mon fichier. j'aimerais qu'a chaque clique ca saute une ligne et ca inscrit le contenue.

voici le code que j'utilise

Code : Tout sélectionner

If OpenFile(1, "Favoris.txt") 
       file$ = GetGadgetText(#String_0) 
       WriteStringN(1, file$ , #PB_Ascii) 
EndIf

fileseek

Merci nico mais tu aurrait plus de presision ?

dans l'aide de fileseek il y a un exemple, regarde pour ajouter ça dans ton code.

Code : Tout sélectionner

      length = Lof(1)                       ; Lit la taille en octets du fichier
      FileSeek(1, length )

oui mais ca m'inscrit le contenue à la suite sur la même ligne, je cherche à ce que chauque contenue enregistrer dans mon fichier soit sur une ligne chaqun.

Exemple:

Contenue1
Contenue2
Contenue3
...

Et non:

Contenue1 Contenue2 Contenue3...

au moment de l'ecriture de ta ligne ,
regarde dans l'aide , la difference entre un
WriteString
et un
WriteStringN !!

Je doit être trop teubé mais la je vois pas Dobro.

MetalOS a écrit :Je doit être trop teubé mais la je vois pas Dobro.

WriteStringN(#Fichier, Texte$ [, Options])
Description

Ecrit une chaîne de caractères dans le #Fichier suivie du code 'Fin de Ligne'.

ce code de fin de ligne, c'est ce qui permet d'avoir

ligne 1
ligne 2

au lieu de :

ligne1 ligne 2

et voici ce qu'il faut faire pour ajouter a la fin d'un fichier une ligne avec RETOUR CHARIOT !! (CHR(10) CHR(13))

Code : Tout sélectionner

 Resultat = OpenFile(1, "tampon.txt")
FileSeek( Lof() ) ; va a la fin du fichier 
WriteStringN(1, Text$) ; écris la ligne AVEC retour chariot le "N" sert a ça !! 
CloseFile(1)

PureBasic

Ecriture dans un fichier texte

Ecriture dans un fichier texte