Localizar Palavras no Banco SQLITE e Transforma em HTML

Ejemplos y plantillas para Autoplay Media Studio.
Portugues
Olá amigos fiz esse pequeno exemplo de como fazer um buscador de palavra no Banco de dados SQLITE e trazer para HTML

Espanhol
Hola amigos hice este pequeño ejemplo de cómo hacer un buscador de palabra en la base de datos SQLITE y traer a HTML

Inglês
Hello friends I made this small example of how to do a word search in SQLITE database and bring to HTML

Exemplo.apz
HIDE: ON
Hidebb Message Hidden Description


Plugin SQLite3
HIDE: ON
Hidebb Message Hidden Description


Imagem
Imagen

-------<< PESQUISAR POR TEXTO >>
function sPesquisar_Verso()
------------------------------------------------------<< CONFIGURAR PÁGINA E CORES HTML >>
             sImagem = INIFile.GetValue("Settings.ini","IMAGEM FUNDO",           "Imagem");
            sFonte = INIFile.GetValue("Settings.ini",         "FONTE", "SELECIONAR FONTE"); 
 sTamanhoTexto = INIFile.GetValue("Settings.ini", "CONFIGURAR PÁGINA",    "TamanhoTexto1");
sTamanhoTitulo = INIFile.GetValue("Settings.ini", "CONFIGURAR PÁGINA",   "TamanhoTitulo1");
tPesquisar = Input.GetText("Input4"); 
          sCapitulo = Input.GetText("Input1"); 
e_Color = INIFile.GetValue("Settings.ini", "CONFIGURAR PÁGINA", "CorTexto");
e_Color = String.ToNumber(e_Color);
sCorTexto = ColorConversion.DECtoHEX(e_Color);
e_Color = INIFile.GetValue("Settings.ini", "CONFIGURAR PÁGINA", "CorTítulo");
e_Color = String.ToNumber(e_Color);
sCorTitulo = ColorConversion.DECtoHEX(e_Color);
e_Color = INIFile.GetValue("Settings.ini", "CONFIGURAR PÁGINA", "CorVersos");
e_Color = String.ToNumber(e_Color);
sCorVersos = ColorConversion.DECtoHEX(e_Color);
e_Color = INIFile.GetValue("Settings.ini", "CONFIGURAR PÁGINA", "CorVersões");
e_Color = String.ToNumber(e_Color);
sCorVersoes = ColorConversion.DECtoHEX(e_Color);
e_Color = INIFile.GetValue("Settings.ini",  "CONFIGURAR PÁGINA",  "CorFundo"); 
e_Color = String.ToNumber(e_Color);
sCorFundo = ColorConversion.DECtoHEX(e_Color);

Size = Web.GetSize("Web1");
wndH = Size.Height;
 wndW = Size.Width;

if sImagem == "" then
strHTML_Words = ""---------------------------------------------------------------------<< PLANO DE FUNDO DA PÁGINA HTML >>
strHTML_Caption = "<html style=\"overflow:auto;overflow-x:hidden;border:0;margin:0;background-color:#"..sCorFundo..";\">"
.."<head></head><body style=\"overflow:auto;overflow-x:hidden;border:0;margin:0;background-color:#"..sCorFundo..";\">"
.."<font face=\""..sFonte.."\"><table width=\"100%\" height=\"100%\"><tr><td colspan=2 style=\"padding:10px;font-size:"..sTamanhoTitulo.."px\"><b>Buscando palavra: <font color=\"#ff0000\">"..tPesquisar.."</font></b></td></tr><tr>"
.."<td style=\"padding:10px;font-size:"..sTamanhoTexto.."px;height:100%;\"><b>"
else

strHTML_Caption = "<html style=\"overflow:auto;overflow-x:hidden;border:0;margin:0;background;\">"
.."<img id=\"fundo\" border=0 src=\""..sImagem.."\" style=\"top:0;top: expression((0+(ignoreMe=document.documentElement.scrollTop?document.documentElement.scrollTop:document.body.scrollTop))+'px');left:0;position:absolute;z-index:-999;width:100%;height:"..wndH.."px;\">"
.."<font face=\""..sFonte.."\"><table width=\"100%\" height=\"100%\"><tr><td colspan=2 style=\"padding:10px;font-size:"..sTamanhoTitulo.."px\">Buscando palavra: <b><font color=\"#ff0000\">"..tPesquisar.."</font></b></td></tr><tr>"
.."<td style=\"padding:10px;font-size:"..sTamanhoTexto.."px;height:100%;\"><b>"
end


--------------------------------------------------------------------------------------------------------------------<< BUSCAR DEXTO EM SQLIT >>
tInfo_Selected = SQLite3.QueryToTable(db, "SELECT * FROM BÍBLIA WHERE (VERSAO LIKE '%".."Almeida Corrigida e Revisada Fiel (ACRF)".."%')", true)
for nRow = 1, tInfo_Selected.Rows do

tPesquisar = {Input.GetText("Input4")};

for i, nPesquisar in pairs (tPesquisar) do
if String.ReverseFind(tInfo_Selected.Data[nRow]["PASSAGEM"], nPesquisar, false) > 0 then	

-------------------------------------------------------------------------------------------------------------------<< TRANSFORMA TEXTO SQLITE PARA  HTML >>
tSustituir = String.Replace(tInfo_Selected.Data[nRow]["PASSAGEM"], nPesquisar, "<font style=\"background-color: #FFFF00\">"..nPesquisar.."</font>", false);
tObterTexto = tInfo_Selected.Data[nRow]["LIVRO"].." "..string.format("%3d",tInfo_Selected.Data[nRow]["CAPITULO"])..":"..string.format("%3d",tInfo_Selected.Data[nRow]["VERSICULO"]);
strHTML_Words = strHTML_Words.."<font color=#"..sCorVersos..">"..tObterTexto.."</font></b> <font color=#"..sCorTexto..">"..tSustituir.."</font><br><b>"

Input.SetText("Input1", nPesquisar);


end
end
end
------------------------------------------------------------------------------------------------<< MARGEM DA PAGINA HTML >>
if strHTML_Words == "" then
tPesquisar = ""..Input.GetText("Input4").." - não encontrou nenhum documento correspondente."
strHTML_Caption = "<html style=\"overflow:auto;overflow-x:hidden;border:0;margin:0;background-color:#"..sCorFundo..";\">"
.."<head></head><body style=\"overflow:auto;overflow-x:hidden;border:0;margin:0;background-color:#"..sCorFundo..";\">"
.."<font face=\""..sFonte.."\"><table width=\"100%\" height=\"100%\"><tr><td colspan=2 style=\"padding:10px;font-size:"
..sTamanhoTitulo.."px\"><b>Buscando palavra: <font color=\"#ff0000\">"..tPesquisar.."</font></b></td></tr><tr>"
.."<td style=\"padding:10px;font-size:"..sTamanhoTexto.."px;height:100%;\"><b>"
end

sTamanhoVersao = INIFile.GetValue("Settings.ini", "CONFIGURAR PÁGINA", "TamanhoVersão1");
strHTML_Version = "</td></tr><tr><td colspan=2 style=\"text-align:right\" style=\"padding:10px;font-size:"
..sTamanhoVersao.."px\"><b><font color=\"#"..sCorVersoes.."\">".."Almeida Corrigida e Revisada Fiel (ACRF)".."</font></b></td></tr></table></font></body></hmtl>"
Web.LoadHTML("Web1", strHTML_Caption.." "..strHTML_Words.." "..strHTML_Version);

end
sPesquisar_Verso()
graciasss ;) ;)
Gracias
thanks share idea
Gracias
gracias
gracias....
muito obrigado.
gracias
¡Muchas gracias!
شكرا متابع
gracias