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 |
Partager