Bonjour,
Je me permets d'ouvrir une conversation car je me retrouve coincé. Dans le cadre du développement d'une application de supervision, je dois analyser et traiter les informations d'un fichier CSV. Je dois y récuperer une valeur de référence pour du déclenchement d'alarmes entre autre. Il faut que je récupère les informations colonne par colonne de la ligne correspondant à la dernière heure du jour J à disposition dans le fichier.
Dans une autre conversation j'ai pu trouver un début de réponse qui m'a permis de faire le script suivant mais ce dernier ne fonctionne pas (je n'ai pas de valeurs dans les propriétés que j'essaye d’écrire). Étant débutant, je sollicite votre aide car je n'arrive pas à m'en sortir. Je vous remercie d'avance.
Je vous remercie d'avance pour l'aide que vous m'apporterez.
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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57 Option Explicit '****************************************************************************************** '****************************************************************************************** 'Script de restitution de valeur d'un fichier CSV 'Le but de ce script à terme sera de permettre l'extraction de la dernière valeur du jour 'de chacune des colonnes.Cette information remontera sur l'une des propriétés du composant 'parent. '****************************************************************************************** '****************************************************************************************** 'Déclaration des variables Dim objFSO, objFile, strLine, arrFields, strNewContent Dim Mydate, MyTime, MyDateAndTime, MyHour, i Mydate = DateValue(Date) MyTime = TimeValue(Time) 'Création de la Variable d'heure, on extrait les 2 premiers caractère de la chaine. Myhour = Left(MyTime, 2) 'Création d'une variable contenant la date et l'heure actuelle MyDateAndTime = Mydate & " " & MyHour & ":00" 'Permets la création d'un objet de scriptiing afin de lire un fichier ligne par ligne Const ForReading = 1 'Crée l'objet de scripting et lui demande d'aller lire le Fichier TEST.csv Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Panorama\Orange Beaublanc_Current\Files\TEST.csv", ForReading) 'Jusqu'a ce que l'objfile soit à la fin on lit le fichier ligne par ligne et on sépare les colonne grace au séparateur ";" 'si à l'intérieur d'une colonne on trouve "Cool" alors on crée un nouvel élément et on le sauvegarde dans un fichier Do Until objFile.AtEndOfStream strLine = objFile.ReadLine 'On découpe la ligne colonne par colonne; Crée un tableau avec les différentes valeurs de la ligne arrFields = Split(strLine, ";") 'Si dans l'élément arrfields(0) correspondant à la date et l'heure dans le fichier CSV on trouve la valeur "MyDateAndTime" alors on écrit les valeurs dans les propiétés désignées If arrFields(0) = MyDateAndTime Then For i = 1 To UBound(arrFields) PnSetValue "Parent.DataValue" & i, arrFields(i) Next End If Loop 'On ferme l'objet de lecture du fichier CSV objFile.Close
Cordialement,
Partager