-
- AMS Freak
15 Oct 2018 14:11
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
Plugin SQLite3
Imagem
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
Plugin SQLite3
Imagem
-------<< 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()
