Laurent32

Bonjour,

Problème résolu avec la mise à jour en <span id= »VF » class= »label label-info »>V0.84A10 et vos recommandations.
</span>

Merci,
<div id= »tap-translate »></div>

Bonjour,

Voici les scripts qui me servent à faire communiquer domoticz et WES

Script pour envoyer les données de la téléinfo vers Domoticz

Script de récupération des valeurs des téléinfo du serveur WES
--
commandArray={}

local prefixe = "WES TIC-1 -- "
local WES_url = "http://adminwes:******@192.168.***.150/tic1.cgx"
local fname = "/home/***/domoticz/scripts/XML/tic1.xml"  -- Emplacement du fichier téléchargé du WES sur le Domoticz

-- le device de téléinfo sur Domotics
local device = "Elec"

-- Lit un fichier
local function lectureFichier(fname)
fp = io.open(fname, "r")
if fp == nil then
print(prefixe.."Erreur ouverture fichier '"..fname.."'.")
os.exit(1)
end
xml = fp:read("*a")
fp:close()
return xml
end -- end lectureFichier

-- Extrait les éléments constitutifs du fichier
local function extractElements(tag, xml)
result = {}
local pattern = "<"..tag..">(.-)</"..tag..">"
--print(prefixe.."TAG = " ..tag)
for var in xml:gmatch(pattern) do
--print(prefixe.."VAR = " ..var)
table.insert(result, var)
end

return result
end -- end extractElements

-- Récupération du Fichier xml des pinces

--print("wget -q -O "..fname.." "..WES_url)
os.execute("wget -q -O "..fname.." "..WES_url)
local xml = lectureFichier(fname)
--print(prefixe.. "XML = " ..xml)

-- Extraction des données et affichage

local HC = extractElements("HCHC", xml)
local HP = extractElements("HCHP", xml)
local Pw_I = extractElements("PAP", xml)
local Prod = extractElements("INJECTION", xml)
local PHC = extractElements("PHC", xml)
local PHP = extractElements("PHP", xml)
-- affichage dans domoticz

print(prefixe .."Mise à jour du device "..device.." HC = "..tostring(HC[1]) .."   HP = " ..tostring(HP[1]).." PHC = "..tostring(PHC[1]).. "   PHP = " ..tostring(PHP[1]).." Pw_I = "..tostring(Pw_I[1]).. "   Prod solaire = " ..tostring(Prod[1]).." " )
commandArray = {['UpdateDevice'] = otherdevices_idx[device] .. "|0|" .. tostring(HC[1]) .. ";" .. tostring(HP[1]) ..";" ..tostring(PHC[1])..";" ..tostring(PHP[1]).. ";" ..tostring(Pw_I[1])..";" ..tostring(Prod[1])}
--commandArray = {['UpdateDevice'] = otherdevices_idx[device] .. "|0|" .. HC .. ";" .. HP ..";" ..B..";" ..C.. ";" ..Pw_I..";" ..Prod}

return commandArray

Script pour envoyer les données des pinces vers Domoticz

-- Script de récupération des valeurs des pinces ampèremétrique du serveur WES
--

commandArray={}
--------------------------------------------
------------ Variables à éditer ------------
--------------------------------------------
local debug = false -- true pour voir les logs dans la console log ou false pour ne pas les voir
local prefixe = "WES pinces -- "
local WES_url = "http://adminwes:******@192.168.***.150/pince.cgx"
local fname = "/home/***/domoticz/scripts/XML/pince.xml" -- Emplacement du fichier téléchargé du WES sur le Domoticz
local U = 230 -- Valeur tension secteur

-- les devices : les pinces
-- Les emplacements de pinces non raccordés doivent être marqué Vide
local devices = {"Eclairages","Prises courants","Cumulus","Gros appareils"}

--------------------------------------------
---------------- Fonctions -----------------
--------------------------------------------

-- ci-dessous les lignes à décommenter en cas d'utilisation des fonctions directement dans ce script( supprimer --[[ et --]])
function Loggeur (s, debug) -- nécessite la variable local debug
if (debug) then
if s ~= nil then
print (prefix.." --" ..s)
else
print (prefix.."aucune valeur affichable")
end
end
end -- usage Loggeur(" ??????? ",debug)

-- Lit un fichier
local function lectureFichier(fname)
fp = io.open(fname, "r")
if fp == nil then
print(prefixe.."Erreur ouverture fichier '"..fname.."'.")
os.exit(1)
end
rss = fp:read("*a")
fp:close()
return rss
end -- end lectureFichier

-- Extrait les éléments constitutifs du fichier
local function extractElements(maxTag, tag, xml)
result = {}
local i=0
while i < maxTag do
i = i+1
local pattern = "<"..tag..i..">(.-)</"..tag..i..">"
for var in xml:gmatch(pattern) do
table.insert(result, var)
end
end
return result
end -- end extractElements

-- Récupération du Fichier xml des pinces

Loggeur("wget -q -O "..fname.." "..WES_url, debug)
os.execute("wget -q -O "..fname.." "..WES_url)
local rss = lectureFichier(fname)

-- Extraction des données et affichage
local VAi = extractElements(4, "I", rss)
local VAc = extractElements(4, "INDEX", rss)

-- affichage dans domoticz
for i, device in pairs(devices) do
if ( device ~= "Vide" )
then
local vaI = VAi[i]*U
local vaC = VAc[i]
print(prefixe .."Mise à jour du device "..device.." = "..vaI.. " Index = " ..vaC)
commandArray[i] = {['UpdateDevice'] = otherdevices_idx[device] .. "|0|" .. vaI .. ";" .. vaC}
end
end

return commandArray

<div id= »tap-translate »></div>
<div id= »tap-translate »></div>