Spliter un document texte

Bonjour à tous, je ne trouve pas de discussion a ce sujet...

J'ai script qui lit un fichier texte qui a cette forme :
c:\fichier.txt :
Michel:Dupont:0189093434:9 aller de truc muche:consultant

J'aimerais avoir chaque champs dans des variables..

Mon script vbs :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

'<<<<<<< LECTURE d'un fichier >>>>>>>>>>>>   'déclaration file system object Dim fso   'instanciation Set FSO = CreateObject("Scripting.FileSystemObject")   'on instance le fichier texte Set Ftxt = FSO.OpenTextFile("c:\fichier.txt")   'on parcours chaque ligne du fichier texte Do While Not Ftxt.AtEndOfStream MaVariable = Ftxt.Readline '....... <- votre code ici pour traiter chaque ligne MsgBox MaVariable Loop   Ftxt.Close

---

Bonjour,

Voici le code qui pourrait être ajouté :

Code:

---

1 2 3 4 5 6

Dim tab = Split(MaVariable,':', 4, vbtextCompare) dim nom = tab(0) dim telephone = tab(1) dim adresse = tab(2) dim fonction = tab(3)

---

Cordialement,
A.

merci, que signifie "vbtextCompare" ??

Bonjour,

En fait, le 4ième paramètre (optionnel) compare n'est ici pas nécessaire.
Tu peux te contenter de :

Code:

---

Dim tab = Split(MaVariable,':', 4)

---

voire même de :

Code:

---

Dim tab = Split(MaVariable,':')

---

Néanmoins pour répondre à ta question, le 4ième paramètre spécifie le type de comparaison utilisée lors du split.
vbTextCompare assimile 'M' à 'm' par exemple. Au contraire vbBinaryCompare considère 'M' comme différent de 'm'.
Ton séparateur étant ':', le problème ne se pose pas.

Cordialement,
A.

Très bien merci à toi pour ces explications.

' étant le caractère permettant d'écrire des commentaires, la fin de la ligne suivante ne va t elle pas être considéré comme un commentaire ?

Code:

---

Dim tab = Split(MaVariable,':', 4, vbtextCompare)

---

J'aurais plutôt ecrit cela :

Code:

---

Dim tab = Split(MaVariable,":", 4, vbtextCompare)

---