1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[VbScript] Arrays Dinâmicos

Discussão em 'Programação' iniciada por K0mA, 29 de Junho de 2007. (Respostas: 2; Visualizações: 1715)

  1. K0mA

    K0mA Power Member

    Boas de novo,

    Suponhamos que tenho um Array Dinâmico Tudo().


    Código:
    Dim Tudo()
    
    ' Redimensionar para poder adicionar novo elemento
    ReDim Preserve Tudo(UBound(Tudo)+1) 
    
    'Adicionar
    Tudo(UBound(tudo)) = "novo elemento"
    
    Porque é que isto me dá erro logo na linha ReDim..... ?
    Como adicionar elementos a um array dinâmico ?

    ERRO 800A000D
    TIPO INCORRECTO
     
  2. p3dro

    p3dro Power Member

    penso que esse erro no ubound é devido ao facto de que array ainda n ter uma dimensão definida

    não sei se este será o melhor código, mas vê se te ajuda em alguma coisa

    Código:
    <%
    dim Tudo()
    ReDim Preserve Tudo(0) 
    
    'Adicionar 1º elemento
    Tudo(UBound(Tudo)) = "novo elemento"
    
    'Adicionar +1
    ReDim Preserve Tudo(UBound(Tudo)+1) 
    Tudo(UBound(Tudo)) = "outro novo elemento"
    
    'Adicionar +1
    ReDim Preserve Tudo(UBound(Tudo)+1) 
    Tudo(UBound(Tudo)) = "ainda outro novo elemento"
    
    'ver conteúdo do array
    countElems=UBound(Tudo)
    for i=0 to countElems
      Response.write("Posição: " & i & " => " & Tudo(i) & "<br>")
    next
    %>
     
  3. K0mA

    K0mA Power Member

    Muito obrigado p3dro! era isso mesmo agora já funciona na perfeição.

    E já agora aproveito para dizer que apenas é possível fazer ReDim Preserve à última dimensão de um array multidimensional.
     
    Última edição: 30 de Junho de 2007

Partilhar esta Página