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...
fonction toute simple, non. Il va falloir l'écrire
--------------- Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
en fait ce qu'il y a, c'est que quand je sais comment faire un truc, j'ai pas envie de le faire parce que c'est chiant et donc je cherche un autre moyen
mais je crois que je vais devoir me faire chier là
Marsh Posté le 18-02-2004 à 09:33:05
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