rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Supprimer ligne vide dans fichier txt en vbs

angy21, le vendredi 21 octobre 2005 à 15:49:24
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 !­
Répondre à angy21  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jami10, le lundi 19 décembre 2005 à 13:42:24
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
   
Répondre à jami10

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
p.legal, le mardi 20 décembre 2005 à 01:41:16
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

@++
   
Répondre à p.legal

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
onix88, le lundi 15 octobre 2007 à 17:20:24
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 : http://www.vbfrance.com/codes/SUPPRIMER-LIGNES-VIDES-FICHIER­-TEXTE_44396.aspx
   
Répondre à onix88

4


  • 1    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
 Lupin.A, le lundi 15 octobre 2007 à 19:42:27
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
   
Répondre à Lupin.A
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger Kidz protection 1.0Kidz protection - Kidz Protection est un logiciel conçu pour tous les parents, afin de gérer l’utilisation des logiciels qui communiquent avec...Catégorie: Contrôle parental
Licence: Freeware/gratuit
Télécharger avast! Virus Cleaner 1.0.211avast! Virus Cleaner - Tout le monde connaît l' antivirus gratuit Avast . Son éditeur propose avast! Virus Cleaner, un nettoyeur de virus...Catégorie: Antivirus
Licence: Freeware/gratuit
Télécharger Unlocker 1.8.7Unlocker - Unlocker est un outil permettant de forcer la suppression d'un fichier lorsque le système refuse de le faire. Unlocker...Catégorie: Gestion de fichiers
Licence: Freeware/gratuit
Télécharger AVS DVD Player 2.4.2.125AVS DVD Player - AVS DVD Player est un lecteur DVD, VIDEO ET AUDIO universel : Supportant une grande variété de formats vidéo : en plus...Catégorie: Lecteurs vidéo
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « supprimer ligne vide dans fichier txt en vbs »