Test Foro de elhacker.net SMF 2.1

(http://img100.imageshack.us/img100/3844/prtscrcapturek.jpg)

Una utilidad para traducir frases al vuelo desde la consola.

CitarModo de empleo:
  GTC [Idioma de entrada] [Idioma de salida] [Texto]

Ejemplo:
  GTC ES "Hello World"

(El idioma de entrada se reconoce automaticamente por defecto.)

Idiomas:

Código [Seleccionar] Expandir


AF: Africano    AR: Árabe        AZ: Azerbaijani   BE: Bielorruso
BG: Búlgaro     BN: Bengalés     CA: Catalàn       CS: Checo
CY: Galés       DA: Danés        DE: Alemàn        EL: Griego
EN: Inglés      EO: Esperanto    ES: Espa±ol       ET: Estonio
EU: Euskera     FA: Persa        FI: Finlandés     FR: Francés
GA: Irlandés    GL: Gallego      GU: Gujarati      HI: Hindú
HR: Croata      HT: Haitiano     HU: Húngaro       HY: Armenio
ID: Indonesio   IS: Islandés     IT: Italiano      IW: Hebreo
JA: Japonés     KA: Georgiano    KN: Kanada        KO: Coreano
LA: LatÝn       LT: Lituano      LV: Letón         MK: Macedonio
MS: Malayo      MT: Maltés       NL: Holandés      NO: Noruego
PL: Polaco      PT: Portugués    RO: Rumano        RU: Ruso
SK: Eslovaco    SL: Esloveno     SQ: Albanés       SR: Serbio
SV: Sueco       SW: Suajili      TA: Tamil         TE: Telugu
TH: Tailandés   TL: Tagalo       TR: Turco         UK: Ucraniano
UR: Urdu        VI: Vietnamita   YI: Yiddish
ZH-CN: Chino    (Simplificado)
ZH-TW: Chino    (Tradicional)

IMPORTANTE:
Para usar el script, Es necesario la utilidad wget.exe.
http://sourceforge.net/projects/gnuwin32/files/wget/1.11.4/wget-1.11.4-bin.zip/download PARECE SER QUE NO FUNCIONA
http://www.mediafire.com/?41476m73gbza1aj
(Necesariamente esa versión)

Capturas:
(http://img27.imageshack.us/img27/2664/prtscrcapturett.jpg)     (http://img710.imageshack.us/img710/5692/prtscrcapture3o.jpg)
(http://img685.imageshack.us/img685/2860/prtscrcapture2qm.jpg)     (http://img21.imageshack.us/img21/5402/prtscrcapture5r.jpg)

El code:
@Echo OFF
Title GoogleTranslateConsole v1.3
:: By Elektro H@cker

Wget 1>nul 2>&1
IF %Errorlevel% EQU 9009 (Exit /B 1)

Goto :Errorcontrol

:LOGO
Echo+
Echo:         GGGGGGGGGGGGG  TTTTTTTTTTTTTTTTTTTTTTT          CCCCCCCCCCCCC
Echo:      GGG::::::::::::G  T:::::::::::::::::::::T       CCC::::::::::::C
Echo:    GG:::::::::::::::G  T:::::::::::::::::::::T     CC:::::::::::::::C
Echo:   G:::::GGGGGGGG::::G  T:::::TT:::::::TT:::::T    C:::::CCCCCCCC::::C
Echo:  G:::::G       GGGGGG  TTTTTT  T:::::T  TTTTTT   C:::::C       CCCCCC
Echo: G:::::G                        T:::::T          C:::::C             
Echo: G:::::G                        T:::::T          C:::::C             
Echo: G:::::G    GGGGGGGGGG          T:::::T          C:::::C             
Echo: G:::::G    G::::::::G          T:::::T          C:::::C             
Echo: G:::::G    GGGGG::::G          T:::::T          C:::::C             
Echo: G:::::G        G::::G          T:::::T          C:::::C             
Echo:  G:::::G       G::::G          T:::::T           C:::::C       CCCCCC
Echo:   G:::::GGGGGGGG::::G        TT:::::::TT          C:::::CCCCCCCC::::C
Echo:    GG:::::::::::::::G        T:::::::::T           CC:::::::::::::::C
Echo:      GGG::::::::::::G        T:::::::::T             CCC::::::::::::C
Echo:         GGGGGGGGGGGGG Google TTTTTTTTTTT Translate      CCCCCCCCCCCCC Console
Echo+
Goto :EOF

:HELP
Echo: Modo de empleo: | MORE
Echo:   GTC [Idioma de entrada] [Idioma de salida] [Texto] |MORE
Echo: Ejemplo:  | MORE
Echo:   GTC ES "Hello World" | MORE

Echo: (El idioma de entrada se reconoce automaticamente por defecto.) | MORE

Echo: Idiomas: | MORE
Echo: AF: Africano    AR: µrabe        AZ: Azerbaijani   BE: Bielorruso
Echo: BG: B£lgaro     BN: Bengal,s     CA: Catal...n       CS: Checo
Echo: CY: Gal,s       DA: Dan,s        DE: Alem...n        EL: Griego
Echo: EN: Ingl,s      EO: Esperanto    ES: Espa¤ol       ET: Estonio
Echo: EU: Euskera     FA: Persa        FI: Finland,s     FR: Franc,s
Echo: GA: Irland,s    GL: Gallego      GU: Gujarati      HI: Hind£
Echo: HR: Croata      HT: Haitiano     HU: H£ngaro       HY: Armenio
Echo: ID: Indonesio   IS: Island,s     IT: Italiano      IW: Hebreo
Echo: JA: Japon,s     KA: Georgiano    KN: Kanada        KO: Coreano
Echo: LA: Latín       LT: Lituano      LV: Let¢n         MK: Macedonio
Echo: MS: Malayo      MT: Malt,s       NL: Holand,s      NO: Noruego
Echo: PL: Polaco      PT: Portugu,s    RO: Rumano        RU: Ruso
Echo: SK: Eslovaco    SL: Esloveno     SQ: Alban,s       SR: Serbio
Echo: SV: Sueco       SW: Suajili      TA: Tamil         TE: Telugu
Echo: TH: Tailand,s   TL: Tagalo       TR: Turco         UK: Ucraniano
Echo: UR: Urdu        VI: Vietnamita   YI: Yiddish       
Echo: ZH-CN: Chino    (Simplificado)
Echo: ZH-TW: Chino    (Tradicional)
Exit /B 1

:Errorcontrol
Setlocal Enabledelayedexpansion
Set "Langs=AF:Africano, AR:µrabe, AZ:Azerbaijani, BE:Bielorruso, BG:B£lgaro, BN:Bengal,s, CA:Catal...n, CS:Checo, CY:Gal,s, DA:Dan,s, DE:Alem...n, EL:Griego, EN:Ingl,s, EO:Esperanto, ES:Espa¤ol, ET:Estonio, EU:Euskera, FA:Persa, FI:Finland,s, FR:Franc,s, GA:Irland,s, GL:Gallego, GU:Gujarati, HI:Hind£, HR:Croata, HT:Haitiano, HU:H£ngaro, HY:Armenio, ID:Indonesio, IS:Island,s, IT:Italiano, IW:Hebreo, JA:Japon,s, KA:Georgiano, KN:Kanada, KO:Coreano, LA:Latín, LT:Lituano, LV:Let¢nMK:, Macedonio, MS:Malayo, MT:Malt,s, NL:Holand,s, NO:Noruego, PL:Polaco, PT:Portugu,s, RO:Rumano, RU:Ruso, SK:Eslovaco, SL:Esloveno, SQ:Alban,s, SR:Serbio, SV:Sueco, SW:Suajili, TA:Tamil, TE:Telugu, TH:Tailand,s, TL:Tagalo, TR:Turco, UK:Ucraniano, UR:Urdu, VI:Vietnamita, YI:Yiddish, ZH-CN:Chino Simplificado, ZH-TW:Chino Tradicional"
IF "%~3" EQU "" (
Echo "%LANGS%" | Find /I "%~1:" >NUL
IF !Errorlevel! EQU 1 (Echo Idioma no reconocido & Exit /B 1)
) ELSE (
Echo "%LANGS%" | Find /I "%~1:" >NUL
IF !Errorlevel! EQU 1 (Echo Idioma no reconocido & Exit /B 1)
Echo "%LANGS%" | Find /I "%~2:" >NUL
IF !Errorlevel! EQU 1 (Echo Idioma no reconocido & Exit /B 1)
)
Setlocal Disabledelayedexpansion

:Translate
Call :LOGO
IF "%~1" EQU "" (Start /B CMD /Q %0)
IF "%~2" EQU "" (Goto :HELP)
IF "%~3" EQU "" (Set "LangIN=auto" & Set "LangOUT=%~1" & Set "String=%~2") ELSE (Set "LangIN=%~1" & Set "LangOUT=%~2" & Set "String=%~3")
Set "String=%String: =+%"
Set "String=%String:...=;;%"
Set "String=%String:.=,,%"
Set "String=%String:!=(;)%"
WGET -U "Mozilla/5.0" -qO - "http://translate.google.com/translate_a/t?client=t&text=%STRING%&sl=%LangIN%&tl=%LangOUT%" -O "%TEMP%\GTC.html"
For /F "Tokens=* Delims=;" %%a in ('Type "%TEMP%\GTC.html"') do (Set "Body=%%a")

SET "Cut=%Body:*","=%"
CALL SET "Traduced=%%Body:%Cut%=%%"
SET "Traduced=%Traduced:[[["=%" & REM "
SET "Traduced=%Traduced: , ,=.%"
SET "Traduced=%Traduced: (;)=!%"
SET "Traduced=%Traduced: ( ;)=!%"
SET "Traduced=%Traduced:(;)=!%"
SET "Traduced=%Traduced:","=%"

:Print
Setlocal Enabledelayedexpansion
IF "%~3" EQU "" (
SET "LangINPrint=[AUTO]"
SET "LangOUTPrint=!langs:*%1:=!"
For /F "Tokens=1,* Delims=," %%# in ('Echo !LangOUTPrint!') Do (Set "LangOUTPrint=[%%#]")
) ELSE (
SET "LangINPrint=!langs:*%1:=!"
SET "LangOUTPrint=!langs:*%2:=!"
For /F "Tokens=1,* Delims=," %%# in ('Echo !LangINPrint!') Do (Set "LangINPrint=[%%#]")
For /F "Tokens=1,* Delims=," %%# in ('Echo !LangOUTPrint!') Do (Set "LangOUTPrint=[%%#]")
)
Setlocal Disabledelayedexpansion
Echo: Texto a traducir %LangINPrint% :
IF "%~3" EQU "" (Echo: [+] %~2 | MORE) ELSE (Echo: [+] %~3 | MORE)
Echo: Texto traducido %LangOUTPrint% :
Echo: [+] %Traduced%
Exit /B 0

PD: Cualquier bug o mejora comenten, Gracias.

Salu2.

Buen aporte, perfecto para no estar constantemente consultando translate.google.es ;)

Por cierto, ¿como consigues esos gráficos en tus aplicaciones, como el de GTC? ¿Es ASCII art? Le da un buen toque a la consola.

Saludos.

Cita de: kub0x en 12 Abril 2012, 16:03 PMPor cierto, ¿como consigues esos gráficos en tus aplicaciones, como el de GTC? ¿Es ASCII art? Le da un buen toque a la consola.

Gracias por el comentario  :P

Si, Es Art ASCII.
Las fuentes de estilos las saqué de internet hace un tiempo y las guardé, No recuerdo la web, Pero ahora los hago con un programa en Ruby que tengo a medias (Es una taréa muy lenta, Más de 100 estilos de letra + caracteres especiales, Hay que "setear" letra por letra) Me falta terminarlo y hacer la gui.

Se llamará Art ASCII Factory

En cuanto lo termine todos los interesados podrán hacer facilmente esas letras xD

PD: He actualizado el GTC a la v1.1

EDITO: La versión obligatoria de wget para usar el script (Eso parece ser) es esta: http://www.mediafire.com/?41476m73gbza1aj

Salu2!

yo hice uno propio casi igual, pero este es mejor

ME dice que GTC no se reconoce y me manda como si hubiera habierto el cmd normal me sale el eco y todo. (Haber si terminas ese programa para los efectos en batch que te quedan super bien ;-) ) Ahora miro el Art Ascii y te comento

Cita de: ELVJop en 12 Abril 2012, 18:57 PMME dice que GTC no se reconoce y me manda como si hubiera habierto el cmd normal me sale el eco y todo.

No entiendo el problema que tienes.

Escribe en consola:
echo %pathext%
Asegúrate de que tienes la extensión BAT.

Ejecuta la consola en la misma carpeta que el GTC, o metelo en la carpeta system32