vbscript 添加到字符串数组

Posted 2021-05-21

Function AddToStringArray(StringToAdd As Variant, StringArray As Variant) as Boolean
'Description:   Adds a string to a string array
'Inputs:        array (can be unallocated/empty)
'Output:        True if succesful

'   Default value
    AddToStringArray = False

    If IsArrayAllocated(StringArray) Then
        ReDim Preserve StringArray(1 To UBound(StringArray) + 1)
    Else
        ReDim Preserve StringArray(1 To 1)
    End If
    
    StringArray(UBound(StringArray)) = StringToAdd
    AddToStringArray = True
     
End Sub