|
Inicio → WINDEV 25 → WX - Gerando um Site de Help Online dos Comandos da Plataforma PCSOFT em Português |
WX - Gerando um Site de Help Online dos Comandos da Plataforma PCSOFT em Português |
Iniciado por adrianoboller, abr., 27 2016 1:05 AM - 4 respostas |
| |
| | | |
|
| |
Membro registado 3.659 mensagems Popularité : +175 (223 votes) |
|
Publicado em abril, 27 2016 - 1:05 AM |
Prezados,
Como todos sabem eu traduzi as 8000 páginas html da Plataforma PCSOFT em Português.
Vou mostrar aqui como fiz isso:
Primeiro Arquivo: INDEX.HTML / INDEX.HTM
<html> <title>Help Pcsoft BR</title> <frameset cols="350,*" frameborder="0" border="0" framespacing="0"> <frame src="menu.htm" name="menu" TITLE="Help PcSoft BR"> <frame src="inicial.htm" name="main" TITLE="Help PcSoft BR" scrolling=auto> </frameset>
Segundo Arquivo: INICIAL.HTML
<html> <head> </head> <body> PAGINA INICIAL.... </body> </html>
Terceiro Arquivo: PAGINA1.HTM
<html> <head> </head> <body> PAGINA 1 </body> </html>
Quarto Arquivo: MENU.HTM
<html> <head></head> <body> <img src=logo.gif> <br><br> <H2>WX HELP ONLINE BR</H2> <BR>MENU<br><br> <a href="+Charact(34)+"inicial.htm" target="main">Inicial</a><BR> <br>1 - <a href="Comandos Windev.htm" target="main">Comandos Windev</a><br> <br>2 - <a href="Comandos Webdev.htm" target="main">Comandos Webdev</a><br> <br>3 - <a href="Comandos Windev Mobile.htm" target="main">Comandos Windev Mobile</a><br><br> ... </body> </html>
Para gerar o Menu, foi necessário ter todas as 8000 páginas html num diretório traduzidas
Executar o comando MS-DOS:
C:\Help> DIR *.htm /on > listagem.txt
Gerando assim o arquivo Listagem.TXT dentro do diretório Help
Após foi necessário remover e acertar a listagem sem a coluna de dados que não seria necessário na importação usando o NOTEPAD++ da seguinte maneira:
Usando a tecla ALT do teclado + o movimento do MOUSE, seleciona em bloco, ficando cinza só a parte que não deseja do bloco de texto, recurso muito interessante, ficando assim:
CTRL X Remove a parte indesejada
Verifica a acentuação e remove os CRLF que é o ENTER de cada linha (Retorno de carro e nova linha) com REPLACE
Remove primeiro o \r (return carrier)
Remove agora o \n (new line) e troca por ; (ponto e vírgula)
Isso vai fazer com que seja apresentado como se fosse uma grande tripa de caracteres, simplificando em muito a leitura do arquivo com os nomes dos arquivos em disco.
Salva o arquivo e inicia o processo de importação
Tabelas criadas no Analisys
Tela desenvolvida com Windev
CÓDIGO NO DOUBLE CLICK DO BROWSERLIST TABLE
IF T003_LinksForum.T003_Localizou = False THEN T003_LinksForum.T003_Localizou = True ELSE T003_LinksForum.T003_Localizou = False END
HModify(T003_LinksForum)
TableDisplay(TABLE_T003_LinksForum,taReExecuteQuery)
TableDisplay(TABLE_T003_LinksForum,taInit)
BOTÃO [ARQUIVO]
Open(WIN_Localizar)
WIN_Localizar = Janela Auxiliar para buscar o arquivo no HD
BOTÃO [...]
sFile = fSelect("", "", "Selecione o arquivo...", "All the files (*.*)" + TAB + "*.*", "*.*") EDT_Arquivo_html = sFile
PROCESSO DE IMPORTAÇÃO
BOTÃO IMPORTAR: [IMPORTAR TXT PARA HFSQL]
Importar( )
Procedure Importar( )
ok is boolean
bExiste is boolean = False
Texto, sArquivo is string = ""
HDeleteAll(T003_LinksForum)
TableDisplay(TABLE_T003_LinksForum,taReExecuteQuery)
TableDisplay(TABLE_T003_LinksForum,taInit)
IF sFile <> "" THEN sBuffer = fLoadBuffer(sFile) HourGlass(True) Multitask(1) Busca is string nPosAtual, nPosIni, nPosFim, TotalBusca are int = 0 Busca = ";" nPosIni = 1 TotalBusca = 1 nTotal is int = Length(sBuffer) LOOP (nTotal) nPosAtual += 1 Multitask(1) MultitaskRedraw(WIN_Sumario) IF Middle(sBuffer,nPosAtual,1) = ";" AND nPosAtual > 1 nPosFim = nPosAtual END IF nPosIni > 0 AND nPosFim > 0 AND nPosFim > nPosIni THEN Texto = Middle(sBuffer, (nPosIni + TotalBusca) , (nPosFim-(nPosIni + TotalBusca))) T003_LinksForum.T003_Extraido = "C:\HELP\"+Texto IF fFileExist(T003_LinksForum.T003_Extraido) = True THEN Texto = T003_LinksForum.T003_Extraido Texto = Replace(Texto," - PC SOFT - Ajuda online","") Texto = Replace(Texto," - PC SOFT - Ajuda_online","") Texto = Replace(Texto," - PC SOFT - Ajuda on-line","") Texto = Replace(Texto," - WINDEV 20 - Fóruns de programação - PC SOFT","") Texto = Replace(Texto,"[WEBDEV 19] ","") Texto = NoAccent(Texto) Texto = Replace(Texto," - WINDEV 20 - Foruns de programacao - PC SOFT","") Texto = Replace(Texto," "," ") Texto = Replace(Texto," "," ") Texto = Replace(Texto,"(Função)","") Texto = Replace(Texto,"(Funcao)","") Texto = Replace(Texto,"ç","c") Texto = Replace(Texto,",","") Texto = Replace(Texto,"{","") Texto = Replace(Texto,"}","") Texto = Replace(Texto,"^","") Texto = Replace(Texto,"~","") Texto = Replace(Texto,"´","") Texto = Replace(Texto,"`","") Texto = Replace(Texto,"'","") Texto = Replace(Texto,"¨","") Texto = Replace(Texto,"-"," ") Texto = Replace(Texto,"-"," ") Texto = Replace(Texto,"_"," ") Texto = Replace(Texto,"(","") Texto = Replace(Texto,")","") Texto = Replace(Texto," .htm",".htm") Texto = Replace(Texto," .htm",".htm") Texto = Replace(Texto,"'","") Texto = Replace(Texto,"[","") Texto = Replace(Texto,"]","") Texto = Replace(Texto,"(Função)","",IgnoreCase) Texto = Replace(Texto,"()","",IgnoreCase) Texto = NoAccent(Texto) Texto = WS_RemoveAcentos(Texto) Texto = WS_RemoveCaractAscII(Texto) T003_LinksForum.T003_NovoArquivo = Texto ok = fRename(T003_LinksForum.T003_Extraido,T003_LinksForum.T003_NovoArquivo) T003_LinksForum.T003_Localizou = fFileExist(T003_LinksForum.T003_NovoArquivo) END HAdd(T003_LinksForum) Multitask(1) nPosIni = nPosFim nPosFim = 0 END END ELSE Info("Informe o arquivo html ou txt a ser importado") END
TableDisplay(TABLE_T003_LinksForum,taReExecuteQuery)
TableDisplay(TABLE_T003_LinksForum,taInit)
BOTÃO GERAR MENU.HTML
GerarMenuHtml( )
Procedure GerarMenuHtml()
X is int =0
ok is boolean
Texto, Link is string = ""
Arquivo is string = "html><head></head><body><img src=logo.gif><br><br><H2>WX HELP ONLINE BR</H2><BR>MENU<br><br>"+"<a href="+Charact(34)+"inicial.htm"+Charact(34)+" target="+Charact(34)+"main"+Charact(34)+">Inicial</a><br><br>"
FOR EACH T004_LinksForum IF T004_LinksForum.T003_Localizou = True X += 1 Texto = Replace(T004_LinksForum.T003_NovoArquivo,".htm","") Texto = Replace(Texto,"C:\HELP\","") Link = Replace(T004_LinksForum.T003_NovoArquivo,"C:\HELP\","") Arquivo += X + " - <a href="+Charact(34)+Link+Charact(34)+" target="+Charact(34)+"main"+Charact(34)+">"+Texto+"</a><br><br>" END END
Arquivo += "<a href="+Charact(34)+"inicial.htm"+Charact(34)+" target="+Charact(34)+"main"+Charact(34)+">Inicial</a><br></body></html>"
ok = fSaveText("c:\help\menu.htm",Arquivo)
IF ok = True THEN Info("Arquivos gerados com sucesso!") ELSE Info("Ocorreu um erro: "+ ErrorInfo()) END
RESULTADO FINAL:
Espero que esse código sirva para outras necessidades e atenda aos seus projetos plenamente.
Importar dados é algo incrível...
E com a plataforma Wx é muito legal, recomendo...
Sucesso e Saúde a todos, se possivel comenta o post, gosto de saber se foi útil ou não, ok.
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.blogspot.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.659 mensagems Popularité : +175 (223 votes) |
|
Publicado em abril, 27 2016 - 1:43 AM |
Prezados,
Esse trabalho de Hércules (8000 PÁGINAS HTML TRADUZIDAS) que me consumiu dias e dias de trabalho foi em homenagem a nossa linda Língua Portuguesa, a nossa Bandeira, ao Nosso Lindo País e a todos os Brasileiros de Coragem, que não fogem a luta e que amam essa pátria.
OBS.: CLARO, que pode conter erros, mas conto com a ajuda de todos para termos esse material 100% Em breve a PCSOFT deve liberar o link, ok
BANDEIRA NACIONAL
HINO NACIONAL
Espera o Brasil Que todos cumprai Com o vosso dever. Eia avante,brasileiros, Sempre avante! Gravai com buril Nos pátrios anais Do vosso poder. Eia avante, brasileiros, Sempre avante! Servi o Brasil Sem esmorecer, Com ânimo audaz Cumpri o dever, Na guerra e na paz À sombra da lei, À brisa gentil O lábaro erguei Do belo Brasil Eia sus, oh sus!
Ouviram do Ipiranga as margens plácidas De um povo heroico o brado retumbante, E o sol da Liberdade, em raios fúlgidos, Brilhou no céu da Pátria nesse instante.
Se o penhor dessa igualdade Conseguimos conquistar com braço forte, Em teu seio, ó Liberdade, Desafia o nosso peito a própria morte!
Ó Pátria amada, Idolatrada, Salve! Salve!
Brasil, um sonho intenso, um raio vívido, De amor e de esperança à terra desce, Se em teu formoso céu, risonho e límpido, A imagem do Cruzeiro resplandece.
Gigante pela própria natureza, És belo, és forte, impávido colosso, E o teu futuro espelha essa grandeza.
Terra adorada Entre outras mil És tu, Brasil, Ó Pátria amada!
Dos filhos deste solo És mãe gentil, Pátria amada, Brasil!
Deitado eternamente em berço esplêndido, Ao som do mar e à luz do céu profundo, Fulguras, ó Brasil, florão da América, Iluminado ao sol do Novo Mundo!
Do que a terra mais garrida Teus risonhos, lindos campos têm mais flores, "Nossos bosques têm mais vida", "Nossa vida" no teu seio "mais amores". (*)
Ó Pátria amada, Idolatrada, Salve! Salve!
Brasil, de amor eterno seja símbolo O lábaro que ostentas estrelado, E diga o verde-louro dessa flâmula - Paz no futuro e glória no passado.
Mas se ergues da justiça a clava forte, Verás que um filho teu não foge à luta, Nem teme, quem te adora, a própria morte.
Terra adorada Entre outras mil És tu, Brasil, Ó Pátria amada!
Dos filhos deste solo És mãe gentil, Pátria amada, Brasil!
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.blogspot.com.br/Mensagem modificada, abril, 27 2016 - 2:06 AM |
| |
| |
| | | |
|
| | |
| |
Publicado em abril, 27 2016 - 1:46 PM |
Bom dia!
Parabéns Adriano, grande trabalho mesmo, não é qualquer pessoa que disponibiliza o tempo que tem para fazer um trabalho deste porte.
Você vem apostando nessa ferramenta assim como muitos também estão, parabéns. |
| |
| |
| | | |
|
| | |
| |
Membro registado 208 mensagems Popularité : +25 (25 votes) |
|
Publicado em abril, 27 2016 - 8:18 PM |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.659 mensagems Popularité : +175 (223 votes) |
|
Publicado em abril, 28 2016 - 5:23 PM |
ótima ideia!
com certeza
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.blogspot.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|