|
|
|
|
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 !
Je te conseille 2 sites plein d'astuces notemment pour supprimer les lignes vides
|
Voici la reponse à ton probleme !
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,
|
Bonjour,
' 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 |
Clubic annuler suppression fichiers Commande linux lire premiere ligne fichier Comment passer une video dans un fichier pour ds Convertir en ligne video Crée video fichier .dem Forcer la supprission d'un fichier Impossible de supprimer un fichier acces refusé Java "vider" fichier Macro pour copier toutes les ligne non vide Manipulation fichier txt par excel vba Microsoft movie maker probleme importation de video fichier non indexé Probleme suppression fichier xp panneau de config Recuperer fichier supprimé Récupérer fichiers supprimés Supprimer ligne fichier texte shell Supprimer son avs video editor Trouver la derniere ligne vide vba Vider fichier temporaire % dans exécuter
