Working with Arrays--two examples
上一篇 /
下一篇 2010-03-28 00:10:40
/ 个人分类:VBScript
BasicArrayForEachNext.vbs
Option Explicit
On Error Resume Next
Dim myTab 'Holds custom tab of two places
Dim aryComputer 'Holds array of computer names
Dim computer 'Individual computer from the array
Dim I 'Simple counter variable. Used to retrieve by
'Element number in the array.
myTab = Space(2) 'two blankspaces
i = 0 'The first element in an array is 0.
aryComputer = array("s1","s2","s3")
WScript.Echo "Retrieve via for each next"
For Each computer In aryComputer
WScript.Echo myTab & "computer # " & i & _
" is " & computer
i = i+1
Next
BasicArrayForNext.vbs
Option Explicit
On Error Resume Next
Dim myTab 'Holds custom tab of two places
Dim aryComputer 'Holds array of computer names
Dim computer 'Individual computer from the array
Dim i 'Simple counter variable. Used to retrieve by
'Element number in the array.
myTab = Space(2)
i = 0 'The first element in an array is 0.
aryComputer = array("s1","s2","s3")
WScript.Echo "Retrieve via for next"
i = 0
For i = 0 To UBound(aryComputer)
WScript.Echo myTab & "computer # " & i & _
" is " & aryComputer(i)
Next
from
Microsoft@ VBScript. Step by Step
By Ed Wilson
收藏
举报
TAG: