GoogleTranslate issue

[AlexZ]

Hey Lucas, nice catch!

CTRLQ is a wonderful source of scripts. Thanks for sharing.

Function GoogleTranslator

Code:

Copy      Help

;/
function'str str'sourceText str'targetLang [str'sourceLang]

lpstr PatternLanguageCode="^(af|ga|sq|it|ar|ja|az|kn|eu|ko|bn|la|be|lv|bg|lt|ca|mk|zh\-CN|ms|zh\-TW|mt|hr|no|cs|fa|da|pl|nl|pt|en|ro|eo|ru|et|sr|tl|sk|fi|sl|fr|es|gl|sw|ka|sv|de|ta|el|te|gu|th|ht|tr|iw|uk|hi|ur|hu|vi|is|cy|id|yi)$"

if findrx(targetLang PatternLanguageCode)<0
,end F"targetLang: '{targetLang}' Language Code not supported"

if empty(sourceLang)
,sourceLang="auto"

if sourceLang<>"auto" and findrx(sourceLang PatternLanguageCode)<0
,end F"sourceLang: '{sourceLang}' Language Code not supported"

sourceText.escape(11)

str s s1

IntGetFile F"https://translate.googleapis.com/translate_a/single?client=gtx&sl={sourceLang}&tl={targetLang}&dt=t&q={sourceText}" s

if findrx(s "\[\[\[''(.+)'',''" 0 1 s1 1)<0
,ret "not found"

ret s1.escape(10)

Macro Use GoogleTranslator

Code:

Copy      Help

lpstr ssourceText=
;Here is Mr. Gintaras, our dear teacher living in Lithuania

out GoogleTranslator(ssourceText "es")