Перевод текста в google.com

[Lama Under Cover]

Макрос с сайта: http://excelvba.ru/node/305/backlinks

На данный момент - не рабочий

Function Translate$(ByVal TextToBeTranslated$, ByVal resultLanguageCode$, _
                    Optional ByVal sourceLanguageCode$ = "")
    Application.Volatile True
    Set ADOStream = CreateObject("ADODB.Stream") 
    With ADOStream
        .Charset = "utf-8": .Mode = 3: .Type = 2: .Open
        .WriteText TextToBeTranslated: .Flush: .Position = 0 
        .Type = 1: .Read 3: ByteArrayToEncode = .Read(): .Close 
    End With
    For i = 0 To UBound(ByteArrayToEncode)
        iAsc = ByteArrayToEncode(i)
        Select Case iAsc
            Case 32: sTemp$ = "+"    
            Case 48 To 57, 65 To 90, 97 To 122: sTemp$ = Chr(ByteArrayToEncode(i))
            Case Else: sTemp$ = "%" & Hex(iAsc)
        End Select
        txt$ = txt$ & sTemp$
    Next ' 
  
    URL$ = "https://translate.google.ru/?hl=en&authuser=0#" & sourceLanguageCode$ & "/" & resultLanguageCode$ & "/" & _
    txt$
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")    
    XMLHTTP.Open "GET", Replace(URL$, "\", "/"), "False": XMLHTTP.send
    If XMLHTTP.statustext = "OK" Then
        LocalPath$ = Environ("TMP") & "\google.txt"
        With ADOStream 
            .Type = 1: .Open: .Write XMLHTTP.responseBody
            .SaveToFile LocalPath$, 2
            .Close: .Type = 2: .Charset = "utf-8": .Open:
            .LoadFromFile LocalPath$ 
            Translate$ = .ReadText  
        End With
        On Error Resume Next   
Translate$ = Split(Translate$, """trans"":""")(1)
        Translate$ = Split(Translate$, """,""orig")(0)
        Translate$ = Replace(Translate$, "quot;", Chr(39))
        If Translate$ = " null, " Then Translate$ = "Не переведено" 
    End If
    Set XMLHTTP = Nothing: Set ADOStream = Nothing
End Function

Надеюсь, подскажете:

1) как выписать содержание переменной txt$ в текстовый файл;
2) Replace(URL$, "\", "/") - зачем делать замену;
3) что представляют два подряд Translate$ = Split(Translate$, """trans"":""")(1)
Translate$ = Split(Translate$, """,""orig")(0)
4) в готовом текстовом файле через Ctrl+F искал переведенный текст, но не смог найти, аналогично искал разделители, которые также не смог найти, где ошибся и правильно ли понимаю то, что нужно искать ответ в виде utf-8 как готовое переведенное слово (например, переводим "добро", ищем через Ctrl+F "good")
5) быть может, кто-либо сразу увидит ошибку или подскажет другой вариант перевода


Заранее спасибо!


_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[EducatedFool]

поскольку макрос мой, - мне и отвечать

как выписать содержание переменной txt$ в текстовый файл;

на сайте у меня есть код
http://excelvba.ru/code/txt
http://excelvba.ru/code/SaveTextToFile

Replace(URL$, "\", "/") - зачем делать замену;

не помню, зачем это делал
возможно, от другого макроса осталось
можете убрать

что представляют два подряд Translate$ = Split(Translate$, """trans"":""")(1)
Translate$ = Split(Translate$, """,""orig")(0)

сначала берем кусок текста ПОСЛЕ "trans":"
а потом берем кусок текста ДО ","orig"

т.е. мы взяли текст МЕЖДУ "trans":" и ","orig"
(в таком виде гугл раньше ответ выдавал)

быть может, кто-либо сразу увидит ошибку

ошибок там нет
макрос успешно работал несколько лет
потом гугл поменял сервис (там капча выскакивает)
т.е. макрос надо сильно усложнять (переделывать)
я как-то начал править этот макрос, потратил пару часов, и бросил это занятие

ищите в интернетах другой макрос, который недавно опубликован и недавно проверен (может, кто уже сделал и выложил)

[Lama Under Cover]

И все же, как грамотно анализировать содержание файла google.txt?

[Lama Under Cover]

Спасибо Всем!

На данный момент обошел коллизию с использованием ФИЛЬТР.XML, ВЕБСЛУЖБА и бесплатного API-ключа (https://tech.yandex.ru/translate/) =/