extraire un id a partir d'une chaine

Salut ! Heu j'ai pas tout compris ...
Déjà tu veux lire un fichier liste je crois : Lire un fichier texte
Après tu veux extraire les données d'une chaine de caractères : Extraire des données d'une chaine

En gros ça ferait un truc du style :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Const ForReading = 1, ForWriting = 2 
Dim oFso, f, ligne(), id()
Set oFso = CreateObject("Scripting.FileSystemObject")
 
Set f = oFso.OpenTextFile("c:\Rep\MaListe.txt", ForReading)
nbr_ligne = f.Line ' Récupère le nombre de ligne du fichier
Redim ligne(nbr_ligne), id(nbr_ligne) ' Redimentionne les variables selon le nombre de ligne
f.close
 
Set f = oFso.OpenTextFile("c:\Rep\MaListe.txt", ForReading)
i = 0
while Not f.AtEndOfStream 
Ligne(i) = f.Readline ' Lit chaque ligne 
id(i) = left(Ligne(i), 7) ' Récupère les 7 premiers caractères en partant de la gauche (7 = longueur d'un ID)
wscript.echo id(i) 'Affiche les ID
i = i + 1
Wend
f.Close

J'espère que ça pourra t'aider ...
++