#cs ----------------------------------------------------------------------------
	
	AutoIt Version: 3.3.0.0
	Author:         DJSIR
	
	Script Function:
	Fonction Tranlsate avec Auto-Traductiton.
	
#ce ----------------------------------------------------------------------------

#include-once
#include <Misc.au3>

Global Const $POS_PLUS_MOINS = 25
Global $httpReq = ObjCreate("WinHttp.WinHttpRequest.5.1")

$ini = InputBox("Nom du fichier", "Nom du fichier a traduire ?")
If $ini = "" Then Exit
$lang = InputBox("Langue à traduire", "Langue a traduire ?")
If $lang = "" Then Exit
$sortie = InputBox("Langue à traduire", "Les deux lettres de la langue :" & @CRLF & "en, nl, be, fr, etc...")
If $sortie = "" Then Exit
$var = IniReadSection("C:\Documents and Settings\Administrateur\Bureau\[UDF] Translate\lang.isaf", $lang)

For $i = 1 To $var[0][0]
	Google_traduit($var[$i][0],$sortie)
Next
Exit

While 1
	Sleep(100)
WEnd

Func Google_traduit($q, $out)
	Local $temp, $rep, $pos, $pos_maj
	$httpReq.Open("GET", _
			"http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" & $q & "&langpair=fr%7C" & $out, _
			False)
	$httpReq.Send
	$rep = StringRegExp($httpReq.ResponseText, _
			'{"responseData": {"translatedText":"(.*?)"}', _
			3)
	$rep[0] = codageHtmlVersTxt($rep[0])

	ToolTip($var[$i][0] & "-" & $rep[0], 0, 0)
	IniWrite("lang.isaf", $lang, $var[$i][0], $rep[0])

	Sleep(2500)
EndFunc

Func codageHtmlVersTxt($codeHtml)
	Local $i
	Local $expReg = StringRegExp($codeHtml, "\\u0026\#(\d+);", 3)

	For $i = 0 To UBound($expReg) - 1
		$codeHtml = StringReplace($codeHtml, _
				"\u0026#" & $expReg[$i] & ";", _
				Chr($expReg[$i]), _
				1)
	Next

	Return $codeHtml
EndFunc