Discussion :

[Oh!Tofocus]

Bonjour j'ai écrit cette macro qui élimine les ligne vides d'un fichier TXT

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub suprime_ligne_vide()
    Dim data
    On Error GoTo finSub
    Open "C:\TEXTE1.TXT" For Input As #1
    Open "C:\TEXTE2.TXT" For Append As #2
    Do Until EOF(1)
        Input #1, data
        If data <> "" Then Print #2, data
    Loop
    Close #1
    Close #2
    Kill "C:\TEXTE1.TXT"
    Name "C:\TEXTE2.TXT" As "C:\TEXTE1.TXT"
finSub:
End Sub

Mais j'ai un problème

Si il existe une ligne avec une virgule la macro considère que la virgule est une ligne vide ,l'élimine et passe à la ligne suivante

exemple :
attention à la virgule, aidez moi!

donne 2 lignes

attention à la virgule
aidez moi!

[babaothe]

salut
il te faut utiliser Line Input et non input. Line Input lira toute la ligne (avec ou sans virgule) jusqu'à la ligne suivante.

[Oh!Tofocus]

Merci babaothe pour ta réponse rapide.

j'ai rajouté au passage un petit trim(data) pour aussi éliminer les ligne d'espaces !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub suprime_ligne_vide()
    Dim data
    On Error GoTo finSub
    Open "C:\TEXTE1.TXT" For Input As #1
    Open "C:\TEXTE2.TXT" For Append As #2
    Do Until EOF(1)
        Line Input #1, data
        If Trim(data) <> "" Then Print #2, data
    Loop
    Close #1
    Close #2
    Kill "C:\TEXTE1.TXT"
    Name "C:\TEXTE2.TXT" As "C:\TEXTE1.TXT"
finSub:
End Sub

Je vais passer tous mes macros qui ressemblent à des gruyères dans ma petite moulinette. et hop tout propre tout neuf

A+