+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Google Çeviri / Google Translate (/konu-google-ceviri-google-translate.html)
Google Çeviri / Google Translate - berduş - 15/06/2019
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
GoogleCeviri_hy.rar
(Dosya Boyutu: 164,16 KB | İndirme Sayısı: 85)
RE: Google Çeviri / Google Translate - berduş - 08/08/2021
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