Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Usando El Traductor De Google En Gambas
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Usando El Traductor De Google En Gambas 
 
Hola amigos, os traigo una pequeña utilidad. Gracias a un script que he encontrado en  http://elelefantemoteado.com.ar/txt...ea-de-comandos/ , he realizado esta pequeña funcion que nos puede servir para traducir palabras (y frases) usando el google traductor desde gambas.

Es un ejemplo muy simple, (solo traduce de español a ingles), pero es muy fácil ampliarlo y darle más opciones.



' gambas class file
'Fuente: basado en el script de
'#info@elelefantemoteado.com.ar
'#
'#wget http: / / linux.die.net / man / 1 / wget
'#sed http: / / linux.die.net / man / 1 / sed
'Fuente URL:
'http://elelefantemoteado.com.ar/txt/traduccion-en-la-linea-de-comandos/


PRIVATE MiHttp AS NEW HttpClient

PUBLIC FUNCTION traducir(palabra AS String, idiomainicial AS String, idiomafinal AS String) AS String
DIM a AS Integer
DIM Buffer AS String
DIM parteFinal, parteInicial AS String

palabra = Replace$(palabra, " ", "%20")

MiHttp.url = Subst$("http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=&1&langpair=&2%7C&3", palabra, idiomainicial, idiomafinal)
MiHttp.Get()

WHILE (Lof(MiHttp) = FALSE AND a < 10)
'espero 1 segundo o que llegue a>10
a = a + 1
WAIT 1
WEND

IF a = 10 OR Lof(MiHttp) = FALSE THEN
message("No ha sido posible conectarse al servidor")
RETURN
ENDIF

IF Lof(MiHttp) THEN
   READ #MiHttp, Buffer, Lof(MiHttp)
ENDIF

'lo siguiente es para coger solo la traduccion...
parteInicial = "{\"responseData\": {\"translatedText\":\""
parteFinal = "\"}, \"responseDetails\": null, \"responseStatus\": 200}"
RETURN Between(buffer, parteInicial, partefinal)

END



PUBLIC SUB ButtonTraducir_Click()
'es : español
'en : ingles
  LabelTraducido.text = traducir(TextBoxTextoOriginal.text, "es", "en")
END




PRIVATE FUNCTION Between(Datos AS String, Cadena1 AS String, Cadena2 AS String) AS String
DIM iinf AS Integer
DIM isup AS Integer
iinf = InStr(Datos, Cadena1) + Len(Cadena1)
isup = InStr(Datos, Cadena2, iinf)
RETURN Mid(Datos, iinf, isup - iinf)
END



 


Teneis que activar los componente gb.net y gb.net.curl, y crear un textbox (TextBoxTextoOriginal), un boton (ButtonTraducir) y label (LabelTraducido)

Os puede quedar una cosa asi:


traductorgamb

Espero que os sea útil, saludos.



Nota:
Como sabemos   , la traducción automática no es muy buena, y habrá que repasarla, pero te puede facilitar mucho el trabajo.  
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Usando El Traductor De Google En Gambas 
 
Mi gozo en un pozo....     

He leido en internet, que el api de google traduce, dejara de funcionar el 1 de diciembre, con lo cual el programa realizado en gambas dejara de funcionar....     

fuente;
http://www.facilware.com/google-cie...-translate.html

Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario