Discussion :

[mohammed_amine_wardy]

Bonjour ,
j'ai besoin d'un script qui me permet d'extraire des ids d'une liste de personnes ( liste contienne le nom, prenom + id 'u456688 ou e568924')
l'idée est de garder juste les Id

u456688 toto albert | | u456688
|-> on doit obtenir ça |
u456689 gilbert colber | |u456689

merci d'avance

[Cachlab]

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 :

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
 
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 ...
++