Effacer dernier ligne d'un .txt

Quiske Messages postés 35 Date d'inscription lundi 18 juin 2001 Statut Membre Dernière intervention 18 avril 2003 - 10 nov. 2002 à 13:54
Quiske Messages postés 35 Date d'inscription lundi 18 juin 2001 Statut Membre Dernière intervention 18 avril 2003 - 10 nov. 2002 à 20:16
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

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
10 nov. 2002 à 14:38
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
Quiske Messages postés 35 Date d'inscription lundi 18 juin 2001 Statut Membre Dernière intervention 18 avril 2003
10 nov. 2002 à 14:46
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
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
10 nov. 2002 à 15:55
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
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
10 nov. 2002 à 15:55
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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Quiske Messages postés 35 Date d'inscription lundi 18 juin 2001 Statut Membre Dernière intervention 18 avril 2003
10 nov. 2002 à 17:26
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
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
10 nov. 2002 à 18:06
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
Quiske Messages postés 35 Date d'inscription lundi 18 juin 2001 Statut Membre Dernière intervention 18 avril 2003
10 nov. 2002 à 20:15
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
Quiske Messages postés 35 Date d'inscription lundi 18 juin 2001 Statut Membre Dernière intervention 18 avril 2003
10 nov. 2002 à 20:16
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
Rejoignez-nous