Konu: VFP ile google translate'i kullanarak tercüme yapmak
Text1 ile verilen kelime veya cümle tercüme edilir. Uzun metinlerin tercümesi için uygun değildir. Kötü tercümelerden google sorumludur
TEXT1="hello world"
TEXT2=GOOGLETRANS(TEXT1)
MESSAGEBOX(TEXT2)
RETURN
****************************
PROCEDURE GOOGLETRANS(TEXT1)
XURL1="http://translate.google.com/translate_t?text="
XURL2="&langpair="+"en|tr"+"&hl=tr"+"&ie=UTF8"
XURL=XURL1+TEXT1+XURL2
loie=createobject("InternetExplorer.Application")
loie.navigate(XURL)
do while loie.readystate<>4
doevents
ENDDO
TEXT2=UPPER(loie.document.body.innerhtml)
RETURN strextract(TEXT2,'<DIV DIR=LTR ID=RESULT_BOX>','</DIV>',1,1)