用vbscript遍历数组

Posted 2023-04-12

1.有一个数组是由字符组成
2.能否用for each...in...next 遍历出来？
如果可以，麻烦您写个程序（最好是能直接运行的）并用msgbox显示出来？
谢谢了！

参考技术A 用记事本编辑*.vbs 写入以下代码，可双击文件运行。

dim arr(3)
arr(0)="a"
arr(1)="b"
arr(2)="c"
arr(3)="d"
for each i in arr
msgbox""&i&""
next本回答被提问者采纳

vbscript VBScript或VBA数组函数

Function getUBound(arr)
    getUBound = -1
    On Error Resume Next
    getUBound = UBound(arr)
    On Error GoTo 0
End Function

Function getLength(arr)
    getLength = getUBound(arr) + 1
End Function

Sub push(arr, item)
    Dim newIndex: newIndex = getUBound(arr) + 1
    ReDim Preserve arr(newIndex)
    On Error Resume Next
    arr(newIndex) = item
    On Error GoTo 0
    If Err.Number <> 0 Then Set arr(newIndex) = item
End Sub

Function pop(arr)
    Dim top: top = getUBound(arr)
    If top < 0 Then 'array is empty
        pop = Null
    Else
        On Error Resume Next
        pop = arr(top)
        On Error GoTo 0
        If Err.Number <> 0 Then Set pop = arr(top)
        ReDim Preserve arr(top - 1)
    End If
End Function

Sub unshift(arr, item)
    Dim i, top: top = getUBound(arr)
    ReDim Preserve arr(top + 1)
    For i = top + 1 To 1 Step -1
        On Error Resume Next
        arr(i) = arr(i - 1)
        On Error GoTo 0
        If Err.Number <> 0 Then Set arr(i) = arr(i - 1)
    Next
    On Error Resume Next
    arr(0) = item
    On Error GoTo 0
    If Err.Number <> 0 Then Set arr(0) = item
End Sub

Function shift(arr)
    Dim i, top: top = getUBound(arr)
    If top < 0 Then 'array is empty
        shift = Null
    Else
        On Error Resume Next
        shift = arr(0)
        On Error GoTo 0
        If Err.Number <> 0 Then Set shift = arr(0)
        For i = 1 To top
            On Error Resume Next
            arr(i - 1) = arr(i)
            On Error GoTo 0
            If Err.Number <> 0 Then Set arr(i - 1) = arr(i)
        Next
        ReDim Preserve arr(top - 1)
    End If
End Function