1 Тема от netrezv (изменено: netrezv, 2011-06-23 10:02:15)

  • netrezv
  • Участник
  • Неактивен

Тема: VBS: Преобразовать список в массив

Подскажите как из списка сделать массив, чтобы в цикле можно было использовать отдельный элемент?

получаю данные: 

Set srvXmlHttp = CreateObject("Msxml2.ServerXMLHTTP.4.0")
srvXmlHttp.Open "GET", "http://test.com/internet/exceed_limit", False
srvXmlHttp.send
WScript.Echo srvXmlHttp.responseText

в файле exceed_limit списком:
prucenkovv
kiselevis
prokopjevvv
vlasovrv
...

Таким макаром работает:

a=Array("prucenkovv","kiselevis","prokopjevvv","vlasovrv")
for each x in a
If x = "kiselevis" Then
    wscript.Echo x
End If
Next

2 Ответ от Dmitrii (изменено: Dmitrii, 2011-06-23 11:25:15)

  • Dmitrii
  • Разработчик
  • Неактивен

Re: VBS: Преобразовать список в массив

Используйте функцию Split().

3 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: VBS: Преобразовать список в массив

Используйте для преобразования прочтённого текста в массив функцию Split(), указав в качестве разделителя «vbCrLf»/«vbCr»/«vbLf» (в зависимости от конца строк в файле).

4 Ответ от netrezv

  • netrezv
  • Участник
  • Неактивен

Re: VBS: Преобразовать список в массив

Split(a, Chr(10), -1, 1)

конечно же, спасибо.