lire une colonne

Citation:

---

Envoyé par bbil

pour la lecture du .csv tu pourrai t'inspirer du code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim fso Dim fCsv Dim tb Const ForReading = 1 Set fso = CreateObject("scripting.filesystemobject") Set fCsv = fso.OpenTextFile("liste.csv", ForReading) If Not fCsv.AtEndOfStream Then fCsv.ReadLine ' lecture ligne d'entête While Not fCsv.AtEndOfStream tb = Split(fCsv.ReadLine, ",") If UBound(tb) = 3 Then Wscript.echo "Nom : " & tb(0) & " prénom :" & tb(1) & " login:" & tb(2) & " mot de passe:" & tb(3) End If Wend

---

---

Bonjour


je veux utilser votre script mais avec une autre façon

j'ai un ficheir csv

Dossier Name
FR99 XXXXXX
ALL_100 YYYYY
Holand zzzzzzzzzzzz

je veux que chaque fois je récupere le nom du Dossier
exemple
tab(0) =FR99
tab(1)=ALL_100
tab(2)=Hola

FR99 c'est un nom de dossier qui existe ,je veux le deplacer dans un autres dossier

Merci


Coridlament

Bonjour,

Je vois trois solutions (en fonction du format de ton fichier) :

1 - Trouver le premier caractère " " (espace) et prendre ce qu'il y a avant (Fonction Instr et Mid)
2 - Utiliser la fonction Split mais avec le séparateur " " (espace)
3 - Utiliser les expressions régulières

Citation:

---

Envoyé par bodbod

Bonjour,

Je vois trois solutions (en fonction du format de ton fichier) :

1 - Trouver le premier caractère " " (espace) et prendre ce qu'il y a avant (Fonction Instr et Mid)
2 - Utiliser la fonction Split mais avec le séparateur " " (espace)
3 - Utiliser les expressions régulières

---

Merci pour la réponse
j'ai utilisé la fonction Split

Code:

---

1 2 3 4 5 6 7

While Not fCsv.AtEndOfStream tb = Split(fCsv.ReadLine, ";")   ReDim Preserve tab(j) tab(j)=tb(0) Wscript.echo "Nom : " & tab(j) j=j+1

---

cordialement

Problème resolu ==========> bouton :resolu: