deletar posição do vetor

[silas_i 0]

pessoal tenho um vetor onde é listado na minha página esses valores, tenho um checkbox tb c/ opção de deletar alguns itens.Como deletar vários ou um único ítem de um vetor ?Valeu !!!!

[Salgado 4]

Ao submeter você receberá uma seqüencia de valores separados por ",", o ideal é que sejam os indices dos dados que quer excluir, ao receber esses dados faça um Split e depois "varra" esse array aplicando um valor vazio ao array principal, compliquei não? Mas basicamente:

Deletar = Request("CheckBox")
If InStr(Deletar,",") > 0 Then
Deletar = Split(Deletar,",")
For x = LBound(Deletar) to UBound(Deletar)
SeuArray(Deletar(x)) = ","
Next
Else
SeuArray(Deletar) = ","
End If
SeuArray = Join(SeuArray,",")
SeuArray = Replace(SeuArray,",,","")
SeuArray = Split(SeuArray,",")

Testa isso e veja se está Ok.

[silas_i 0]

estranho....

 

coloquei exatamente como você falou...

 

veja o que tem na variável "check" = 80, 82, 90, 56 mas não funciona....

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

Tipos incompatíveis: 'check' /ctr_chq_pagto.asp

 

a linha 41 esta em Negrito !!!

 

 

check = left(session("vl_docs"), Len(session("vl_docs"))-2)

Deletar = Request("id_selects")

If InStr(Deletar,", ") > 0 Then

Deletar = Split(Deletar,", ")

For x = LBound(Deletar) to UBound(Deletar)

check(Deletar(x)) = ", "

Next

Else

check(Deletar) = ", "

End If

check = Join(check,",")

check = Replace(check,",,","")

check = Split(check,",")

 

Fiz alguma coisa errada !?

[Salgado 4]

No caso Check deve estar como array para funcionar, da forma que está ele é apenas uma variável.

[silas_i 0]

para colocar num vetor é só fazer assim !?

 

check = left(session("vl_docs"), Len(session("vl_docs"))-2)MyArray = Array(check)

[Salgado 4]

OS dados da session("vl_docs") já vem separados por virgulas? Se sim é só usar o Check = Split(session("vl_docs"),",") que terás o array.

[silas_i 0]

Salgado Bom dia !!!!Meu devo estar fazendo alguma coisa errada... mesmo colocando split na variável ele não funciona...veja como eu fiz !!!! O erro é: (A linha 42 esta em negrito)

Erro de tempo de execução do Microsoft VBScript erro '800a0009' Subscrito fora do intervalo: 'Deletar' /dev/Orchestra/ctr_chq_pagto.asp, line 42

check = left(session("vl_docs"), Len(session("vl_docs"))-2) ' ID´s dos Cheques		MyArray = Split(check,",")	Deletar = Request("id_selects")	Response.Write(Deletar)	If InStr(Deletar,", ") > 0 Then		Deletar = Split(Deletar,", ")		For x = LBound(Deletar) to UBound(Deletar)			MyArray(Deletar(x)) = ", "		Next	Else		[b]MyArray(Deletar) = ", "[/b]	End If	MyArray = Join(MyArray,", ")	MyArray = Replace(MyArray,", , ","")	MyArray = Split(MyArray,",")

[Salgado 4]

A Session("vl_docs") contém as ID's dos Cheques, nas checkboxes os Values delas são esses ID's?

[silas_i 0]

exatamente aparecem dessa maneira..."12, 32, 33, 45, 49.... 98, "Salgado, você acha que pode ser pq esta com vírgula e espaço !?

[Salgado 4]

Agora entendi, eu achava que o Value dos CheckBoxes seriam o indice da matriz, que seria exatamente dessa forma que passei, é possível fazer essa alteração no sistema?

[silas_i 0]

ué mas não tenho ue colocar os ID´s de cada registro no vetor !? dessa maneira separados por virgula ?

[Salgado 4]

Como você está montando a lista dos CheckBoxes?

[silas_i 0]

Dessa maneira

 

check = session("vl_docs")If check <> Empty ThenVetor = Split(check, ",")For I = 0 To Ubound(Vetor) ' aqui eu dou um response.write nos valores !!!NextEnd if