Page 1 sur 1

lecture variable

Publié : dim. 02/janv./2005 17:10
par alain
Bonjour,
je suis debutant et je voudrais savoir comment réaliser le programme qui suit:
1)lecture d'un fichier .txt qui contient ces lignes
$designation designation
$titre titre
$numero numero
2) afficher les valeurs de ces variables dans un tableau pour pouvoir les modifier manuellement
3) enregitrement les nouvelles valeurs dans le fichiers .txt ex:
$designation ceci est un test
$titre exercices
$numero 12/0001
j'ai lu beaucoup de tutorial mais je n'est pas trouver comment faire.
Merci de votre aide.
Alain

Publié : dim. 02/janv./2005 17:51
par hardy

Code : Tout sélectionner


dim donnee.s(1000) ; sachant qu'il n'y a pas plus de 1000 lignes
                              ; ou utiliser des listes chainées
i=0
if openfile(0,file$)
repeat
donnee(i).s=readstring()
i=i+1
until eof(0)
closefile(0)


;modif des données

;sauvegarde:

deletefile(file$)
if openfile(0,file$)
for j=i-1 to 0 step -1
writestring(donnee(j))
next j
closefile(0)
endif
endif


Publié : dim. 02/janv./2005 18:04
par nico
C'est marrant, à la lecture du Post, j'ai l'impression de lire Jbernard13.

Publié : lun. 03/janv./2005 0:06
par Le Soldat Inconnu
Regarde les Preference dans l'aide de PB, c'est ce que tu cherches

Code : Tout sélectionner

; Lecture
OpenPreferences("Fichier.txt")
Texte.s = ReadPreferenceString("Texte", "")
Debug Texte ; On affiche le texte lu
ClosePreferences()

; Modification
Texte = "1245dfgdfg"

; Sauvegarde
If CreatePreferences("Fichier.txt")
  WritePreferenceString("Texte", Texte)
  ClosePreferences()
EndIf