Цитатник Рунета, API1, API2 | Показывает цитаты с bash.org.ru

    DoNeedFormat(tAllData[tNumbers[iNumber]]["sData"]).."\r\n"..

tAllData = {
    [402841] = {
    },
    [402873] = {
    },
}

function ParseData(sIncomingBuffer)
    local iAdded = 0
    local tNeedToGsub = {
        ["\t"] = "",
        ["\r"] = "",
        ["\n"] = "",
        ["&lt;"] = "<",
        ["&gt;"] = ">",
        ["&quot;"] = "\"",
        ["&amp;"] = "&",
        ["&minus;"] = "-",
    }
    for sWhatNeedToGsub, sToWhat in pairs(tNeedToGsub) do
        sIncomingBuffer = sIncomingBuffer:g(sWhatNeedToGsub, sToWhat)
    end
    local sIncomingBuffer = sIncomingBuffer:g("<br>", "\r\n")
    local sNeedInfo = ""
    for sNeedInfo in sIncomingBuffer:gmatch("(<div class=\"q\">.-</body>)") do
        local _,_, sTitle = sNeedInfo:find("<a href=\"http://bash.org.ru/quote/%d+\">(.*)</a>")
        local _,_, iNumber = sTitle:find("(%d+)")
        local iNumber = tonumber(iNumber)
        if not tAllData[iNumber] then
            --local _,_, sDescription = sNeedInfo:find("<div>(.*)</div>")
            --local _,_, sData = sDescription:find("<div>(.*)</div>")
            local _,_, sData = sNeedInfo:find("<div>(.*)</div>")
            tAllData[iNumber] = {}
            tAllData[iNumber]["sData"] = sData
            iAdded = iAdded + 1
            table.insert(tNewNumbers, iNumber)
        end
    end
    Core.SendToOps("<"..sBot.."> *** Обновление базы закончено! Добавлено "..iAdded.." цитат. Щас сохраним все данные...")
    if iAdded ~= 0 then
        iTimeToSend = iSecondsToSendNew
        SaveToFile(sMainDataTbl, tAllData, "tAllData")
        MakeTblForRandomChoose()
    end
end

scripts/BashOrgRuPath/Core.lua:73: attempt to index field '?' (a nil value)

    " [ Цитата #"..tNumbers[iNumber]..", Добавлено "..tAllData[tNumbers[iNumber]]["sPubDate"].." ]"..sNew.."\r\n"..

tAllData = {
    [402898] = {
        ["sData"] = "Морские новости: \"В Ильичевском порту тепловоз раздавил автомобиль ГАИ, приехавший красть солярку\"\r\
Вот оно как бывает - тепловоз подкрался незаметно.</div></div><div class=\"q\"><div class=\"vote\"><a href=\"http://bash.org.ru/quote/402897\">Цитата #402897</a> , Sat, 21 Mar 2009 10:46:01 +0400</div><div>ххх: Получил служебку. Внизу написано: И.о начальника УСОП. И подпись чья-то.. Думаю может поздно уже отвечать?!</div></div>    },
}

for sNeedInfo in sIncomingBuffer:gmatch("(<div class=\"q\">.-</div></div>)") do

tAllData = {
[402841] = {
["sData"] = "Ходила в ЗАГС по делам. Там рядышком 2 двери. Одна в зал регистрации брака, другая к секретарю. Сижу на стуле в этом холле, рядом девушка в красивом вечернем белом платье, с цветами, смирно сидит и ждет кого-то, звонит телефон. Она медленно достает мобилу из сумочки и я слышу следующий разговор:\r\
-Привет, дорогой.\r\
-Да, я в ЗАГСЕ, сижу жду тебя...\r\
-Ты снова не сможешь?... Ну ничего, тогда как-нить в следующий раз, милый.\r\
Затем встает и спокойно уходит... ну, невеста... ну, видимо, не впервой...</div>",
},
[402873] = {
["sData"] = "<Tog> Я дарил ей цветы и называл принцессой\r\
<Strela_SS> Gnum: понимаю. но плачу....и плачу не первый день\r\
<Gnum> Strela_SS: пусть кто то тебя добивается, а не ты кого то\r\
<Tog> ...она не говорила о своих чувствах но я знал ....любит\r\
<Tog> ......я просто подарил ей свое сердце\r\
<Gnum> Strela_SS: это пройдет\r\
<Tog> и жил только ей одной.... я просто был ослеплен любовью\r\
<Tog> ... мы подходили идеально друг для друга\r\
Strela_SS: ага и жди своего принца всю жизнь\r\
<Deleted> Tog: но она оказалась мужиком?\r\
<Tog> ...ох моя любимая .....моя любимая Шестерка жигулей</div>",
},
}

scripts/BashOrgRuPath/Core.lua:73: attempt to index field '?' (a nil value)

function ParseData(sIncomingBuffer)
    local iAdded = 0
    local tNeedToGsub = {
        ["\t"] = "",
        ["\r"] = "",
        ["\n"] = "",
        ["&lt;"] = "<",
        ["&gt;"] = ">",
        ["&quot;"] = "\"",
        ["&amp;"] = "&",
        ["&minus;"] = "-",
    }
    for sWhatNeedToGsub, sToWhat in pairs(tNeedToGsub) do
        sIncomingBuffer = sIncomingBuffer:g(sWhatNeedToGsub, sToWhat)
    end
    local sIncomingBuffer = sIncomingBuffer:g("<br>", "\r\n")
    local sNeedInfo = ""
    for sNeedInfo in sIncomingBuffer:gmatch("(<div class=\"q\">.-</div></div>)") do
        local _,_, sTitle = sNeedInfo:find("<a href=\"http://bash.org.ru/quote/%d+\">(.*)</a>")
        local _,_, iNumber = sTitle:find("(%d+)")
        local iNumber = tonumber(iNumber)
        if not tAllData[iNumber] then
            --local _,_, sDescription = sNeedInfo:find("<div>(.*)</div>")
            --local _,_, sData = sDescription:find("<div>(.*)</div>")
            local _,_, sData = sNeedInfo:find("<div>(.*)</div>")
            local _,_, sPubDate = sNeedInfo:find("</a>(.*)/div>")
            tAllData[iNumber] = {}
            tAllData[iNumber]["sPubDate"] = sPubDate
            tAllData[iNumber]["sData"] = sData
            iAdded = iAdded + 1
            table.insert(tNewNumbers, iNumber)
        end
    end
    Core.SendToOps("<"..sBot.."> *** Обновление базы закончено! Добавлено "..iAdded.." цитат. Щас сохраним все данные...")
    if iAdded ~= 0 then
        iTimeToSend = iSecondsToSendNew
        SaveToFile(sMainDataTbl, tAllData, "tAllData")
        MakeTblForRandomChoose()
    end
end

tAllData = {
    [402841] = {
        ["sData"] = "Ходила в ЗАГС по делам. Там рядышком 2 двери. Одна в зал регистрации брака, другая к секретарю. Сижу на стуле в этом холле, рядом девушка в красивом вечернем белом платье, с цветами, смирно сидит и ждет кого-то, звонит телефон. Она медленно достает мобилу из сумочки и я слышу следующий разговор:\r\
-Привет, дорогой.\r\
-Да, я в ЗАГСЕ, сижу жду тебя...\r\
-Ты снова не сможешь?... Ну ничего, тогда как-нить в следующий раз, милый.\r\
Затем встает и спокойно уходит... ну, невеста... ну, видимо, не впервой...</div>",
        ["sPubDate"] = " , Sun, 15 Mar 2009 09:12:50 +0400</div><div>Ходила в ЗАГС по делам. Там рядышком 2 двери. Одна в зал регистрации брака, другая к секретарю. Сижу на стуле в этом холле, рядом девушка в красивом вечернем белом платье, с цветами, смирно сидит и ждет кого-то, звонит телефон. Она медленно достает мобилу из сумочки и я слышу следующий разговор:\r\
-Привет, дорогой.\r\
-Да, я в ЗАГСЕ, сижу жду тебя...\r\
-Ты снова не сможешь?... Ну ничего, тогда как-нить в следующий раз, милый.\r\
Затем встает и спокойно уходит... ну, невеста... ну, видимо, не впервой...</div>",
    },
}