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.

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
Je vous remercie d'avance pour l'aide que vous m'apporterez.

Cordialement,