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

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

null@example.com (929151) — Thu, 30 Mar 2017 08:53:58 +0000

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

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

null@example.com (Flasher) — Thu, 30 Mar 2017 00:31:54 +0000

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 элементов из массива

null@example.com (929151) — Wed, 29 Mar 2017 23:54:07 +0000

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

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

null@example.com (Flasher) — Wed, 29 Mar 2017 23:34:03 +0000

Поправил.

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

null@example.com (929151) — Wed, 29 Mar 2017 23:19:21 +0000

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

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

null@example.com (Flasher) — Wed, 29 Mar 2017 23:08:59 +0000

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 элементов из массива

null@example.com (929151) — Wed, 29 Mar 2017 22:48:28 +0000

Подскажите, как такое реализовать.
Необходимо выводить последовательно по 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)