[LotusScript]移除陣列元素

Sub Initialize
    '[LotusScript]將陣列其中一個元素移除
    Dim i As Integer

    Dim array(6) As String
    array(0) = "Alpha"
    array(1) = "Beta"
    array(2) = "Gamma"
    array(3) = "Delta"
    array(4) = "Epsilon"
    array(5) = "Zeta"
    array(6) = "Eta"
    For i = Lbound(array) To Ubound(array)
        Print i & "," & array(i)
    Next i

    Print "***********"

    Dim result As Variant
    result = Fulltrim(Arrayreplace(array, "Delta", ""))
    For i = Lbound(result) To Ubound(result)
        Print i & "," & result(i)
    Next i

End Sub