[VbScript] Arrays Dinâmicos

[K0mA]

Boas de novo,

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

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

 

[p3dro]

Boas de novo,

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

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

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

<%
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
%>

 

[K0mA]

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.