Серый форум — VBS: Вывести по 5 элементов из массива

Re: VBS: Вывести по 5 элементов из массива

2017-03-30T08:53:58Z

Да, так намного понятней.

Re: VBS: Вывести по 5 элементов из массива

2017-03-30T00:31:54Z

929151
Пож-та. Кстати, если заинтересует, можно выхватывать строки из текста группой без конкатенации:

DivNum = 5  ' делящее число строк

With New RegExp
	.Global = True : .Pattern = "([^\r]+(\r|$)){1," & DivNum & "}"
	Set Matches = .Execute(Join(DataList.ToArray, vbCr))
End With
For i = 0 To Matches.Count - 1
	MsgBox Matches(i)
Next

Re: VBS: Вывести по 5 элементов из массива

2017-03-29T23:54:07Z

Спасибо! Вы всегда очень выручаете!

Re: VBS: Вывести по 5 элементов из массива

2017-03-29T23:34:03Z

Поправил.

Re: VBS: Вывести по 5 элементов из массива

2017-03-29T23:19:21Z

Спасибо.
Можно чтобы оставшиеся (11, 12) тоже выводились?

Re: VBS: Вывести по 5 элементов из массива

2017-03-29T23:08:59Z

For Each Item In DataList
	n = n + 1 :	S = S & vbCr & Item
	If n/5 = CInt(n/5) Or n = DataList.Count Then MsgBox Mid(S, 2) : S = ""
Next

VBS: Вывести по 5 элементов из массива

2017-03-29T22:48:28Z

Подскажите, как такое реализовать.
Необходимо выводить последовательно по 5 элементов из массива.


Set DataList = CreateObject("System.Collections.ArrayList")
DataList.Add "1"
DataList.Add "2"
DataList.Add "3"
DataList.Add "4"
DataList.Add "5"
DataList.Add "6"
DataList.Add "7"
DataList.Add "8"
DataList.Add "9"
DataList.Add "10"
DataList.Add "11"
DataList.Add "12"

Wscript.echo join(DataList.ToArray(), vbCrLf)