Supprimer ligne vide dans fichier txt en vbs
Résolu/Fermé
angy21
Messages postés
39
Date d'inscription
vendredi 5 mars 2004
Statut
Membre
Dernière intervention
26 juin 2007
-
21 oct. 2005 à 15:49
Utilisateur anonyme - 15 oct. 2007 à 19:42
Utilisateur anonyme - 15 oct. 2007 à 19:42
A voir également:
- Supprimer ligne vide dans fichier txt en vbs
- Fichier rar - Guide
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Fichier host - Guide
- Fichier iso - Guide
4 réponses
Utilisateur anonyme
15 oct. 2007 à 19:42
15 oct. 2007 à 19:42
Bonjour,
exemple type :
Lupin
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
jami10
Messages postés
1
Date d'inscription
lundi 19 décembre 2005
Statut
Membre
Dernière intervention
19 décembre 2005
19 déc. 2005 à 13:42
19 déc. 2005 à 13:42
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
http://ericrenaud.free.fr/droitefeuilles.htm
et
http://www.excelabo.net/xl/comparer#doublonsfusion
p.legal
Messages postés
88
Date d'inscription
mardi 14 juin 2005
Statut
Membre
Dernière intervention
21 mars 2008
24
20 déc. 2005 à 01:41
20 déc. 2005 à 01:41
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
Si tu souhaite le remercier tu peux le faire directement sur ce post :
http://www.lbasic.atomysk.com/forum/viewtopic.php?p=6597#6597
@++
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/
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/