Supprimer 1 enregistrement fic séquentiel

Bonjour,
Perso j'ai fait une petite routine, voici la source.

Public Sub Efface_qrg()
'----- chemin
Chemin = App.Path
If Right$(Chemin, 1) <> "" Then
Chemin = Chemin + ""
End If
NFicqrg$ = Chemin + "datamem.txt"
Dataqrz$ = Chemin + "DATAqS.tmp"
'------------FIN-------------

Open NFicqrg$ For Input As 1
Open Dataqrz$ For Output As 2
While Not EOF(1)
Input #1, Var1$, Var2$, Var3$
'Comparaison de trois variables enregistré dans le fichier avec les
nouvelles valeurs saisies.
If Var1$ & Var2$ & Var3$ <> TextVar1$ & TextVar2$ & TextVar3$ Then
' Si elles sont differentes ont les ecrits dans le fichier n° 2
Write #2, TextVar1$ & TextVar2$ & TextVar3$
End If

Wend
Close #2
Close #1
'Rename et efface le fichier temporaire.
Kill NFicqrg$
Name Dataqrz$ As NFicqrg$

End Sub


Si qq à mieux je prend aussi..

Le Yo

"surfeur75" <surfeur75@paris.fr> a écrit dans le message de
news:%23U5a5KHxDHA.1704@TK2MSFTNGP10.phx.gbl...

Bonjour,

Je voudrais savoir si ma méthode est la bonne concernant la

suppression

d'une data dans un fichier séquentiel, je fais ainsi:

-1- Transfert fic_origine dans un fic.tmp (sauf la data à supprimer)
-2- (le tranfert peut aussi être fait dans une liste)
-3- Suppression fic_origine (avec la data à supprimer)
-4- Changement de nom fic_tmp en fic_origine (donc, sans la data

supprimée)

Avez-vous mieux, différent, des commentaires ???
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplacer AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!

Merci, lol, tu fais comme moi, tu supprimes la source,
puis tu renommes le temporaire en source...

-----Message d'origine-----
Bonjour,
Perso j'ai fait une petite routine, voici la source.

Public Sub Efface_qrg()
'----- chemin
Chemin = App.Path
If Right$(Chemin, 1) <> "" Then
Chemin = Chemin + ""
End If
NFicqrg$ = Chemin + "datamem.txt"
Dataqrz$ = Chemin + "DATAqS.tmp"
'------------FIN-------------

Open NFicqrg$ For Input As 1
Open Dataqrz$ For Output As 2
While Not EOF(1)
Input #1, Var1$, Var2$, Var3$
'Comparaison de trois variables enregistré dans le

fichier avec les

nouvelles valeurs saisies.
If Var1$ & Var2$ & Var3$ <> TextVar1$ & TextVar2$

& TextVar3$ Then

' Si elles sont differentes ont les ecrits dans le

fichier n° 2

Write #2, TextVar1$ & TextVar2$ & TextVar3$
End If

Wend
Close #2
Close #1
'Rename et efface le fichier temporaire.
Kill NFicqrg$
Name Dataqrz$ As NFicqrg$

End Sub


Si qq à mieux je prend aussi..

Le Yo

"surfeur75" <surfeur75@paris.fr> a écrit dans le message

de

news:%23U5a5KHxDHA.1704@TK2MSFTNGP10.phx.gbl...

Bonjour,

Je voudrais savoir si ma méthode est la bonne

concernant la

suppression

d'une data dans un fichier séquentiel, je fais ainsi:

-1- Transfert fic_origine dans un fic.tmp (sauf la

data à supprimer)

-2- (le tranfert peut aussi être fait dans une liste)
-3- Suppression fic_origine (avec la data à supprimer)
-4- Changement de nom fic_tmp en fic_origine (donc,

sans la data

supprimée)

Avez-vous mieux, différent, des commentaires ???
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplacer AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était

impossible, alea jacta est!

.