VBS/WSH/JS - [решено] VBS. Сортировка элементов массива и разделение на страницы

Iska · Отправлено: **14:04, 02-11-2013** | #2

Цитата McLotos:

В общем при помощи VBS получаю массив элементов »

Приведите код.

Цитата McLotos:

Не было бы проблем. если бы список не содержал в себе больше 100 элементов. »

Почему так? Каким образом связано с размером массива?

Цитата McLotos:

Подскажите как его отсортировать »

Как угодно. Одним из методов сортировки «вручную» (перестановки, «пузырьковой» сортировки и т.п.; для краткого ознакомления: Алгоритм сортировки — Википедия), использованием JScript'ового метода «.sort()», задействования для сортировки объекта «ADODB.Recordset».

Цитата McLotos:

и разделить на страницы. »

Поясните, что под сим подразумевается? И зачем.

McLotos · Отправлено: **14:12, 02-11-2013** | #3

Код:

document.write("<ul>")
i=0
Do Until adoRecordset.EOF
    i=i+1
    adoRecordset.MoveNext
Loop
adorecordset.Requery
Dim Elements() 'создаём пустой массив не указывая заранее его размер
Redim Elements(i) ' переназначаем размер массива
adoRecordset.MoveFirst
for i=LBound(Elements) to UBound(Elements)
Elements(i)=adoRecordset.Fields("name").Value
document.write("<li>" & Elements(i) & "</li>")
adoRecordset.MoveNext
Next
document.write("</ul>")
adoRecordset.Close
adoConnection.Close

Iska · Отправлено: **14:42, 02-11-2013** | #4

1. Используйте свойство «.Sort»: Sort Property (ADO).

2. Откуда берётся сам объект «adoRecordset»? Не пробовали использовать сортировку при заполнении объекта (наподобие "… ORDER BY …"), если таковая поддерживается поставщиком данных?

McLotos · Отправлено: **14:57, 02-11-2013** | #5

был бы SQL я бы конечно отсортировал прямо в запросе, а так, поставщиком данных является AD. скорее всего придётся передавать список в JS и там уже сортировку делать.

Спасибо. и ещё один вопросик, как запустить пинг из vbs я знаю, как в vbs использовать fPing?

Iska · Отправлено: **15:51, 02-11-2013** | #6

Цитата McLotos:

был бы SQL я бы конечно отсортировал прямо в запросе, а так, поставщиком данных является AD. »

Возможность сортировки есть при использовании этого поставщика данных: Script Sort a Recordset by User Name.

Цитата McLotos:

как в vbs использовать fPing? »

Я не знаю, что такое «fPing». Поясните.

McLotos · Отправлено: **16:16, 02-11-2013** | #7

fping это cmd утилита, которая может пинговать сразу несколько хостов одновременно, открывая для каждого хоста свой сокет.

Iska · Отправлено: **16:34, 02-11-2013** | #8

У меня нет fping. Также я не знаю, где взять его исполняемый файл под Windows.

Вы можете посмотреть на:
vbscript: асинхронная обработка множественных запросов WMI (на примере «Win32_PingStatus»)
VBS/WMI: Многопоточный WshController с ограничением длины очереди

McLotos · Отправлено: **17:07, 02-11-2013** | #9

спс. почитаю. Ну и последний вопрос (а то я наверное уже достал

)))) ) а как сделать поиск в массиве по первой букве?
нашёл. определить первую букву слова можно функцией
String(1,Slovo) или Left(Slovo,1)

Iska · Отправлено: **23:44, 02-11-2013** | #10

Left() или Mid(). Первая предпочтительнее. String() предназначена для иного: создать переменную типа «String» указанной длины.

Цитата McLotos:

Ну и последний вопрос (а то я наверное уже достал )))) ) »

Достать — ничуть не достали, но Правилами оговорено: один вопрос (тематика) — одна тема, а мы тут уже на три темы наговорили.