Effacer dernier ligne d'un .txt

Question

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 ;...

cs_DARKSIDIOUS · Answer

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

Quiske · Answer

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 ?

cs_DARKSIDIOUS · Answer

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

cs_DARKSIDIOUS · Answer

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

Quiske · Answer

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!

cs_DARKSIDIOUS · Answer

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

Quiske · Answer

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

Quiske · Answer

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

Effacer dernier ligne d'un .txt

8 réponses

Discussions similaires