Sos

[sssilvio]

Tenho uma variavel que tem varios numeros separados por ","

EX: 1,2,3,...,10

o q eu quero é ler esta variavel e quando o codigo encontrar a virgula ele pare e pegue numero que esta antes da virgula anterior e ate a virgula encontrada. E depois ele tem q continuar de onde parou, para não gerar pepetição. Depois pego este numero e aemazeno numa variavel.

Alguma sugestão?

[Guest Carlos Seiji]

e ai beleza??

porque você não guarda os valores em um array???

criando array

numeros = "1,2,3,4,5,6,7,8,9,10" 'variavel contendo os numeros
variavel = Split(numeros,",") 'criando o array atravez do split. o split cria um array na qual chamei de variavel, o qual os valores serao variavel(0) = 1 - variavel(1) = 2 - variavel(2) = 3 ...

escrevendo valores do array

for I=0 to UBound(variavel)-1
Response.write variavel(i)&"<BR>"
next

[dark0]

eu usaria SPLIT..

faz uma busca noforum por SPLIT ..

se não me engano jé pediram isso aqui

se não achar.. posta aí

t+

[sssilvio]

Ok.

+ este codigo elimina as virgulas.

O que eu quero q quando ele encontrar a virgula ele pare e pegue o numero anterior- guarde o valor numa variavel e depois continue de onde parou.

Veja só o meu cod.

<%
	cod=request.Form("codigo")
	nume=request.form("num_pesq")
	es=request.Form("eS_pesq")
'!_______----------------------------------------------
	'texto=right(cod,1)
	'response.Write texto
	'response.end 
	if left(cod,1)="," then
  response.Write "O primeiro caractere da variavel cod é uma virgula."
	else
  valor=left(cod,1)
  set rs=server.CreateObject("adodb.recordset")
  altera = "UPDATE pesquisa SET num_pesq = '" & nume & "', e_s = '" & es & "' WHERE codigo = " & (valor) & ""
  Set rs = conexao.Execute(altera)
'  rs.close
  set rs=nothing
  response.Redirect "teste.asp?resp=1"
  response.Write valor
	end if
%>

Só que deste jeito não funciona. Preciso fazer com q ele chegue até o fom da variavel.

[Bicicleta]

você quer fazer um update em todos os registros que estão na variável que contem os números com vírgulas??? se for isso, faça isso que é mais fácil:

variavel = "1,2,3,4,5,6"

sql = "UPDATE tabela SET campo = '"& valor &"' WHERE codigo IN ("& variavel &")"

seria isso?

[]s

[sssilvio]

é eu preciso fazer um upDate em todos os campos do bd.

Só q os valores não podem ser trocados.

dai por exemplo eu tenho:

cod=1,2

nume=2,5

es=mm,aa

entendeu tudo na ordem tudo q esta antes da virgula pertence á chave COD 1 e depois à chave COD 2, e etc.

So q não consigo fazer isto.

Parece q este loop esta parando no lugar errado.

Sei la parece q não esta executando até o fim da variavel.

[Bicicleta]

Ah tah, se for valores diferentes pra alterar então não dá certo...

Então o melhor método mesmo é trabalhar com array... Percorrer a string em busca de vírgula não vai ser muito legal não...

[]s

[Guest Carlos Seiji]

se entendi bem você esta querendo guardar valores em uma tabela onde os valores estao gravados em tres variaveis e estao separados por virgula.

para isso fiz um exemplo que vai abaixo.

<%
cod=request.Form("codigo")
nume=request.form("num_pesq")
es=request.Form("eS_pesq")
cod_array = split(cod,",")
nume_array = split(nume,",")
es_array = split(es,",")
 set rs=server.CreateObject("adodb.recordset")
for i=0 to UBound(cod_array)-1
 altera = "UPDATE pesquisa SET num_pesq = '" & nume_array(i) & "', e_s = '" & es_array(i) & "' WHERE codigo = " & cod_array(i) & ""
 Set rs = conexao.Execute(altera)
'  rs.close
 set rs=nothing
' response.Redirect "teste.asp?resp=1"
 response.Write cod_array(i)
next
%>