Fichier txt

cs_dede86 Messages postés 14 Date d'inscription dimanche 8 décembre 2002 Statut Membre Dernière intervention 20 juillet 2006 - 8 janv. 2003 à 17:25
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 9 janv. 2003 à 02:12
Bonjour,
j'ai un fichier txt qui contient plusieurs lignes de data.
Je voudrais pouvoir chercher et supprimer une ligne de données de ce fichier.
La recherche se fait par comparaison suivant une variable VB.
Des que la ligne est trouvée, je voudrais pouvoir la supprimer du fichier.
Existe t-il des fonctions (comme open, input...) pour faire ça.

Merci par avance
dede86

3 réponses

zelze Messages postés 234 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 30 juillet 2008
8 janv. 2003 à 19:11
je ne connais pas de fonction special mais je pe donner une idee : tu pourrai de servir de l'hexadecimal en lui demandant de chercher une ligne de code hexadecimal précise (traduire le acsii en hexa).
0
zeprogrameur Messages postés 12 Date d'inscription lundi 30 septembre 2002 Statut Membre Dernière intervention 15 mars 2003
8 janv. 2003 à 20:18
A mon avis, le + simple, c'est que pr ttes les lignes de ton fichier, tu fasses:
line input #fr,textline
replace(textline,"ton texte","")
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
9 janv. 2003 à 02:12
La seule façon de supprimer une ligne d'un fichier séquentiel (comme un fichier txt par exemple) c'est de :
-ouvrir le fichier en lecture (Open "C:\Chemin\toto.txt" For Input As #1)
-ouvrir un second fichier en écriture (Open "C:\Chemin\tata.txt" For Output As #2)
-lire chacune des lignes du fichier (Line Input #1, Ligne)
-recopier chacune de ces lignes (sauf la ligne à supprimer) dans le second fichier (Print #2, Ligne)
-fermer les 2 fichiers (Close)
-effacer le premier (Kill "C:\Chemin\toto.txt" )
-renommer le second. (Name "C:\Chemin\tata.txt" As "C:\Chemin\toto.txt" )
0
Rejoignez-nous