Problème de lecture fichir, HELP ME

Signaler
Messages postés
30
Date d'inscription
lundi 18 novembre 2002
Statut
Membre
Dernière intervention
5 août 2004
-
Messages postés
30
Date d'inscription
lundi 18 novembre 2002
Statut
Membre
Dernière intervention
5 août 2004
-
voilà ma fonction

je comprends pas les deux dernières lignes du fichier sont igonrées et j'ai encore une ligne blanche à la fin fu fichier cible :-( :-(

'Fonction qui retire les lignes blanches d'un fichier texte
Public Function RelirelignB(fichier1 As String) As String

Dim fichier2 As String
Dim line As String

fichier2 = fichier1 & "_temp"

'ouvre en lecture
Open fichier1 For Input As #3
'ouvre en creation + ecriture
Open fichier2 For Output As #4

'une lecture

Line Input #3, line

While EOF(3) = False


line = Trim(line)
If Len(line) > 0 Then Print #4, line

Line Input #3, line

Wend
'ferme les fichier
Close (3)
Close (4)

End Function

2 réponses

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Public Function RelirelignB(fichier1 As String) As String
Dim fichier2 As String
Dim line As String
fichier2 = fichier1 & "_temp"
Open fichier1 For Input As #3
Open fichier2 For Output As #4
While Not EOF(3)
Line Input #3, line
If Trim(line) <> "" Then Print #4, line
Wend
Close
End Function
0
Messages postés
30
Date d'inscription
lundi 18 novembre 2002
Statut
Membre
Dernière intervention
5 août 2004

ben j'avais déjà essayé comme çà et çà faisait le même mais merci,en fait je viens d'essayer

un if instr(1," ",line,vbBinaryCompare) =0 then je copie la ligne et çà marche

merci ;-)
0