problème de lecture fichir, HELP ME

Question

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

cs_rene38 · Answer

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

cs_spiderone · Answer

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 ;-)

Problème de lecture fichir, HELP ME

2 réponses

Discussions similaires