AccessTr.neT

google çeviri uygulaması,
bu çalışmada tabloya bağlı ama istenirse ufak bir değişiklikle metin kutularına yazılanları da çevirebilir.
yine google çevirinin bir özelliği olan latin alfabesi kullanmayan diller için okunuşları da eklenebiliyor
[attachment=30389]

güncellenmiş halinde kod aşağıdaki gibi düzenlenmeli

Function TranslateXml2(strInput As string, Optional strFromLanguageCode As String = "en", Optional strToLanguageCode As String = "tr") As String

   

    Dim strURL As String

    Dim objHTTP As Object

    Dim objHTML As Object

    Dim objDivs As Object, objDiv

    Dim strTranslatedT0 As String

    Dim strTranslatedO1 As String

'Dim objHTTP As MSXML2.XMLHTTP60

    ' send query to web page

    strURL = "https://translate.google.com/m?hl=" & strFromLanguageCode & _

        "&sl=" & strFromLanguageCode & _

        "&tl=" & strToLanguageCode & _

        "&ie=UTF-8&prev=_m&q=" & strInput



    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

'Set objHTTP = New MSXML2.XMLHTTP60

    objHTTP.Open "GET", strURL, False

    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

    objHTTP.send ""



    ' create a Html document

    Set objHTML = CreateObject("htmlfile")

    With objHTML

        .Open

        .Write objHTTP.responseText

        .Close

    End With



    ' o1 has Anglicised translation, t0 as tranlsation in target language

    Set objDivs = objHTML.getElementsByTagName("div")



    For Each objDiv In objDivs

        If objDiv.className = "result-container" Then '<== düzenlenen kısım "t0" yerine "result-container" kullanıldı

            strTranslatedT0 = objDiv.innerText & ""

        End If

    Next objDiv

'strTranslatedO1 = IIf(IsNull(strTranslatedO1) Or strTranslatedO1 = "", strTranslatedO1, "(" & strTranslatedO1 & ")")

TranslateXml2 = strTranslatedT0

CleanUp:

    Set objHTML = Nothing

    Set objHTTP = Nothing



End Function

berduş

berduş