Boucle tri de fichier csv selon identifiant dans cellule

Version imprimable

14/11/2011, 11h16
vbovbo

Boucle tri de fichier csv selon identifiant dans cellule

Bonjour,

Je n'ai plus fait de programation depuis 10ans je pense. Les dernières programmation étaient sous HTML, Delphi et Access.

En parrallel de la lecture des 1147 pages du cours VB.Net, je vous pose ma question.

Je dois faire un scripte qui va, en boucle, lire dans une arborescence (lecteur de carte SD) identique à chaque carte SD les ou les fichiers log s'y trouvant, allez lire la valeur de la cellule AZ1440 et selon le contenu, le placer dans un répertoire X.

Ceci pour trier les fichiers log d'une installation pour plusieurs clients.

Chaque appareil a un identifiant unique, chaque client a 1 seul appareil.

Le bute de la boucle est donc de toujours aller lire dans le lecteur "k:" par exemple, pour que l'operateur change de carte SD à chaud et que le tri se fasse automatiquement.

J'ai voulu faire en batch, mais apparement trop compliqué d'aller lire une cellule bien précise d'un fichier CSV.

J'ai pensé ensuite au VB, car il est probalbe qu'ultérieurement, ce scripte soit intégré à un fichier Excel (qui lui affichera des courbes selon ces fichiers log).

J'ai proposé en C# vu qu'il y aura une évolution complexe de graphiques, mais cela fut écarté car il faut que cela reste "simple" <- Tout est relatif.

Auriez-vous l'amabilité de m'aiguiller dans le code ?
14/11/2011, 15h57
omen999

bonjour,

Citation:

mais apparement trop compliqué d'aller lire une cellule bien précise d'un fichier CSV.

une piste pour parser un fichier CSV en vbscript avec ADO
(le chapitre "So How Do I Use ADO to Query a Text File?")

Merci pour l'info.

Pour finir, j'essaye de le faire sous Visual Basic express 2010.

Donc, avec ce code je peux aller lire le fichier, mais comment mettre dans une variable "variable1" le contenu de la cellule AZ1440 ou 51,1440 ?
Code:

1 2 3 4 5 6 7 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Databases\PhoneList.csv", 1) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine Wscript.Echo strLine Loop objFile.Close
Est-ce que je peux prendre aléatoirement(vu que le programme déplace le fichier, au final tous seront traité) le nom d'un fichier (un de ceux qui existent) et le mettre dans une variable ?