je récupère des lignes dans un fichier, puis je fais un split sur " ", puis j'affiche sans les espaces de début et de fin:
dim moiur() as String
Set Fs = CreateObject("Scripting.FileSystemObject" )
Set Fichier = Fs.OpenTextFile(path, ForReading)
Ligne = Fichier.ReadLine
moiur = Split(ligne, " " )
If Not UBound(moiur) = -1 Then
For i = 0 To UBound(moiur)
mot = Trim(LTrim(RTrim(moiur(i))))
Debug.Print Trim(LTrim(RTrim(mot)))
Next i
End If |
problème: comment "trimer" les tabulations (parce que ca ne le fait pas là )
C'est pour savoir s'il existe une fonction toute faite ou si je fais le "split" moi même...
mercito
---------------
oui oui