Easy and fast way to make many similar Rooms in Visualization. Copy of rooms

Code:
--This script will automatically replace middle group and group in KNX addres based on room number.

--For example if room name is Copy 315 then all object on this plan will have addressing X/3/15---

--Script will replace only roome which name will start from 'roomSearch' parameter. This can be modified as many times as it is needed. 

--Be carefull, wrongly used can destroy whole project. Always make buckup before running the script

--Script will disable itself after it is finished. 



roomSearch = 'Copy' -- set constant name which will be starting plan name. 





----------------------------------------------------------------------------------------------------------

-------------------------------DO NOT CHANGE ANYTHING BELOW THIS LINE-------------------------------------



roomSearch = roomSearch..'%'



dbfloors = db:getall('SELECT id, name FROM visfloors WHERE name LIKE '..'"'..roomSearch..'"'..' ')



for _, floorsData in ipairs(dbfloors) do

  floorID  = floorsData.id

  roomName = floorsData.name

  roomNumber = string.match(roomName, "%d+")

  middleGroup = tonumber(string.sub(roomNumber, 1,1))

  group = tonumber(string.sub(roomNumber, 2, 3))

  

  dbobjects = db:getall('SELECT id, type, object, statusobject FROM visobjects WHERE floor = ' .. floorID .. ' AND type < "2"  ')

  

  for _, objectData in ipairs(dbobjects) do

    

    mainGroupControl = bit.rshift(objectData.object, 11)

    mainGroupStatus = bit.rshift(objectData.statusobject, 11)

    

  oldControlAddress = objectData.object

  oldStatusAddress = objectData.statusobject

  currentRow = objectData.id

  newControlAddress = ((mainGroupControl * 2048) + (middleGroup * 256) + group)

  newStatusAddress = ((mainGroupStatus * 2048) + (middleGroup * 256) + group)

  

--  log('oldControlAddress= '..tostring(oldControlAddress)..', currentRow= '..tostring(currentRow)..', newControlAddress= ' ..tostring(newControlAddress)..', newStatusAddress= ' ..tostring(newStatusAddress) )

  db:update('visobjects', { object = newControlAddress }, { id = currentRow })

  if (oldControlAddress == oldStatusAddress) then --if no status object selected main object must be used

  db:update('visobjects', { statusobject = newControlAddress }, { id = currentRow })

    else

  db:update('visobjects', { statusobject = newStatusAddress }, { id = currentRow })

    end

    

  end  

  

  

end  



log('update finished')

script.disable(_SCRIPTNAME)