Script for changing and adapting the data type of objects

Code:
--[[Script zum automatischen Anpassen der Gruppenadressen -- Version 4.3
  Der Script wird als zyklischer Script gestartet und deaktiviert sich nach einem Durchlauf selbst.


  Datentypen die Angepasst werden sollen 
  Von: ]]
Datentyp1 = 1                 --bool
Datentyp2 = 3                 --no Control
Datentyp3 = 5                 --1Byte
Datentyp4 = 9                 --2Byte

--Nach:
Datentypneu1 = 1001         --schalten
Datentypneu2 = 3007         --dimmen
Datentypneu3 = 5001         --prozent
Datentypneu4 = 9             --2Byte Gleitkomma

ausnahme1 = 'szen'             --Ausnahmen für die Umwandlung (alles was im Namen szen enthält z.B. "Szenennebenstelle")
ausnahme2 = 'Szen'
ausnahme3 = 'art%s*seq'     --Ausnahmen für die Umwandlung (alles was im Namen art Seq enthält z.B. "Start Sequenz")
ausnahme4 = 'art%s*Seq'
ausnahme5 = 'etriebs%s*mod' --Ausnahmen für die Umwandlung (alles was im Namen art etriebs mod enthält z.B. "Heizung Betriebsmodus")
ausnahme6 = 'etriebs%s*Mod'
ausnahme7 = 'modus'            --Ausnahmen für die Umwandlung (alles was im Namen art etriebs modus enthält z.B. "Lüftung - Modus 1")
ausnahme8 = 'Modus'
ausnahme9 = '%s*mode'
ausnahme10 = '%s*Mode'
ausnahme11 = 'etrieb'         --Ausnahmen für die Umwandlung (alles was im Namen etrieb  enthält z.B. "Heizung Betriebvorwahl")

temp1 = 'temp'                 --Formatanpassung Temperatur (alles was im Namen temp enthält z.B. "Aussentemperatur" wird die Einheit "°C" angefuegt)
temp2 = 'Temp'                 --Formatanpassung Temperatur
wind1 = 'windgesch'             --Formatanpassung Windgeschwindigkeit (alles was im Namen windgesch enthält z.B. "Windgeschwindigkeit" wird die Einheit "m/s" angefuegt)
wind2 = 'Windgesch'         --Formatanpassung Windgeschwindigkeit
hell1 = 'helligke'             --Formatanpassung Helligkeit (alles was im Namen helligke enthält z.B. "Helligkeit Aussen" wird die Einheit "lux" angefuegt)
hell2 = 'Helligke'             --Formatanpassung Helligkeit


--++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- Ab hier nichts mehr Verändern!
-- by Simon Epp
--++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

--##############################################################################################################
--Datenanpassung
--##############################################################################################################

angepassteobjekte = 0
durchlauf = 1

--++++++++++++++++++++++++++++++
--Suchen der Objekte
--++++++++++++++++++++++++++++++

tabelle1 = grp.dpt(Datentyp1,true)
tabelle2 = grp.dpt(Datentyp2,true)
tabelle3 = grp.dpt(Datentyp3,true)
tabelle4 = grp.dpt(Datentyp4,true)

anzahl1 = table.maxn(tabelle1)
anzahl2 = table.maxn(tabelle2)
anzahl3 = table.maxn(tabelle3)
anzahl4 = table.maxn(tabelle4)

repeat --Wiederholen bis alle Datentypen angepasst wurden.
  
--+++++++++++++++++++++++++++++++++++++++++++++++++++++++
--Auswahl der Datentypen die angepasst werden sollen
--+++++++++++++++++++++++++++++++++++++++++++++++++++++++

  if (anzahl1 > 0) then
    tabelleadressen = tabelle1
    datentypneu = Datentypneu1
    anzahl = anzahl1
    anzahl1 = 0
    goto Datenformate
  else
    if (anzahl2 > 0) then
      tabelleadressen = tabelle2
      datentypneu = Datentypneu2
      anzahl = anzahl2
      anzahl2 = 0
      goto Datenformate
    else
      if (anzahl3 > 0) then
        tabelleadressen = tabelle3
        datentypneu = Datentypneu3
        anzahl = anzahl3
        anzahl3 = 0
        goto Datenformate
      else
        if (anzahl4 > 0) then
          tabelleadressen = tabelle4
          datentypneu = Datentypneu4
          anzahl = anzahl4
          anzahl4 = 0
          goto Datenformate
        else
          storage.set('Automatisch_angepasste_Objekte',angepassteobjekte)
          durchlauf = 0
          goto Endedatenanpassung
        end
      end
    end
  end
  
  --+++++++++++++++++++++++++++++++++++++++++++++
  --Datenformate
  --+++++++++++++++++++++++++++++++++++++++++++++
  ::Datenformate::
  
   repeat
    alteadresse = tabelleadressen[anzahl].address --Holen der bestehenden Gruppenadressen.
    
  formatstandart = {
    datatype = datentypneu,
    address = alteadresse,
      comment = 'Datentyp automatisch angepasst'
  }

  formattemperatur = {
    datatype = 9001,
    address = alteadresse,
    units = ' °C',
    comment = 'Datentyp automatisch angepasst, Einheit automatisch ergaenzt.'
  }

  formathelligkeit = {
    datatype = datentypneu,
    address = alteadresse,
    units = ' lux',
    comment = 'Datentyp automatisch angepasst, Einheit automatisch ergaenzt.'
  }

  formatwindgeschwindigkeit = {
    datatype = datentypneu,
    address = alteadresse,
    units = ' m/s',
    comment = 'Datentyp automatisch angepasst, Einheit automatisch ergaenzt.'
  }

    --++++++++++++++++++++++++++++++++++++++++++
    --Überprüfen der Ausnahmen
    --++++++++++++++++++++++++++++++++++++++++++
    a1 = string.find(tabelleadressen[anzahl].name,ausnahme1)
    a2 = string.find(tabelleadressen[anzahl].name,ausnahme2)
    a3 = string.find(tabelleadressen[anzahl].name,ausnahme3)
    a4 = string.find(tabelleadressen[anzahl].name,ausnahme4)
    a5 = string.find(tabelleadressen[anzahl].name,ausnahme5)
    a6 = string.find(tabelleadressen[anzahl].name,ausnahme6)
    a7 = string.find(tabelleadressen[anzahl].name,ausnahme7)
    a8 = string.find(tabelleadressen[anzahl].name,ausnahme8)
    a9 = string.find(tabelleadressen[anzahl].name,ausnahme9)
    a10 = string.find(tabelleadressen[anzahl].name,ausnahme10)
    a11 = string.find(tabelleadressen[anzahl].name,ausnahme11)
  
    if ( a1 == nil and a2 == nil and a3 == nil and a4 == nil and a5 == nil and a6 == nil and a7 == nil and a8 == nil and a9 == nil and a10 == nil and a11 == nil )then
      anpassung = true
    else
      anpassung = false
    end
    
    --++++++++++++++++++++++++++++++++++++++++++
    --Überprüfen der Formate
    --++++++++++++++++++++++++++++++++++++++++++
    ft1 = string.find(tabelleadressen[anzahl].name,temp1)
    ft2 = string.find(tabelleadressen[anzahl].name,temp2)
    fh1 = string.find(tabelleadressen[anzahl].name,hell1)
    fh2 = string.find(tabelleadressen[anzahl].name,hell2)
    fw1 = string.find(tabelleadressen[anzahl].name,wind1)
    fw2 = string.find(tabelleadressen[anzahl].name,wind2)
    
    if ((ft1 ~= nil or ft2 ~= nil) and datentypneu == Datentypneu4) then
      format = formattemperatur
    else
      if ((fh1 ~= nil or fh2 ~= nil) and datentypneu == Datentypneu4) then
        format = formathelligkeit
      else
        if ((fw1 ~= nil or fw2 ~= nil) and datentypneu == Datentypneu4) then
          format = formatwindgeschwindigkeit
        else
          format = formatstandart
        end
      end
    end
    
    --++++++++++++++++++++++++++++++++++++++++++++
    --Anpassung
    --++++++++++++++++++++++++++++++++++++++++++++
    if anpassung then
      
      grp.create(format)--Anpassung der Datentypen nach dem gewählten Format.
      anzahl = anzahl -1
      angepassteobjekte = angepassteobjekte +1
    else
      anzahl = anzahl -1
      angepassteobjekte = angepassteobjekte +1
    end
      
  until (anzahl == 0)
 
  
  
  ::Endedatenanpassung::
  
until (durchlauf == 0)

--######################################################################################################
--Datenanpassung Ende
--######################################################################################################
script.disable(_SCRIPTNAME)