Supprimer ligne vide dans fichier txt en vbs [Résolu/Fermé]

Signaler
Messages postés
39
Date d'inscription
vendredi 5 mars 2004
Statut
Membre
Dernière intervention
26 juin 2007
-
 Utilisateur anonyme -
Bonjour,

J'ai en effet un fichier TXT mais il comporte des lignes vides. Exemple :

TOTO
TATA


TITI

TOTU

TITA


Et je voudrais obetenir ceci :
TOTO
TATA
TITI
TOTU
TITA


Depuis ce matin je fais des recherches sur le net mais en vain alors je tourne à nouveau vers vous car a chaque fois vous m'avez aidé et trouver une solution. Pouvez-vous encore une fois svp m'aider ?

Merci par avance

------
Angy qui veut mettre plus de flèches à son arc
Tout problème à 1 solution mais le + dur est de la trouver !

4 réponses


Bonjour,

exemple type :

' Fichier LireFichier.vbs
'
'
Const cteLecture = 1
Const cteEcriture = 2
Const cteFichierSrc = "C:\Documents Local\Test_in.txt"
Const cteFichierDes = "C:\Documents Local\Test_out.txt"

	Dim objFSO, objFichierSrc, objFichierDes, Texte

	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFichierSrc = objFSO.OpenTextFile(cteFichierSrc, cteLecture)
	Set objFichierDes = objFSO.CreateTextFile(cteFichierDes, cteEcriture)

	While Not objFichierSrc.AtEndOfStream
		Texte = objFichierSrc.ReadLine
		Texte = Trim(Texte)
		If ( Len(Texte) > 0 ) Then
			objFichierDes.Writeline Texte
		End If
	Wend

	objFichierSrc.Close
	objFichierDes.Close

	Set objFichierSrc = Nothing
	Set objFichierDes = Nothing
	Set objFSO = Nothing

WScript.Quit(0)

Lupin
6
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
1
Date d'inscription
lundi 19 décembre 2005
Statut
Membre
Dernière intervention
19 décembre 2005

je te conseille 2 sites plein d'astuces notemment pour supprimer les lignes vides
http://ericrenaud.free.fr/droitefeuilles.htm
et
http://www.excelabo.net/xl/comparer#doublonsfusion
Messages postés
88
Date d'inscription
mardi 14 juin 2005
Statut
Membre
Dernière intervention
21 mars 2008
23
Voici la reponse à ton probleme !
j'ai mis ton problème sur le site de Liberty BASIC France et certains utilisateurs m'ont renvoyé leur réponse.
En voici une :
il s'agit d'un programme ecrit en Liberty BASIC par MC-kurt

filedialog "Ouvrir un fichier", "*.txt", cheminFichier$ 'demande l'ouverture d'un fichier
if fcheminFichier$ = "" then end 'Si aucun fichier n'est sélectionné, terminer le programme
longChemin = len(cheminFichier$) 'revoie la longeur du chemin du fichier
cheminEnreg$ = left$(cheminFichier$, (longChemin-4)) +"-2.txt" 'cré un fichier en enlevant 4 caractères au chemin d'origine (.txt) et y ajoute "-2.txt"
open cheminFichier$ for input as #Fichier 'ouvre le fichier sélectionné
open cheminEnreg$ for output as #enregFichier 'ouvre le fichier à enregistrer
while eof(#Fichier) = 0 'regarde si il n'est pas à la fin du fichier
    input #Fichier, Ligne$ 'récolte la ligne du fichier
    if Ligne$ <> "" then print #enregFichier, Ligne$ 'teste si il y a bien un caractère, et si oui l'enregistre dans le nouveau fichier
wend
close #Fichier 'ferme le 1er fichier
close #enregFichier 'ferme le 2nd fichier
end 'fin du programme 


Si tu souhaite le remercier tu peux le faire directement sur ce post :
http://www.lbasic.atomysk.com/forum/viewtopic.php?p=6597#6597

@++
Bonjour,

je ne sais pas si ton problème est réglé mais j'ai fait une form en VB.NET à parfaire, je l'ai déposé sur codes-sources.com : https://codes-sources.commentcamarche.net/