Nicht angemeldet.
Hier können Sie Ihre eigenen Skripte und UDF's veröffentlichen undanderen zum Download anbieten oder von anderen herunterladen
$eingabe=InputBox("The Coderz-Community","Gib einen Satz in Deutsch ein:","","") MsgBox(0,"",Translate($eingabe,"de-en")) ;=============================================================================== ; ; Function Name: Translate() ; Description: Übersetzt 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 Übersetzung zurück ; On Failure - Gibt "0" zurück ; Author(s): FirePanther (www.autoit.at) ; ;=============================================================================== 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
Dauerhaft angemeldet bleiben?