Вопрос по VBScript в AE

Spirit412 сказал(а):

Есть некий VBS.
Что бы хоть както тебажить, вывожу значения переменных в консоль (т.е. в шатле, если посмотреть детали тикета Run script, можно увидеть выведенную информацию)
Вопрос в кодировке.

Код:

WScript.Echo "Входящий файл: inputs() : " & inputs(0)

Упорно выводит: ‚室пйЁ© д ©«: inputs() : \\server-esko\AE_BASE\TEMP-Shuttle-IN\142708\SPUSK_v03.xls

Нажмите, чтобы раскрыть...

Function Main(inputs, outputFolder, params)
    For Each input in inputs
    WScript.Echo(Recode(input, "cp866", "windows-1251"))
    Next
    
    Main = "OK"
        
End Function


Function Recode(StrText, SrcCode, DestCode)
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Mode = 3
        .Charset = DestCode
        .Open
        .WriteText (strText)
        .Position = 0
        .Charset = SrcCode
        Recode = .ReadText
        .Close
    end with
End Function

Spirit412 сказал(а):

Нет, не получается.
В консоле ответ:

Код:

The script's standard output stream:
‘ҐаўҐа бжҐ аЁҐў Windows (Microsoft R) ўҐабЁп 5.8
Copyright (C) Љ®аЇ®а жЁп Њ ©Єа®б®дв 1996-2006, ўбҐ Їа ў  § йЁйҐл.

The script's error output stream:
C:\Windows\TEMP\test.vbs(57, 1) ЋиЁЎЄ  Є®¬ЇЁ«пжЁЁ Microsoft VBScript: ЌҐ¤®ЇгбвЁ¬л©  § Є

Нажмите, чтобы раскрыть...

Spirit412 сказал(а):

Я твой код пихнул в vbs. Ошибку выдало.
Или как-то неправильно использую. По идее, есть функция которая меняет кодировку. И форич с выдачей результата в консоль. функция Recode меняет кодировку у переменной input. Так?
Т.е. вместо инпута могу и просто текст использовать. Этот текст функция Recode должна конвертнуть, а WScript.Echo выдать результат в консоль.
WScript.Echo(Recode("Просто текст", "cp866", "windows-1251"))
Всё верно?


Я изначально рассматривал - на чём скрипты писать для обработки xls, разнообразного парсинга, доступа к MySQL (можно и нодами в AE через SQL запросы, но мне после VBA удобнее в VBS) т.п.? Что выбрать для этого?
Вот этот ответ меня убедил использовать vbs

Нажмите, чтобы раскрыть...

Function Main(inputs, outputFolder, params)
    For Each input in inputs
    WScript.Echo(Recode("Просто текст", "cp866", "windows-1251"))
    Next
    
    Main = "OK"
        
End Function

Spirit412 сказал(а):

jdbc драйвер стоит. Через ноду в АЕ доступ к MySQL есть.
Но у меня сразу одним файлом и запрос данных из БД, и замена (если нужно) "." на "," (или обратно)... плюс всякие If...else и т.п.
Я пока не настолько SQL знаю, что бы всё это на нём делать.

Нажмите, чтобы раскрыть...