[Résolu] Archivage des alarmes -> .txt / .csv

Forum traitant des automates industriels de marque Siemens.
Avatar de l’utilisateur
Priigame
Générateur de blocs fonctions
Générateur de blocs fonctions
Messages : 121
Inscription : 08 nov. 2017, 09:28

[Résolu] Archivage des alarmes -> .txt / .csv

Message par Priigame »

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
Dernière modification par Priigame le 29 mars 2018, 15:05, modifié 1 fois.
Avatar de l’utilisateur
Priigame
Générateur de blocs fonctions
Générateur de blocs fonctions
Messages : 121
Inscription : 08 nov. 2017, 09:28

Re: [TIA] Archivage des alarmes -> .txt / .csv

Message par Priigame »

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é:

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
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.
dehell
Codeur fou
Codeur fou
Messages : 236
Inscription : 19 janv. 2016, 09:24
Localisation : Alès

Re: [TIA] Archivage des alarmes -> .txt / .csv

Message par dehell »

Bonjour,
Je connais pas la version TIA Wincc Runtime Pro.
Aurais tu comme sur la version comfort/advanced un objet Archive?
archive.PNG
Ça te faciliterai la tache....
Avatar de l’utilisateur
Priigame
Générateur de blocs fonctions
Générateur de blocs fonctions
Messages : 121
Inscription : 08 nov. 2017, 09:28

Re: [TIA] Archivage des alarmes -> .txt / .csv

Message par Priigame »

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 :D
Avatar de l’utilisateur
Priigame
Générateur de blocs fonctions
Générateur de blocs fonctions
Messages : 121
Inscription : 08 nov. 2017, 09:28

Re: [TIA] Archivage des alarmes -> .txt / .csv

Message par Priigame »

En effet dehell, je viens de voir ça ;)

Merci à toi :D
Répondre