Separando String

[brunoskrebs]

Opa, beleza gurizada?

Perdi quase duas horinhas tentando resolver um problema e não consegui, fiquei irritado e por isso vim pedir ajuda de vocês.

Tem uma string que eu colho do meu banco de dados que contém o "id" separado por vírgulas. Que nem segue este exemplo:

"12,3,124,222,397,14,6" ou
"1,5,12" ou apenas
"15" ou
"" ou
"3322,231" e etc...

e oque eu quero fazer é separar os ids retirando as vírgulas e gravar estes id numa, putz esqueci o nome, matriz e uma linha só como é mesmo o nome?

Mas enfim que no caso do primeiro exemplo ficaria guardado nessa "matriz e uma linha só" a(1) = 12, a(2) = 3, a(3) = 124, a(4) = 222, a(5) = 397, a(6) = 14 e a(7) = 6. e no terceiro exemplo ficaria apenas a(1) = 15.

Com isso depois eu faria uma busca na tabela nome pelo id e iria preencher uma lista, mas isso é fácil, eu não consegui foi separar a string retirando as "," e botando nessa "matriz de uma linha só".

Entenderam ou tá complicado?

E vocês poderiam me ajudar?

Desde já, agradeço!

[Decio]

Para separar strings , você pode usar o Split:

Dim arrItem() As String
Dim strMensagem As String
strMensagem = "Parte1,Parte2,Parte3,parte4"
arrItem = Split(strMensagem, ",")

MsgBox arrItem(0)
MsgBox arrItem(1)
MsgBox arrItem(2)
MsgBox arrItem(3)

[Joaozava]

Vamos ver se eu entendi.

você quer separar a string pela virgula colocando tudo em um vetor certo??

se for isso mesmo, você pode usar o exemplo abaixo:

dim a() as string
str = "12,3,124,222,397,14,6"
a = Split(str, ",")

Agora "a" vai conter os registros dessa maneira:

a(0) = 12, a(1) = 3, a(2) = 124... etc

Epero ter ajudado

Abraços.

oops... Não tinha visto que o colega Decio já tinha respondido

Editado Agosto 8, 2005 por Joaozava

[brunoskrebs]

Puxa muito obrigado pelas respostas! Eu perdi muito tempo tentando usar a função mid() e olhando 1 por 1 dos caracteres para ver se era virgula, estava muito confuso e não saía do lugar!

[Fgr]

Se quiser pelo comado Mid ficaria algo assim:

dim a as integer

dim b as integer

dim i as integer

dim s as variant

a=0:b=0

for i = 1 to len(texto)

if mid(texto,i,1) = "," then

s( = mid(texto,a,i-1)

b=b+1

end if

[Fgr]

rsrs, foi mal, apertei o TAB e depois o espaço e a msg foi toda torta!! rsrs

Mas vai aí o codigo certinho..

private sub Split_Alternativo(Texto as string,sep as string)

dim a as integer

dim b as integer

dim i as integer

dim s as variant

a=0:b=0

for i = 1 to len(texto)

if mid(texto,i,1) = sep then

on error resume next

S( = mid(texto,a,i-1)

b=b+1

a=i+1

end if

end sub

--------

rsrs ... no Vb5 não tinha Split daí eu tive q improvisar algo desse tipo!!

Claro q no metodo com split é muito mais pratico né!! rsrs

[Fgr]

rsrsrs.. nossa.. novato é fogo!! rsrsrsrsrrss

nó liga do é só umdar para b )