Login

Esqueci minha senha

Buscar
 
 

Resultados por :
 


Rechercher Busca avançada

Quem está conectado
55 usuários online :: 5 usuários cadastrados, 1 Invisível e 49 Visitantes :: 2 Motores de busca

cyro.bergonzi, elielrosa, LúcioSerrat, Rubens, Tales Ruan

[ Ver toda a lista ]


O recorde de usuários online foi de 84 em 31/8/2010, 19:42
Brasília
Estamos no Twitter
Nossa Comunidade
Nosso Grupo
Últimos assuntos
Top dos mais postadores
Marcos Guedes
 
hugo
 
alceu11
 
marcelofazan
 
Julio
 
mfelis
 
Tales Ruan
 
Nelson Arcas
 
cabeludo
 
marcio
 

Duvida de utilização ODBC X ado

3/9/2010, 17:33 por Nelson Arcas

Pessoal, boa tarde

Estou com um duvida cruel o que é melhor utilizar com o cursor Adapt...

Comentários: 10

TCC programação

31/8/2010, 20:08 por LúcioSerrat

não tenho muita pratica em programação e estou na conclusao do meu curso, necessito de alguem que po...

Comentários: 8

Criar Classe Limpas!

8/9/2010, 15:16 por mfelis

Pessoal quando define mos umas classe usamos o As. mas tem um problema ela herda das classe. e a mai...

Comentários: 0

SELECT e Botões ANTERIOR E PROXIMO.

6/9/2010, 17:22 por BrunoMesquita

Olá, queria saber se tem como ou se alguem ja fez algo parecido? É o seguinte, tenho um form onde us...

Comentários: 6

Encriptação MD5

7/9/2010, 23:38 por edson_vc

Então pessoal,
achei esse script para encriptação MD5, fiquei feliz quando vi que realmen...

Comentários: 1

Estatísticas
Temos 1189 usuários registrados
O último usuário registrado atende pelo nome de johnnyng

Os nossos membros postaram um total de 9858 mensagens em 1355 assuntos

VFP Translator

Novo Tópico   Responder ao tópico

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Astúcia VFP Translator

Mensagem por Marcos Guedes em 26/10/2009, 16:35

Não sei se já existe algo do tipo, mas segue uma rotina que fiz para traduzir textos utilizando o [Você precisa estar registrado e conectado para ver este link.].

Espero que seja útil aos colegas!
Very Happy

Segue exemplos de como utilizar a rotina:
Código:
CLEAR

LOCAL objtraduzir AS OBJECT
LOCAL resultados AS COLLECTION
*!*
m.objtraduzir = NEWOBJECT("vfptranslator")

*!* Exemplo1 (Inglês para Português)
m.resultados = m.objtraduzir.ingles_portugues("Programming Brazil"+CHR(13)+CHR(10)+"this example was created by Marcos Guedes")
FOR i=1 TO m.resultados.COUNT
   ?m.resultados.ITEM(i)
ENDFOR
*!* Fim - Exemplo1
?
*!* Exemplo2 (Inglês para Português)
m.resultados = m.objtraduzir.ingles_portugues("life")
FOR i=1 TO m.resultados.COUNT
   ?m.resultados.ITEM(i)
ENDFOR
*!* Fim - Exemplo2
?
*!* Exemplo3 (Português para Inglês)
m.resultados = m.objtraduzir.portugues_ingles("Programação Brasil"+CHR(13)+CHR(10)+"Este exemplo foi criado por Marcos Guedes")
FOR i=1 TO m.resultados.COUNT
   ?m.resultados.ITEM(i)
ENDFOR
*!* Fim - Exemplo3
?
*!* Exemplo4 (Português para Inglês)
m.resultados = m.objtraduzir.portugues_ingles("vida")
FOR i=1 TO m.resultados.COUNT
   ?m.resultados.ITEM(i)
ENDFOR
*!* Fim - Exemplo4

m.objtraduzir = NULL


A rotina:
Código:
DEFINE CLASS vfptranslator AS CUSTOM

   *!* Autor: Marcos Guedes
   *!* Fonte: http://forum.programacaobrasil.com/visual-foxpro-f4/vfp-translator-t382.htm

   FUNCTION ingles_portugues AS COLLECTION
      LPARAMETERS conteudo AS STRING
      *!* Inglês para Português
      LOCAL conteudo AS STRING
      m.conteudo = IIF((VARTYPE(m.conteudo)!="C"),"",m.conteudo)


      RETURN THIS.traduzir("http://translate.google.com/translate_a/t?client=t&text=" + ;
         THIS.chr13_barra_n(m.conteudo) + ;
         "%0A&sl=en&tl=pt&pc=0&oc=0")
   ENDFUNC

   FUNCTION portugues_ingles AS COLLECTION
      LPARAMETERS conteudo AS STRING
      *!*  Português para Inglês
      LOCAL conteudo AS STRING
      m.conteudo = IIF((VARTYPE(m.conteudo)!="C"),"",m.conteudo)

      RETURN ;
         THIS.traduzir("http://translate.google.com/translate_a/t?client=t&text=" + ;
         THIS.chr13_barra_n(m.conteudo) + ;
         "%0A&sl=pt&tl=en&pc=0&oc=0")
   ENDFUNC

   HIDDEN FUNCTION chr13_barra_n AS STRING
      LPARAMETERS conteudo AS STRING
      *!* Controla as quebra de linhas no conteúdo
      RETURN STRTRAN(m.conteudo, CHR(13),"\n")
   ENDFUNC

   HIDDEN FUNCTION traduzir AS COLLECTION
      LPARAMETERS url AS STRING
      *!* Retorna uma Collection com os significados obtidos
      *!*
      LOCAL loxmlhttp AS OBJECT
      LOCAL lcresponse AS STRING
      LOCAL url AS STRING
      LOCAL parametros AS STRING
      LOCAL resultado AS COLLECTION
      LOCAL resulttemp AS STRING
      LOCAL contaux AS INTEGER
      *!*
      m.resultado = NEWOBJECT("Collection")
      m.parametros = ""
      *!*
      m.loxmlhttp = CREATEOBJECT("MSXML2.XMLHTTP")
      *!* Consulta o significado a partir do site do Google Translator
      m.loxmlhttp.OPEN("POST",m.url,.F.)
      *!*
      m.loxmlhttp.setrequestheader("content-type", "application/x-www-form-urlencoded")
      *!*
      m.loxmlhttp.SEND(m.parametros)
      m.lcresponse = loxmlhttp.responsetext
      *!*
      m.loxmlhttp = .NULL.

      *!* Adiciona à coleção, a primeira tradução do conteúdo
      m.resultado.ADD( STRTRAN( ALLTRIM(STREXTRACT(m.lcresponse, '"', "\n")) ,"\\ n", CHR(13)+CHR(10)) )
      *!*
      m.contaux = 3
      m.resulttemp = STREXTRACT(STRTRAN(STREXTRACT(m.lcresponse, "[", "]", m.contaux),'"',""),",")
      DO WHILE !EMPTY(m.resulttemp)

         FOR m.contador=1 TO GETWORDCOUNT(m.resulttemp,",")
            *!* Adiciona as traduções à coleção
            m.resultado.ADD( STRTRAN( ALLTRIM(GETWORDNUM(m.resulttemp,m.contador,",")), CHR(13)+CHR(10)) )
         ENDFOR

         m.contaux = m.contaux + 1
         m.resulttemp = STREXTRACT(STRTRAN(STREXTRACT(m.lcresponse, "[", "]", m.contaux),'"',""),",")
      ENDDO

      RETURN m.resultado

   ENDFUNC

ENDDEFINE



Obs:

No momento incluir apenas a tradução de inglês para português e vice-versa, mas sintam-se a vontade em fazer suas solicitações para outras traduções.

A rotina ainda está sendo testada, portanto, havendo alguma falha, favor comunicar.
Smile


Última edição por Marcos Guedes em 10/11/2009, 11:41, editado 2 vez(es)

_________________
Marcos Guedes - Programador e desenvolvedor Web.

Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras

Marcos Guedes
Webmaster
Webmaster


Ver perfil do usuário

Voltar ao Topo Ir em baixo

Astúcia Re: VFP Translator

Mensagem por marcio em 26/10/2009, 16:58

Boa Marcos,

Fiz um teste e funcionou bem. Agora é trabalhar em cima disso aí para criarmos nosso próprio tradutor...rs.

Parabéns!

[]s

marcio
Participa Bastante
Participa Bastante


Ver perfil do usuário

Voltar ao Topo Ir em baixo

Astúcia Re: VFP Translator

Mensagem por Marcos Guedes em 27/10/2009, 15:32

Foi uma nova atualização para atender a textos com tamanho maior.
A maneira de utilizá-la é mesma!
Código:
DEFINE CLASS vfptranslator AS CUSTOM

   *!* Autor: Marcos Guedes
    *!* Fonte: http://forum.programacaobrasil.com/visual-foxpro-f4/vfp-translator-t382.htm
    *!* Última modificação: 27/10/2009

   FUNCTION ingles_portugues AS COLLECTION
      *!* Inglês para Português
      LPARAMETERS conteudo AS STRING
      LOCAL parametros AS STRING
      *!*
      IF (VARTYPE(m.conteudo)!="C") THEN
         m.conteudo = ""
      ENDIF
      m.conteudo = THIS.chr13_barra_n(m.conteudo)
      *!*
      m.parametros = "file&history_state0&hl=pt-BR&ie=UTF-8&js=y&prev=_t&sl=en&swap=1&"
      m.parametros = m.parametros + "" + "text=" + m.conteudo + "&tl=pt"
      *!*
      RETURN THIS.traduzir(m.parametros)
   ENDFUNC
   
   FUNCTION portugues_ingles AS COLLECTION
      *!*  Português para Inglês
      LPARAMETERS conteudo AS STRING
      LOCAL parametros AS STRING
      *!*
      IF (VARTYPE(m.conteudo)!="C") THEN
         m.conteudo = ""
      ENDIF
      m.conteudo = THIS.chr13_barra_n(m.conteudo)
      *!*
      m.parametros = "file&history_state0&hl=pt-BR&ie=UTF-8&js=y&prev=_t&sl=pt&swap=1&"
      m.parametros = m.parametros + "" + "text=" + m.conteudo + "&tl=en"
      *!*
      RETURN THIS.traduzir(m.parametros)
   ENDFUNC

   HIDDEN FUNCTION chr13_barra_n AS STRING
      LPARAMETERS conteudo AS STRING
      *!* Controla as quebra de linhas no conteúdo
      RETURN STRTRAN(m.conteudo, CHR(13),"\\n")
   ENDFUNC

   HIDDEN FUNCTION traduzir AS STRING
      *!* Retorna uma coleção de significados obtidos
      LPARAMETERS parametros AS STRING
      *!*
      LOCAL url AS STRING
      LOCAL loxmlhttp AS OBJECT
      LOCAL resultado AS COLLECTION
      LOCAL strtemp1 AS STRING
      LOCAL strtemp2 AS STRING
      LOCAL cttemp AS INTEGER
      *!*
      m.url = "http://translate.google.com/translate_t"
      m.resultado = NEWOBJECT("Collection")
      *!*
      IF (VARTYPE(m.parametros)!="C") THEN
         m.parametros = ""
      ENDIF
      *!*
      m.loxmlhttp = CREATEOBJECT("MSXML2.XMLHTTP")
      *!* Consulta o significado a partir do site do Google Translator      
      m.loxmlhttp.OPEN("POST",m.url,.F.)
      m.loxmlhttp.setrequestheader("content-type", "application/x-www-form-urlencoded")
      m.loxmlhttp.SEND(m.parametros)
      m.lcresponse = loxmlhttp.responsetext
      m.loxmlhttp = .NULL.

      m.strtemp1 = STRTRAN( STREXTRACT(m.lcresponse,[<div id=result_box dir="ltr">],[</div>]) ,"<br> ", CHR(13)+CHR(10) )

      *!* Substitui alguns caracteres do formato web para desktop
      m.strtemp1 = STRTRAN(m.strtemp1, "<br>", CHR(13)+CHR(10))      
      m.strtemp1 = STRTRAN(m.strtemp1, "\ n \", "")
      m.strtemp1 = STRTRAN(m.strtemp1, "\ N \", "")
      m.strtemp1 = STRTRAN(m.strtemp1, "\ \ n", "")
      m.strtemp1 = STRTRAN(m.strtemp1, "\ \ N", "")
      m.strtemp1 = STRTRAN(m.strtemp1, "\ n", "")
      m.strtemp1 = STRTRAN(m.strtemp1, "\ N", "")
      m.strtemp1 = STRTRAN(m.strtemp1, """, ["])
      m.strtemp1 = STRTRAN(m.strtemp1, "'", ['])

      *!* Texto principal
      m.resultado.ADD( ALLTRIM( m.strtemp1 ) )
      *!* Mais traduções
      m.strtemp1 = STREXTRACT(m.lcresponse,"<td><ol>","</ol></td></tr><tr><td>")
      m.cttemp = 2
      m.strtemp2 = STREXTRACT(m.lcresponse,"<li>","</li>",m.cttemp)

      DO WHILE !EMPTY(m.strtemp2)
         m.resultado.ADD( ALLTRIM(m.strtemp2) )
         m.cttemp = m.cttemp + 1
         m.strtemp2 = STREXTRACT(m.lcresponse,"<li>","</li>",m.cttemp)
      ENDDO

      RETURN m.resultado
   ENDPROC

ENDDEFINE

_________________
Marcos Guedes - Programador e desenvolvedor Web.

Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras

Marcos Guedes
Webmaster
Webmaster


Ver perfil do usuário

Voltar ao Topo Ir em baixo

Astúcia Re: VFP Translator

Mensagem por Marcos Guedes em 28/10/2009, 14:17

Um simples exemplo utilizando a rotina de tradução (No arquivo contém o projeto e executável!):

[Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.

Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras

Marcos Guedes
Webmaster
Webmaster


Ver perfil do usuário

Voltar ao Topo Ir em baixo

Astúcia Re: VFP Translator

Mensagem por Marcos Guedes em 2/3/2010, 14:49

Atualização 02/03/2010:
Código:
CLEAR

LOCAL objtraduzir AS OBJECT
LOCAL resultados AS COLLECTION
*!*
m.objtraduzir = NEWOBJECT("vfptranslator")

*!* Exemplo1 (Inglês para Português)
m.resultado = m.objtraduzir.ingles_portugues("Programming Brazil"+CHR(13)+CHR(10)+"this example was created by Marcos Guedes")
?m.resultado
*!* Fim - Exemplo1
?
*!* Exemplo2 (Português para Inglês)
m.resultado = m.objtraduzir.portugues_ingles("Programação Brasil"+CHR(13)+CHR(10)+"Este exemplo foi criado por Marcos Guedes")
?m.resultado
*!* Fim - Exemplo2

m.objtraduzir = NULL

DEFINE CLASS vfptranslator AS CUSTOM

   *!* Autor: Marcos Guedes
   *!* Fonte: http://forum.programacaobrasil.com/visual-foxpro-f4/vfp-translator-t382.htm

   FUNCTION ingles_portugues AS COLLECTION
      LPARAMETERS conteudo AS STRING
      *!* Inglês para Português
      LOCAL conteudo AS STRING
      m.conteudo = IIF((VARTYPE(m.conteudo)!="C"),"",m.conteudo)

      RETURN THIS.traduzir(m.conteudo, "en", "pt")
   ENDFUNC

   FUNCTION portugues_ingles AS COLLECTION
      LPARAMETERS conteudo AS STRING
      *!*  Português para Inglês
      LOCAL conteudo AS STRING
      m.conteudo = IIF((VARTYPE(m.conteudo)!="C"),"",m.conteudo)

      RETURN THIS.traduzir(m.conteudo, "pt", "en")
   ENDFUNC

   HIDDEN FUNCTION chr13_barra_n AS STRING
      LPARAMETERS conteudo AS STRING
      *!* Controla as quebra de linhas no conteúdo
      RETURN STRTRAN(m.conteudo, CHR(13)+CHR(10),"\n")
   ENDFUNC

   HIDDEN FUNCTION traduzir AS COLLECTION
      LPARAMETERS texto AS STRING, lnin AS STRING, lnout AS STRING
      *!*
      
      
      m.url = [http://translate.google.com.br/]
      m.lnin = IIF((VARTYPE(m.lnin)!="C"),"en",m.lnin)
      m.lnout = IIF((VARTYPE(m.lnout)!="C"),"pt",m.lnout)

      m.parametros = ;
         "eotf=1&file=&hl=pt-BR&ie=UTF-8&js=y&layout=1&prev=_t&sl=" + ;
         m.lnin + "&text=" + THIS.chr13_barra_n(m.texto) + "&tl=" + m.lnout

      m.loxmlhttp = CREATEOBJECT("MSXML2.XMLHTTP")
      m.loxmlhttp.OPEN("POST",m.url,.F.)
      m.loxmlhttp.setrequestheader("content-type", "application/x-www-form-urlencoded")
      m.loxmlhttp.SEND(m.parametros)
      m.lcresponse = loxmlhttp.responsetext
      m.loxmlhttp = NULL

      RETURN STRTRAN(STREXTRACT(m.lcresponse,[onmouseout="this.style.backgroundColor='#fff'">],[</span>]),"\ n",CHR(13)+CHR(10))

   ENDFUNC

ENDDEFINE

_________________
Marcos Guedes - Programador e desenvolvedor Web.

Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras

Marcos Guedes
Webmaster
Webmaster


Ver perfil do usuário

Voltar ao Topo Ir em baixo

Astúcia Re: VFP Translator

Mensagem por hugo em 2/3/2010, 16:12

legal cara

heheheheh

_________________
No dia mais claro, na noite mais densa
O mal sucumbirá ante a minha presença!
Todo aquele que venera o mal há de temer.
A luz do Lanterna Verde e o seu poder!
Lanterna Verde - DC Comics

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Ver perfil do usuário

Voltar ao Topo Ir em baixo

Astúcia Re: VFP Translator

Mensagem por Marcos Guedes em 4/3/2010, 19:55

Segunda versão do exemplo, para download:
- [Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.

Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras

Marcos Guedes
Webmaster
Webmaster


Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


Permissão deste fórum:
Você não pode responder aos tópicos neste fórum