VBScript для AE - чтение XLS без Excel и запись красивого XML

Spirit412

Топикстартер
15 лет на форуме
Сообщения
870
Реакции
128
Простой VBS сделайте. Что бы ничего не делал. Запустился, и закрылся
Сделайте простой воркфлоу с тикетом ранскрипт. Протектируйте
 

eugeny

15 лет на форуме
Сообщения
858
Реакции
210
Простой VBS сделайте. Что бы ничего не делал. Запустился, и закрылся
Сделайте простой воркфлоу с тикетом ранскрипт. Протектируйте
да делал уже. И "Приветмир" делал )). Если его один запустить (из проводника) он работает. Глюк какой-то с Run Script. В чем проблема не пойму. Поискал фиксы, но не было вроде такой проблемы у AE 18.
 

dimonchikk

15 лет на форуме
Сообщения
1 165
Реакции
432
Я понял в чем грабля. Попробуйте отключить сервис ранскрипта в службах и приложении. И запустить его вручную (появится отдельное окошко с кучей текста). Если пройдет - можно просто батник настроить на автозапуск при старте системы.
 

eugeny

15 лет на форуме
Сообщения
858
Реакции
210
Я понял в чем грабля. Попробуйте отключить сервис ранскрипта в службах и приложении. И запустить его вручную (появится отдельное окошко с кучей текста). Если пройдет - можно просто батник настроить на автозапуск при старте системы.
Как сервис отключил. А в приложении что нужно сделать? удалить в конфиге на вкладке скрипты? И что потом вручную запускать?
Screenshot_3.jpg
 

dimonchikk

15 лет на форуме
Сообщения
1 165
Реакции
432
Нет. Просто экзешник скриптраннера запустить.
 

dimonchikk

15 лет на форуме
Сообщения
1 165
Реакции
432
C:\Esko\bg_prog_fastserverscrrunnt_v180\bin\egscrrun
 

Spirit412

Топикстартер
15 лет на форуме
Сообщения
870
Реакции
128
Выдожи код твоего vbs скрипта Привет мир.
 

eugeny

15 лет на форуме
Сообщения
858
Реакции
210
C:\Esko\bg_prog_fastserverscrrunnt_v180\bin\egscrrun
Все сейчас выглядит вот так:
Screenshot_4.jpg

Но все равно не работает Run Скрипт. Может что-то еще перезапустить надо? скриптраннер стоит только на сервере. С локалки удалил.
 

dimonchikk

15 лет на форуме
Сообщения
1 165
Реакции
432
Ну теперь чекнуть бы все с ае конфигатора. тест коннекшн. И пробовать стартовать скрипты.
 

dimonchikk

15 лет на форуме
Сообщения
1 165
Реакции
432
И тикет свой ранскрипта покажи плиз.
 

dimonchikk

15 лет на форуме
Сообщения
1 165
Реакции
432
Выше коллега спрашивал про код скрипта. Мож там что напутано?
 

dimonchikk

15 лет на форуме
Сообщения
1 165
Реакции
432
Тут уже не скажу. Я помню почему не работал скрипт раннер в виде сервиса. И заработал в таком варианте. Дальше уже нужно гуру теребить. Проснутся скоро - может ответят ;]=
 

eugeny

15 лет на форуме
Сообщения
858
Реакции
210
Короче, VBS под АЕ пишется не так как обычно. Обязательно нужны inputs() params() и outputFolder
и Main = "OK" если всё хорошо закончилось
Читай мануал
Смотри примеры
я вроде оттуда и брал:
Код:
Function Main (inputs, outputFolder, params)
Wscript.Echo "hello World"
Main = ok
End Function

Dim inputs()
Dim outputFolder
Dim params()
Main inputs, outputFolder, params
 

eugeny

15 лет на форуме
Сообщения
858
Реакции
210
Проблема в том, имхо, что сам тикет даже не начинает работать. Он либо чего-то не получает, чотбы начать запуск. Типа, ответа сервера.
 

Вложения

  • Screenshot_5.jpg
    Screenshot_5.jpg
    75.3 КБ · Просм.: 162
Последнее редактирование:

Spirit412

Топикстартер
15 лет на форуме
Сообщения
870
Реакции
128
1621404060634.png



Код:
Function Main(inputs, outputFolder, params)

WScript.Echo(Recode("hello World" & inputFile, "cp866", "windows-1251"))
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


Dim inputs()
Dim outputFolder
Dim params()

Main inputs, outputFolder, params
Main = "OK"

Сам файл VBS в кодировке windows-1251
 

eugeny

15 лет на форуме
Сообщения
858
Реакции
210
Screenshot_8.jpg


Попробовал скрипт, но у меня (справа) вообще не стартует процесс (часики висят ожидания)