retirar item do array

[rd111072 1]

Boa tarde.

 

Estou tentando retirar um item do array com esse script:

 

<%
hidden = rs("hiddenc")

Dim ar
Dim i

ar = Array(hidden)

Response.Write "Original Array:<br>" & vbCrLf
For i = 0 to ubound(ar)
	Response.Write ar(i) & "<br>" & vbCrLf
Next

Response.Write "<hr>" & vbCrLf

Response.Write "Original Array After Delete:<br>" & vbCrLf
delete ar, 1  '' pass the name of the array, and the index of the element to delete

For i = 0 to ubound(ar)
	Response.Write ar(i) & "<br>" & vbCrLf
Next

Sub delete(ByRef ar, ByVal idx)
	Dim i
	Dim ub
	
	ub = UBound(ar) - 1
	
	For i = idx To ub
		ar(i) = ar(i + 1)
	Next
	
	ReDim Preserve ar(ub)
	
End Sub
%>

Mas não muda nada. fica ssim:

 

Original Array:

0,1,2,3,4,5,6,7,8,9,10

 

--------------------------------------------------------------------------------

Original Array After Delete:

maior valor: 0,1,2,3,4,5,6,7,8,9,10

 

Como faço?

[LuX_ 2]

Olá amigo, se deseja tirar todos os itens do array, basta usar:

redim MeuArray(algumindice)

[rd111072 1]

Não funcionou

 

Deu Tipos incompatíveis

 

line 54 (linha 54: b = split(ar,","))

 

O código está assim:

hidden = rs("hiddenc")

Dim ar
ar = Array(hidden)
redim ar(10)


'a partir daqui é uma função para achar o maior valor do array

b = split(ar,",")

v = 0
for i = 0 to ubound(b)
   if cint(b(i)) > cint(v) then
	   v = b(i)
   end if
next

response.write "maior valor: " &v

[hargon 64]

Você só pode utilizar SPLIT em uma variável. No caso de VETOR você tem que informar a posição. Por isso deu erro.

 

E pq está utilizando SPLIT em um vetor se você criou logo acima e nem inseriu valores?

[rd111072 1]

mudei:

 

hiddenexc = "10"
hidden = rs("hiddenc")


Dim ar


ar = Array(hidden)


redim ar(hiddenexc)


'a = "0,5,10,20,6,40,8"
b = split(hidden,",")

v = 0
for i = 0 to ubound(b)
   if cint(b(i)) > cint(v) then
	   v = b(i)
   end if
next

response.write "maior valor: " &v

Tento recuperar o valor de ar num input text assim:

 

<input type="text" name="hiddenc" id="hiddenc" value="<%=ar%>" />

 

mas dá errO:

 

Objeto Response erro 'ASP 0106 : 80020005'

 

Tipo incompatível

 

/sis-vendedor/COM_Editar2b.asp, line 0

 

Um tipo de dados não identificado foi encontrado.

 

????

[Mário Monteiro 179]

que valor vem do form so para entender o que esta entendendo que ate agora nem consegui entender o que é array e o que nao é ai no seu codigo

 

depois disso aqui

 

hidden = rs("hiddenc")

 

escreve o valor da variavel