Effacer dernier ligne d'un .txt

Signaler
Messages postés
35
Date d'inscription
lundi 18 juin 2001
Statut
Membre
Dernière intervention
18 avril 2003
-
Messages postés
35
Date d'inscription
lundi 18 juin 2001
Statut
Membre
Dernière intervention
18 avril 2003
-
Salut tout le monde,
Voila je dois effacer la derniere ligne d'un txt pour cela j'ai tenter ca dans un Append

Do Until EOF(Last)
a$ = ""
Line Input #1, a$
Loop

logiquement il faudrait remplacer input par output mais vb veut pas (normal on est dans un append)

et si jfous ca dans un output ca effacera tout , moi je veux effacer que les dernière ligne!

Bref aidez moi lol, dites moi comment effacer la derniere ligne d'un txt ^^

Quiske ; Quiske@wanadoo.fr ; 92827934 ; quiskefr@hotmail.com ; Aim : LeQuiske ;...

8 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Je te donne une petite suggestion : récupère toutes les lignes de ton fichier texte, puis sauvegarde uniquement celles qui t'interesse par un output.

DARK SIDIOUS
0
Messages postés
35
Date d'inscription
lundi 18 juin 2001
Statut
Membre
Dernière intervention
18 avril 2003

bah vi mais la longeur de ce fichier peut varier selon les pc :-(
Donc je fais quoi une récup en boucle juke a last ?
0
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
A ce moment, une petite bidouille s'impose :

Boucle chaque ligne de ton fichier pour récupérer les lignes une à une, et stocke celles qui n'ont pas besoin d'être effacées dans un autre fichier. Lorsque tu as fini de sauvegarder toutes les lignes à garder, détruit le fichier d'origine, puis renomme le fichier où tu as sauvegarder les anciennes lignes au nom du fichier détruit.

DARK SIDIOUS
0
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
A ce moment, une petite bidouille s'impose :

Boucle chaque ligne de ton fichier pour récupérer les lignes une à une, et stocke celles qui n'ont pas besoin d'être effacées dans un autre fichier. Lorsque tu as fini de sauvegarder toutes les lignes à garder, détruit le fichier d'origine, puis renomme le fichier où tu as sauvegarder les anciennes lignes au nom du fichier détruit.

DARK SIDIOUS
0
Messages postés
35
Date d'inscription
lundi 18 juin 2001
Statut
Membre
Dernière intervention
18 avril 2003

Ah bonne id ca ^^

Ca donnerait un truc du style ? :

Dans general:
Dim comptline As Long
Dim var As Integer

dans Form_Load:
comptline = 0

Dans le command_button:

Open "C:\SIERRA\Half-Life\cstrike\config.cfg" For Input As #1
Do Until EOF(Last)
comptline = comptline + 1
Do Until EOF(comptline)
var = "ligne" + comptline
Line Input #1, var
Loop
Loop
Close

et aprés jcré un new fichier avec tout les var que j'ai ?

Bon ok jsuis un débutant et je pense que c pas bon ce code lol mais si kkun pouvait me donner le bon ca serait super :o))
Je pense qu'il doit d'agir d'une autre méthode pour connaitre le nb de lignes ; alors las il me suffirait de faire un truc + simple que je ne tapperais pasl ol

Bref Help Me!
0
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Oui, c'est à peu près çà, sauf qu'il faut sauvegarder tes lignes en même temps que tu les récupère.
Et dans ta boucle, tu ne teste pas les lignes dont tu veux supprimer. Et qu'est-ce que viens faire comptline ici ?

DARK SIDIOUS
0
Messages postés
35
Date d'inscription
lundi 18 juin 2001
Statut
Membre
Dernière intervention
18 avril 2003

Bah j'essaye de conter les lignes pour marreter a la denrierel ol jsais pas faire tu vuex pas me faire un exemple? :!-( stp lol
0
Messages postés
35
Date d'inscription
lundi 18 juin 2001
Statut
Membre
Dernière intervention
18 avril 2003

Bah j'essaye de conter les lignes pour marreter a la denrierel ol jsais pas faire tu vuex pas me faire un exemple? :!-( stp lol
0