vbs массив

Ответить
  1. 9 г. назад

    #0 Stim

    02.10.2014 15:51:58

    есть такой код:

    Set v8 = CreateObject("V83.COMConnector")
ConnectString  =  "srvr='" + ServerName + ":1541'; ref='" + BaseName +  "'; Usr='" + UserName +  "'; pwd='" + Pass +  "'; UC='" + CodeBlock +  "';"
Set  Connect = V8.Connect(ConnectString)
ConnectionsItem = Connect.[ПолучитьСоединенияИнформационнойБазы]()
For Each Connections In ConnectionsItem
WScript.Echo Eval("Connections.[ИмяПриложения]")
Next

    все работает, кроме вывода значения элемента массива.
    ПолучитьСоединенияИнформационнойБазы() - возвращает массив( в 1С), но как его разобрать в vbs?

    выдает ошибку object doesn't support this property or method на строку WScript.Echo Eval("Connections.[ИмяПриложения]")

  2. #1 andrewks

    02.10.2014 15:57:07

    Connect.[ПолучитьСоединенияИнформационнойБазы]() - а почему так хитро? в бэйсике нельзя обратиться напрямую к методу объекта? типа, так: Connect.ПолучитьСоединенияИнформационнойБазы() ?

    Ответы: (2)

  3. #2 Stim

    02.10.2014 15:59:18

    (1) можно, но в моем скрипте так не катит, скорее всего из-за русских шрифтов. лень разбираться с кодировкой, так работает и ладно

    Ответы: (3)

  4. #3 andrewks

    02.10.2014 16:01:22

    (2) ну, выведи дамп переменной Connections , глянь, чё там

    Ответы: (5)

  5. #4 Stim

    02.10.2014 16:02:57

    ConnectionsItem = Connect.GetInfoBaseConnections()
    и

    WScript.Echo Eval("Connections.ApplicationName")

    выдают ту же ошибку

  6. #5 Stim

    02.10.2014 16:03:05

    (3) как?

  7. #6 andrewks

    02.10.2014 16:06:14

    для начала - выведи VarType(Connections) и TypeName(Connections)

  8. #7 andrewks

    02.10.2014 16:06:51

    ох, и тупорылый этот твой бэйсик. ни var_dump(), ни print_r() нету.

  9. #8 andrewks

    02.10.2014 16:11:34

    а ты уверен, что одинэсовский Массив автоматом конвертится в enum?

    Ответы: (10)

  10. #9 andrewks

    02.10.2014 16:12:44

    Connections = Connect.[ПолучитьСоединенияИнформационнойБазы]()
    WScript.Echo Eval("Connections.[Количество]()")

    что выведет?

    Ответы: (11) (12)

  11. #10 Stim

    02.10.2014 16:13:19

    (8)нет конешн. если бы он конвертился, ошибки бы никакой не было)

    Ответы: (11)

  12. #11 andrewks

    02.10.2014 16:18:32

    (10) так чего же нам мозг ешь тогда? :) попробуй (9) - если катит, значит, юзай методы одинэсовского класса Массив

  13. #12 Stim

    02.10.2014 16:28:24

    (9) работает:

    ConnectionsItem = Connect.[ПолучитьСоединенияИнформационнойБазы]().[Количество]()
WScript.Echo Eval("ConnectionsItem")

    не работает:

    ConnectionsItem = Connect.[ПолучитьСоединенияИнформационнойБазы]()
ConnectionsItem2 = ConnectionsItem.[Количество]()
WScript.Echo Eval("ConnectionsItem2")

    выдает аналогичную сабжа ошибку о недоступности методов

    и вообще на
    ConnectionsItem = Connect.[ПолучитьСоединенияИнформационнойБазы]() ругается

    Ответы: (13) (15)

  14. #13 andrewks

    02.10.2014 16:38:28

    Stim и вообще на
    ConnectionsItem = Connect.[ПолучитьСоединенияИнформационнойБазы]() ругается

    т.е. раньше не ругалось, а теперь ругается?

  15. #14 Идун

    02.10.2014 16:40:17

    Вообще-та надо массив обьявить, и потом пономерам его обнюхивать
    на русском:
    http://www.askit.ru/custom/progr_admin/m02/02_05_vbscript_arrays.htm

  16. #15 andrewks

    02.10.2014 16:41:19

    Stim WScript.Echo Eval("ConnectionsItem2")

    Eval-то нафига?

  17. #16 andrewks

    02.10.2014 16:43:49

    я так думаю, тебе, всё-таки, надо разобраться с кодировками, чтобы вызывать методы по-человечьи, через точку.
    или используй англоязычные синонимы

    Ответы: (17)

  18. #17 Stim

    02.10.2014 16:50:39

    (16) см 4

    Ответы: (18)

  19. #18 andrewks

    02.10.2014 16:52:32

    (17) ещё раз: у тебя после ConnectionsItem = Connect.GetInfoBaseConnections() в ConnectionsItem - одинэсовский массив. используй его методы

    Ответы: (19)

  20. #19 Stim

    02.10.2014 16:54:11

    (18) какие методы, мне нужно обойти массив и узнать какого типа соединения в нем

    Ответы: (20)

  21. #20 andrewks

    02.10.2014 17:00:50

    Stim какие методы

    Методы:

    ВГраница (UBound)
    Вставить (Insert)
    Добавить (Add)
    Количество (Count)
    Найти (Find)
    Очистить (Clear)
    Получить (Get)
    Удалить (Delete)
    Установить (Set)

    © СП

  22. #21 Stim

    02.10.2014 17:01:24

    ну вот как-то так пока получилось. вроде работает

    ConnectionsItemCount = Connect.GetInfoBaseConnections().Count()
ConnectionsItemCountStart = 0

do while  ConnectionsItemCountStart<=ConnectionsItemCount-1 
ConnectionsItem = Connect.GetInfoBaseConnections().get(ConnectionsItemCountStart).ApplicationName

WScript.Echo ConnectionsItem

ConnectionsItemCountStart = ConnectionsItemCountStart + 1

Loop
    Ответы: (22)

  23. #22 andrewks

    02.10.2014 17:03:01

    (21) ну, вот, наконец вижу человеческий код

    Ответы: (23)

  24. #23 Stim

    02.10.2014 17:05:18

    (22) сразу видно - не одинесник) для одинесника человеческий код - на русском языке

    Ответы: (24)

  25. #24 andrewks

    02.10.2014 17:05:46

    (23) [тут холивар на тыщу постов]

  26. #25 Stim

    02.10.2014 17:10:54

    а как досрочно выйти из цикла do while ?

  27. #26 Stim

    02.10.2014 17:12:28

    + потом запилю свою выгонялку сюда в БЗ

    Ответы: (28)

  28. #27 Stim

    02.10.2014 17:18:01
    02.10.2014 17:18:42 отредактировано Stim

    а хотя пох.

    вот кусок, который проверяет активные пользовательские сеансы(каждые 30 сек в течении 5 минут и возвращает по истечении результат)

    ReturnItem = 1


do while Rez = 0 

'пауза в 30сек
WScript.Sleep 30000 

'соединенийПользователей = 0
ConnectionsUsers = 0

'всего соединений
ConnectionsItemCount = Connect.GetInfoBaseConnections().Count()
'счетчик соединений
ConnectionsItemCountStart = 0

' перебираем все соединения
do while  ConnectionsItemCountStart<=ConnectionsItemCount-1 

' получаем имя соединения
ConnectionApplicationName = Connect.GetInfoBaseConnections().get(ConnectionsItemCountStart).ApplicationName

if ConnectionApplicationName = "1CV8C" then

ConnectionsUsers = ConnectionsUsers + 1

end if

ConnectionsItemCountStart = ConnectionsItemCountStart + 1

Loop


if ConnectionsUsers = 0 then
	txtStreamOut.WriteLine Now() & " > Соединения с базой разорваны: сервер " & ServerName & ", база " & BaseName & " Соединений:"& ConnectionsItemCount
Rez = 1
End If



if ReturnItem = 6 then
	txtStreamOut.WriteLine Now() & " > Соединения с базой не разорваны: сервер " & ServerName & ", база " & BaseName & " Соединений:"& ConnectionsItem-1
rez = 2
End if

ReturnItem = ReturnItem + 1
Loop

  29. #28 acsent

    02.10.2014 17:36:25

    (26) Зашел бы на инфостарт, как белый человек скачал бы выгонялку. там их вагон

    Ответы: (30) (31)

  30. #29 acsent

    02.10.2014 17:36:59

    http://infostart.ru/public/175494/

  31. #30 Stim

    02.10.2014 17:56:06

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

    сейчас у нас- на базу ставится блокировка соединений и вот каждые 30 сек проверяется кол пользователей. как только штатная выгонялка всех выкинула - начинается обновление

  32. #31 andrewks

    02.10.2014 17:56:27

    (28) каждый уважающий себя одинэсник должен построить дом, посадить дерево и воспитать сына написать собственную выгонялку и запилить собственную нетленку

    Ответы: (32)

  33. #32 Stim

    02.10.2014 17:59:36

    (31) у нас в одном скрипте ставится блокировка с ожиданием, выгрузка+обновление+ запись результата. сами скрипты формируются из спец базы с базами, в которых их 10050 штук на десятке серверов. на каждые ~10 баз формируется отдельный скрипт. скрипты потом запускаем потоком по 3-4 за раз, в зависимости от сервера.

    врядли где-то есть такое готовое решение

или зарегистрируйтесь чтобы ответить!