Valores separados por vírgula...

[No Limite!!! 0]

Salve Galera...estou precisando fazer o seguinte:Ex.:variavel = 1,2,3,4<FUNÇÃO PARA SEPARAR VALORES POR VÍRGULA><'FUNÇÃO PARA IDENTIFICAR...IF VAR = 1 THEN VAR = "TESTE 1" END IFIF VAR = 2 THEN VAR = "TESTE 2" END IF...> <_< Estou tentando mas ainda não consegui... alguém tem alguma idéia.Grato.

[ska_ska 0]

naum entendi????

[explore 3]

Como assim?Variavel = 1,2,3,4????????não entendi tambem!!!!

[Luizgrs 0]

faz assim:

ASP

[*]variavel = "1,2,3,4"

 

[*]dim vNum()

 

[*]'retorna um vetor dividindo a variavel nas vírgulas

 

[*]vNum = Split(variavel,",")

 

[*]

 

[*]'para x igual ao menor índice de vNum até o maior índice

 

[*]for x=lbound(vNum) to ubound (vNum)

 

[*] Select case vNum(x) 'verifica o valor de cada parte do vetor

 

[*]  Case "1"

 

[*] var = "Teste 1"

 

[*]  case "2"

 

[*] var = "Teste 2"

 

[*]  ...

 

[*]  End Select

 

[*]Next

[No Limite!!! 0]

Ok. Obrigado pela ajuda.. mas agora está ocorrendo este erro na linha 165:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

 

LINHA 135 = vNum = Split(variavel,",")

 

O que pode ser?

 

 

faz assim:

ASP

[*]variavel = "1,2,3,4"<br />dim vNum()<br />'retorna um vetor dividindo a variavel nas vírgulas<br />vNum = Split(variavel,",")<br /><br />'para x igual ao menor índice de vNum até o maior índice<br />for x=lbound(vNum) to ubound (vNum)<br /> Select case vNum(x) 'verifica o valor de cada parte do vetor<br />  Case "1"<br /> var = "Teste 1"<br />  case "2"<br /> var = "Teste 2"<br />  ...<br />  End Select<br />Next

<{POST_SNAPBACK}>

[No Limite!!! 0]

Valeu galera.

 

tirei o dim vNum() conforme o "bicicleta" sugeriu e funcionou da meneira como queria.

 

Obrigado mesmo.

 

Att.

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Luizgrs 0]

Bicicleta, pq deu erro nessa linha?

[Luizgrs 0]

Ah tah vlw :) HeheheCostume do VB XD

[Faru 0]

Particulamente eu optaria por usar for each

seu resultado será o mesmo.

ASP

[*]

 

[*]<%

 

[*]variavel="1,2,3,4,5"

 

[*]var=Split(variavel,",")

 

[*]for each i in var

 

[*] Select case i

 

[*] Case "1"

 

[*] Response.write "1"

 

[*] Case "2"

 

[*] Response.write "2"

 

[*] Case "3"

 

[*] Response.write "3"

 

[*] End Select

 

[*]next

 

[*]%>

 

[*]

 

Espero ter ajudado

[Mário Monteiro 179]

Tendeu? Mais como ele não tava usando Option Explicit não precisa nem declarar, pura perda de tempo declarar variável no ASP na minha opinião, já q tudo é variant mesmo!

mas eh bom usar Option Explicit na hora que precisa debugar algopois um exemplo basico se você ta fazendo uma page e tem uma var que vai ser usada e tal ai você da uma valor pra elaprogarmacao = trueai quando você for usá-la você usa o nome que deveriaprogramacaose tivesse o option explicit iria acusar variavel não declarada e facilmente se perceberia o erro de digitação...