Hey, ich habe mir von einer anderen Seite einen Übersetzer in der Sprache AutoIt runtergeladen.
Soweit so gut, nun bin ich aber noch ein Neuling was AutoIt angeht (was sich derzeit ändert ;)).
Mit dem Script kann man viele Sprachen von Deutsch in eine andere Übersetzen.
Hier mal die Source:
; Title: Übersetzer
; Published: 21.12.09
; Downloaded: 19.06.10
; Type: UDF
$eingabe=InputBox("Übersetzer","Gib einen Satz in Deutsch ein:","","")
MsgBox(0,"",Translate($eingabe,"de-fr"))
;===============================================================================
;
; Function Name: Translate()
; Description: ?ersetzt einen Satz von der einen zur anderen Sprache
; Parameter(s): $satz = Ihr Satz
; $language = Von Sprache - In Sprache:
; de-en, en-de, zh-en, zh-zt, zt-en, zt-zh,
; en-zh, en-zt, en-nl, en-fr, en-el, en-it,
; en-ja, en-ko, en-pt, en-ru, en-es, nl-en,
; nl-fr, fr-nl, fr-en, fr-de, fr-el, fr-it,
; fr-pt, fr-es, de-fr, el-en, el-fr, it-en,
; it-fr, ja-en, ko-en, pt-en, pt-fr, ru-en,
; es-en, es-fr
; Return Value(s): On Success - Gibt die ?ersetzung zur?
; On Failure - Gibt "0" zur?
;
;===============================================================================
Func Translate($satz,$language)
Local $translate, $i, $escaped
For $i=1 To StringLen($satz)
If "0x"&Hex(Asc(StringMid($satz,$i,1)),2)<0x21 Or "0x"&Hex(Asc(StringMid($satz,$i,1)),2)=0x25 Or "0x"&Hex(Asc(StringMid($satz,$i,1)),2)=0x2f Or "0x"&Hex(Asc(StringMid($satz,$i,1)),2)>0x7f Then
$escaped=$escaped&'%'&Hex(Asc(StringMid($satz,$i,1)),2)
Else
$escaped=$escaped&Chr("0x"&Hex(Asc(StringMid($satz,$i,1)),2))
EndIf
Next
InetGet("http://babelfish.yahoo.com/translate_txt?ei=UTF-8&doit=done&fr=bf-res&intl=1&tt=urltext&trtext="&$escaped&"&lp="&StringReplace($language,"-","_")&"&btnTrTxt=Translate",@TempDir&"translate.dll")
$translate=FileRead(@TempDir&"translate.dll")
FileDelete(@TempDir&"translate.dll")
$translate=StringMid($translate,StringInStr($translate,'<div id="result">'))
$translate=StringMid($translate,StringInStr($translate,'>')+1)
$translate=StringMid($translate,StringInStr($translate,'>')+1)
$translate=StringLeft($translate,StringInStr($translate,'<')-1)
Return $translate
EndFunc
Und ich möchte, dass beim Start des Scripts ein Menü kommt, wo ich die Sprache auswählen kann, in welche übersetzt werden soll.
Wäre wirklich genial wenn mir jemand zeigen könnte, wie sowas geht, damit ich das auch für andere Scripte anwenden kann
Viielen Dank im Voraus.
Beste Grüße,
c0der.