Bonjour, Je cherche à faire la manip suivante.
Ouverture d'un fichier texte.
Lecture d'une ligne de texte.
Si la ligne est correcte, je la supprime du fichier.
Lecture ligne suivante, etc, etc.

Je ne trouve pas de fonction qui permette cela.

Quelqu'un aurai une solution à me proposer ?
D'avance merci

Il faut passer par un fichier temporaire ...

Dim buffer as string Open "MonFic.txt" for input as #1 Open "MonFic.tmp" for Output as #2 While not eof(1) line input #1,Buffer If "La ligne est incorrecte" then Print #2, buffer End If Wend Close #1 Close #2 Kill "MonFic.txt" Name "Monfic.tmp" As "MonFic.txt"

Christophe R.

Queske tu entend par: la ligne est correcte ?
exemple:

ligne = "ligne correct" ??

crenaud76 a été plus rapide que moi


bonne prog

filipe35

En fait cette solution ne me convient pas car je peux avoir deux type d'ereur dans la lecture.
Erreur dans la syntaxe de la ligne (exemple chaine alpha à la place de numérique) . Cette erreur est gérable facilement.
Erreur lors de l'execution de la ligne (Plantage dû à espace disque par exemple).
Dans le premier cas cela pourrai fonctionner mais dans le second cas, cela stop mon application avant que le programme fasse le kill et le rename.

Michel

Salu mbar,

Tu n'as qu'à ouvrir le fichier texte dans un textbox ou plutot un listbox :

Sub Ouverture()
Open "fichier texte" for input as 1
Wile not eof(1)
input #1, temp
list.additem temp
Close 1
End sub

Tu analyses le fichier:

Sub Analyse()
'a as integer
a=0
For i=0 to list.count-1
If list.list(a) = "la phrase correcte" then
list.removeitem a
goto suite
End if
a=a+1
suite:
Next i
End Sub

tu enregistres le fichier :

Sub Enregistre()
Open "fichier texte" for input as 1
For i=0 to list.count-1
Print #1, list.list(i)
Next i
Close 1
End Sub

Voila
N$

Je ne peux pas car c'est un programme qui fonctionne sans form à intervalles réguliers.

Sinon est-il possible d'effacer la ligne sans la supprimer? De faire un write d'une ligne blanche dans le fichier de lecture ?

Tu n'as qu'à stocker ton fichier dans un tableau dynamique et tu reprends le principe proposé par NicoSoft.

Je ne peux pas pré-analyser le contenu du fichier avant.
En fait, il s"agit d'un fichier contenant des informations de gestions commerciales. Ainsi, lorsque j'analyse une ligne de commande, je vérifie, par exemple, que le client et l'article existe dans ma base de données et dans un cas j'integre la ligne dans ma base ou bien je la rejette. Je precise que l'article peut-être créer par un enregistrement de mon fichier (avant la création de ma ligne de commande bien entendu.)
Mon fichier peut-être structuré de la façon suivante :
création article Truc1
création client Toto
Création commande pour toto avec article Truc1
Création commande pour toto avec article Truc2 (ok si truc2 existait déjà dans ma base de données)
Etc...