WX - Gerando um Site de Help Online dos Comandos da Plataforma PCSOFT em Português - WINDEV 25 - Fóruns de programação

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... | | Português

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

adrianoboller

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>
 
<H2>WX HELP ONLINE BR</H2>
 MENU 
<a href="+Charact(34)+"inicial.htm" target="main">Inicial</a> 
 1 - <a href="Comandos Windev.htm" target="main">Comandos Windev</a> 
 2 - <a href="Comandos Webdev.htm" target="main">Comandos Webdev</a> 
 3 - <a href="Comandos Windev Mobile.htm" target="main">Comandos Windev Mobile</a> 
...
</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

//Seleciona
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 [...]

// Opens the file picker
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)
 
 //Leitura
 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
  //<a href="pagina1.htm" target="main">Analysis</a>
  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/

Denunciar

Deve estar conectado para avaliar esta mensagem

adrianoboller

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!

Mensagem modificada, abril, 27 2016 - 2:06 AM

Denunciar

Fernando Rocha

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.

Denunciar

ANDRE MARTINI / IS2

Membro registado
208 mensagems
Popularité : +25 (25 votes)

Publicado em abril, 27 2016 - 8:18 PM

Adriano,

já que você tem contato com o pessoal da PC Soft na França, seria muito útil pedir para eles colocarem a legenda em francês mesmo nos vídeos publicados no youtube (normalmente é o Jerome quem fala nos vídeos), com isso conseguiríamos a tradução automática pelo youtube e facilitaria bastante o entendimento do vídeo.

Como não tem legenda o youtube tenta entender o áudio do vídeo o que normalmente não é muito bom, ainda mais no FRANCÊS!

Colocando legendas em vídeos no youtube!

--
André Martini
IS2 Automotive http://www.is2.inf.br/is2automotive/index.html
IS2 Construtive http://www.is2.inf.br/is2construtive/index.html
IS2 Store http://www.is2.inf.br/is2store/index.html
IS2 Gerent http://www.is2.inf.br/is2gerent/index.html

Denunciar

adrianoboller

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/

Denunciar

→ Voltar para WINDEV 25