|
|
Postada em 17/02/2005 12:38 hs
E ae galera,
Tenho um string +/- assim "2,2,3,3,4,4,5,6,7,7"
Quero dar um Split nessa string e pegar apenas um de cada número.
Eu teria um resultado assim:
vData(0)=2
vData(1)=3
vData(2)=4
vData(3)=5
vData(4)=6
vData(5)=7
Alguém sabe como fazer isso?
Obrigado...!
|
|
|
|
|
|
Sandro
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 17/02/2005 13:07 hs
Olá Pedro, Tente isso: Dim Pos as Integer, PosAnt as Integer, Max as Integer Dim vData() as String Max = -1 Pos = Instr(1, SuaString, ",") If Pos = 0 Then Redim vData(0) vData = SuaString Else PosAnt = 1
Do While Pos <> 0
Max = Max + 1
ReDim Preserve vData(Max)
vData(Max) = Mid(SuaString, PosAnt, 1) PosAnt = Pos + 1
Pos = InStr(PosAnt, SuaString, ",")
Loop
End If No final da rotina você terá um vetor com o número exato de itens que compõem a sua string. |
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/02/2005 14:02 hs
nada disso, assim ó: dim vData as variant vData = split(stringcomosnumeros,",") pronto |
|
|
|
|
|
Postada em 17/02/2005 14:31 hs
Caro kerplunk, desta maneira terei todos os números no meu vetor, o q eu quero fazer eh pegar apenas um de cada numero qdo haver números repitidos. Entendeu?
|
|
|
|
|
|
Postada em 17/02/2005 14:39 hs
valeu sandro, vou dar uma adaptada no seu código, acho q vai funcionar...
se alguém tivér uma idéia melhor eu agradeço...
;)
|
|
|
|
|
