Discussion :

[smain_inf]

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

Code :

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

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

[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

[smain_inf]

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 :

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

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

[ProgElecT]

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