Discussion :

[stevenhab]

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 :
Michelupont:0189093434:9 aller de truc muche:consultant

J'aimerais avoir chaque champs dans des variables..

Mon script vbs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[agamitsudo]

Bonjour,

Voici le code qui pourrait être ajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[stevenhab]

merci, que signifie "vbtextCompare" ??

[agamitsudo]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

voire même de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[stevenhab]

Très bien merci à toi pour ces explications.

[ced600]

' é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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'aurais plutôt ecrit cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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