Войти

Показать полную графическую версию : [решено] VBS: Объединение аргументов в одну строку


Паразит
29-03-2017, 13:15
Привет, такая задача.
Вот у меня есть скрипт, и я его запускаю с разным количеством аргументов.


Cnt = WScript.Arguments.Count
For i = 0 To Cnt - 1
MsgBox WScript.Arguments(i)
'sss = Array(WScript.Arguments(i))
'ddd = join(sss)
' MsgBox ddd
Next



Как мне объединить весь этот массив аргументов в одну строку?

Iska
29-03-2017, 17:05
Как мне объединить весь этот массив аргументов в одну строку? »
Это не массив, это коллекция. А зачем объединять в одну строку?

Option Explicit

Dim strArgument, strArguments

strArguments = ""

For Each strArgument In WScript.Arguments
strArguments = strArguments & " " & strArgument
Next

strArguments = Mid(strArguments, 2)

WScript.Echo "[" & strArguments & "]"

WScript.Quit 0

Паразит
29-03-2017, 17:27
Iska, да вот сегодня появилась задача, и тут я забуксовал. Это всего лишь, часть скрипта.
Спасибо, за помощь.

Iska
29-03-2017, 17:42
Паразит, дык, зачем? Интересно. Мне, вот, как-то ни разу не понадобилось.

Паразит
29-03-2017, 17:59
Я хочу создать скрипт, чтобы переносить папки с определёнными условиями.
И мне нужны были имена этих папок, чтобы конструировать строку, куда я хотел их перемещать.

Iska
29-03-2017, 18:24
Паразит, покажете здесь потом?

Паразит
29-03-2017, 19:00
Честно говоря, задача уже неактуальна. Я решил по другому делать.
Ещё раз, спасибо, Вам за помощь.




© OSzone.net 2001-2012