Discussion :

[marioTimax]

Salut à tous,

je dois préparer un petit script pour le travail

J'ai un fichier .csv avec deux colonnes (prefixe, nom d'agence)
que je dois simplement faire lire par mon programme et sotocker dans une table à deux colonnes, mais apres avoir regarder hier toute la journée j'arrive à rien... (c'est la 2e fois seulement que je touche au vb)

Si qqun a un exemple ou peut me dire dans les grandes lignes ..

Merci

+
TimoMax

[marioTimax]

Pour l'instant j'ai fais ceci !!
Mais il m'affiche une erreur ligne 15 que je ne trouve pas!

si vous pouvez m'aider.

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 du fichier .csv et stockage dans un tableau
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("D:\script ftp\liste_provider.csv", 1)
 
Dim y()
Row = 0
 
Do While objFile.AtEndOfStream <> TRUE
strLine = objFile.ReadLine
w = Split(strLine,",")
redim preserve y(2,row)
y(0,row) = w(0)
y(1,row) = w(1)
y(2,row) = w(2)
Row =Row + 1
 
Loop
 
WScript.Echo y(2,37) & " " & y(1,22) & " " & y(0,10)

[messinese]

Bonjour , donc encore une fois:

penses a la balise code , merci :

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 du fichier .csv et stockage dans un tableau
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("D:\script ftp\liste_provider.csv", 1)
 
Dim y()
Row = 0
 
Do While objFile.AtEndOfStream <> TRUE
strLine = objFile.ReadLine
w = Split(strLine,",")
redim preserve y(2,row)
y(0,row) = w(0)
y(1,row) = w(1)
y(2,row) = w(2)
Row =Row + 1
 
Loop
 
WScript.Echo y(2,37) & " " & y(1,22) & " " & y(0,10)

Ensuite "ligne 15" ça veux rien dire , expliques-nous l'erreur et la partie du code qui est problematique stp.

[marioTimax]

salut

désolé pour la balise, je n'oublierai plus

Alors il me met erreur

ligne :15
caractère :1
Erreur : Indice en dehors de la plage : '[number:1]'
Code : 800A0009

voilà merci

[messinese]

Re,

Je te suggere alors d'ajouter ceci en début de code

Code :

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

on error resume next

afin de continuer l'execution en cas d'erreur car cela peut simplement etre causé par la strucure du .csv.

Cordialement.

[marioTimax]

Merci beacoup pour ta réponse je viens de tester et effectivement ça marche, mais mnt je suis face à un autre problème, à l'execution du programme il n'y a qu'une entrée qui s'affiche (alors qu'en j'en ai environ 20)

et ce n'est ni la première ni la dernière mais une en plein mileu...

Aurais tu une idée pour que l'entier de mon .csv s'affche ?

[cubitus91]

Salut à tous,

je dois préparer un petit script pour le travail

J'ai un fichier .csv avec deux colonnes (prefixe, nom d'agence)
que je dois simplement faire lire par mon programme et sotocker dans une table à deux colonnes, mais apres avoir regarder hier toute la journée j'arrive à rien... (c'est la 2e fois seulement que je touche au vb)

Si qqun a un exemple ou peut me dire dans les grandes lignes ..

Merci

+
TimoMax

hello,
Pourquoi ne pas utiliser un dictionnaire de données ? tu as le couple clé, valeur.

Code :

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

1
2
3
 
Set DicAgence = CreateObject("Scripting.Dictionary")
DicAgence.Add "prefixe","nom d'agence"

Plus d'info la dessus:
http://www.devguru.com/technologies/...ictionary.html
Cordialement