Вопросы Разработчикам Скриптов, вопросы по скриптам (мелкие вопросы)

assert(loadstring("tData = {\"some_data\"}"))()

print(tData[1]) -- some_data

local str = "copying"
local tbl = {[1] = "one_more_copying"}

local tData = {
    [1] = 1,
    [str] = str,
    [tbl[1]] = tbl[1]
}

local str = "copying"
local tbl = {[1] = "one_more_copying"}

local tData = {
    [1] = 1
}

setmetatable(tData, {
  __newindex = function(self, key, value)
    print(key, value) -- печатаем устанавливаемые ключ и значение
    rawset(self, key, value) -- непосредственная установка значения
  end
})

tData[str] = str
tData[tbl[1]] = tbl[1]

local tData = {
    [1] = 1,
    [str] = str,
    [tbl[1]] = tbl[1]
}

local str = "copying"
local tData = {
    [1] = 1
}

setmetatable(tData, {
  __newindex = function(self, key, value)
    print(key, value)
    rawset(self, key, value)
  end
})

tData[str] = str -- сработает метод __newindex, так как в таблице нет ключа str
tData[str] = "str" -- метод __newindex НЕ сработает, так как в таблице уже есть ключ str

tData[str] = str -- сработает метод __newindex, так как в таблице нет ключа str
tData[str] = nil -- затираем предыдущее значение
tData[str] = "str" -- сработает метод __newindex, так как в таблице нет ключа str

local str = "copying"
local tData = {}

setmetatable(tData, {
  tTable = {}; -- таблица для хранения данных
  __newindex = function(self, key, value)
    print(key, value)
    getmetatable(self).tTable[key] = value
  end;
  __index = function(self, key)
    return getmetatable(self).tTable[key]
  end;
})

tData[1] = 1
tData[str] = str
tData[str] = "str"

local str = "copying"
local tbl = {[1] = "one_more_copying", [2] = "and_one_more"}

local tData = {
    [1] = 1, -- в моём понимании задано жёстко безо всяких ссылок на другие переменные
    [2] = "Миша", -- здесь тоже задано жёстко безо всяких ссылок на др. переменные
    ["eyes"] = "grey", -- и здесь задано жёстко безо всяких ссылок на др. переменные

    [str] = str, -- а вот это есть ссылка на другую переменную и мне надо "отловить" изменение ключа и его значение
    [tbl[1]] = tbl[1], -- и это есть ссылка на др. переменную и мне тоже надо "отловить" изменение ключа и его значение

    [tbl[2]] = str -- и здесь... вообщем изменения любых ключей и их значений по ссылкам на другие переменные
}

local str = "copying"
local tbl = {[1] = "one_more_copying", [2] = "and_one_more"}

local tData = {
    [1] = 1,
    [2] = "Миша",
    ["eyes"] = "grey"
}

tData[str] = str
tData[tbl[1]] = tbl[1]
tData[tbl[2]] = str

local str = "str"
local t = {[1] = "test"}
local tData = {
  [str] = str,
  ["t"] = t
}

print(tData["t"][1]) -- "test"
t[1] = "test1"
print(tData["t"][1]) -- "test1", так как таблица t передана по ссылке в таблицу tData

print(tData[str]) -- "str"
str = "str1"
print(tData[str]) -- nil, так как в таблице tData нет ключа "str1" (строки всегда копируются)

local SerializeToString = function(tTable, sTableName, sTab)
...

local SerializeToString
SerializeToString = function(tTable, sTableName, sTab)
...

local function SerializeToString(tTable, sTableName, sTab)
...

local function SerializeToString(tTable, sTableName, sTab)

local SerializeToString = function(tTable, sTableName, sTab)

local f1 = function()
  print(f1)
end

local function f2()
  print(f2)
end

f1() -- nil
f2() -- function: 0x803f00

local s = 'здесь заменить вторую "з"'

local s = 'здесь заменить 2-ю букву "з"'
local z,n,t = "z",0,{}  --  "z" - тут для примера ("з" будем менять на "z")
Core.SendToAll("1. "..s)  -- первоначальная фраза
if s:sub(7,7) == "з" then
    for S in string.gmatch(s, ".") do
        n = n + 1
        t[n] = S
        if n == 7 then
            t[n] = z
        end
    end
    s = table.concat(t)
end
Core.SendToAll("2. "..s)  --  результат

        local p = 7
        local s = 'здесь заменить вторую "з"'
        Core.SendToAll (("%s%s%s"):format(s:sub(1,p-1), "z", s:sub(p+1)))

if n == 4 then

module("catalog")

SetData = function(key,value)
  if not tCatalog then
    tCatalog = {}
  else
    tCatalog[key] = value
  end
end

GetData = function()
  return tCatalog
end