Bonjour à tous,
Je travail sur une Supervision de ligne, et je souhaiterais savoir si il est possible d'archiver l'historique des alarmes dans un fichier texte ou excel.
Je suppose qu'il faut utiliser un script VBS mais je m'y connais pas assez pour m'en sortir seul.
Si quelqu'un aurait quelque information sur la démarche à suivre pour y parvenir je suis preneur.
Merci d'avance.
Détails:
TIA V14
WinCC Runtime Professional
[Résolu] Archivage des alarmes -> .txt / .csv
[Résolu] Archivage des alarmes -> .txt / .csv
Dernière modification par Priigame le 29 mars 2018, 15:05, modifié 1 fois.
Re: [TIA] Archivage des alarmes -> .txt / .csv
Bonjour,
J'ai trouver ces explications qui montre la démarche pour archiver des variables défini dans un .txt ou .csv
J'ai fais un premier jet du code proposé:
Cependant il faudrait que je trouve comment récupérer la table des alarmes directement plutôt que définir des variables à écrire.
Merci d'avance.
J'ai trouver ces explications qui montre la démarche pour archiver des variables défini dans un .txt ou .csv
J'ai fais un premier jet du code proposé:
Code : Tout sélectionner
Sub Archivage()
Dim path
Dim delimiter
Dim gap
Dim fo
Dim mode
Const NEU=0
mode = 8
'Selection du format
If SmartTags("bExtension") =0 Then
path = "C:\Users\%USERNAME%\Desktop\datafile.txt"
delimiter=vbTab
gap=vbTab
Else
path = "C:\Users\%USERNAME%\Desktop\datafile.csv"
delimiter=";"
gap=""
End If
'En cas d'erreur
On Error Resume Next
'Crée fichier object
Set fo= CreateObject("FileCtl.File")
'Vérification si aucune erreur n'est arrivée
If Err.Number<> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " " & Err.Description
Err.Clear
Exit Sub
End If
'Ouvrir ou crée un fichier
fo.open path,mode
'Vérification si aucune erreur n'est arrivée
If Err.Number<> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " " & Err.Description
Err.Clear
Exit Sub
End If
'Si le fichier est crée, création de l'entête
If fo.LOF = NEU Then
fo.LinePrint("Date" & gap & gap & delimiter & "Colonne2" & delimiter & "Colonne3" & "....")
End If
'Ecrire les données dans le fichier
fo.LinePrint(Now & delimiter & "Variable1" & delimiter & "Variable2" & "...")
'Fermer le fichier
fo.close
Set fo = Nothing
ShowSystemAlarm "Archive des données effectuées!"
End Sub
Merci d'avance.
Re: [TIA] Archivage des alarmes -> .txt / .csv
Bonjour,
Je connais pas la version TIA Wincc Runtime Pro.
Aurais tu comme sur la version comfort/advanced un objet Archive?
Ça te faciliterai la tache....
Je connais pas la version TIA Wincc Runtime Pro.
Aurais tu comme sur la version comfort/advanced un objet Archive?
Ça te faciliterai la tache....
Re: [TIA] Archivage des alarmes -> .txt / .csv
Bon ben c'est résolu, je cherchais beaucoup trop loin..
En bidouillant un peu dans les paramètres d'archivage c'est possible de le faire directement..
Il suffit de crée une archive d'alarme avec un lieu d'archivage et le format voulu.
Puis dans les propriétés de la Vue des alarmes, dans la partie général sélectionner "Archive des alarmes".
Comment avoir l'air con et chercher dans le vent.
Merci quand même à ceux qui ont jeté un coup d’œil
En bidouillant un peu dans les paramètres d'archivage c'est possible de le faire directement..
Il suffit de crée une archive d'alarme avec un lieu d'archivage et le format voulu.
Puis dans les propriétés de la Vue des alarmes, dans la partie général sélectionner "Archive des alarmes".
Comment avoir l'air con et chercher dans le vent.
Merci quand même à ceux qui ont jeté un coup d’œil
Re: [TIA] Archivage des alarmes -> .txt / .csv
En effet dehell, je viens de voir ça
Merci à toi
Merci à toi