Corriger un tableau

Question

Salut à tous,

Je débute en VB et j'ai un petit problème sur un tableau créé dans un fichier txt. Je n'arrive pas à le corriger (corriger une valeur par exemple). Je sais qu'il faut créé un autre fichier temporaire... mais comment faire ? Merci pour votre aide.

econs · Answer

salut,

tu enregistre toutes les données de ton fichier texte dans un tableau. 
Tu modifies la ligne du tableau qui t'intéresse.
Tu recopies le tableau dans un fichier.

Supposons que ton ficheir texte soit rempli de 50 entiers :

'Lecture du fichier texte
Dim mon_tableau(50) as Integer
Open "c:\mon_fichier.txt" for Input as #1
For i=1 to 50
input#1,mon_tableau(i)
Next i
Close#1

'Modification du 37 eme élément du tableau
mon_tableau(37) = nouvelle_valeur

'Changement du fichier texte
Kill "c:\mon_fichier.txt"
Open "c:\mon_fichier.txt" for Output as #1
for i=1 to 50
print#1,mon_tableau(i)
Next i
Close#1

Manu

cs_rene38 · Answer

Bonjour
econs > Une petite remarque 

'Changement du fichier texte
Kill "c:\mon_fichier.txt"
'coupure de courant : tout perdu !
Open "c:\mon_fichier.txt" for Output as #1
for i=1 to 50
print#1,mon_tableau(i)
Next i
Close#1

Ma proposition :

Open "c:\mon_fichier_2.txt" for Output as #1
for i=1 to 50
print#1,mon_tableau(i)
Next i
Close#1
Kill "c:\mon_fichier.txt"
Name "c:\mon_fichier_2.txt" As "c:\mon_fichier.txt"

econs · Answer

Oh même sans le kill, une coupure de courant aurait pu être fatale :

Open "c:\mon_fichier.txt" for Output as #1 écrase le précédent. Une coupure juste après et je perd tout ... lol

Bien sûr il faut passer par un fichier intermédiaire ...

 :big) 

Manu

Corriger un tableau

3 réponses

Discussions similaires