STRINGS [BASICO]

SYSZEN 25/05/2012 12:21:32
#402762
boas novamente so uma coisinha rapida
tenho esta string
1,15,16,2,12,24,16,8, [tal e qual assim acaba em virgula] como leio o ultimo numero [Ô]8[Ô] e o meto numa variavel ?
FBGSYSTEMS 25/05/2012 12:34:22
#402764
var = right(string, 2)
var = left(var, 1)

Se for só isso que voce precisa, funciona.
SYSZEN 25/05/2012 12:38:42
#402765
mas agora imagina qe em vez do 8 ta la 12 (2digitos) ja e diferente percebe ?
tenho qe saber o numero qe esta entre as 2 ultimas virgulas por assim dizendo
ALEVALE 25/05/2012 12:56:18
#402769
Faz um split.....
SYSZEN 25/05/2012 13:19:19
#402774
podias meter ai a funcao a ler so o ultimo numero sff ?
FBGSYSTEMS 25/05/2012 13:20:12
#402775
split(string, [Ô],[Ô], -1)
percorra todos as posiçoes do array que isso ira gerar. quando chegar no penultimo voce pega o valor
SYSZEN 25/05/2012 13:23:50
#402777
eu em strings no vb6 nao sei muito por isso nao tou a entender mt bem :s
KERPLUNK 25/05/2012 13:31:47
#402778
Split, é uma função que divide uma string usando como delimitador um determinado caracter, no seu caso, a vírgula. Então: [Ô]1,2,3,4[Ô] aplicado à esse método, você teria uma array em que cada ítem conterá um dos números.
Portanto:
dim conjunto as string
conjunto = [Ô]1,2,3,4[Ô]

dim splitado
splitado = Split(conjunto, [Ô],[Ô])

dim seuNumero as String
seuNumero = splitado(UBound(splitado))

Aqui, a variável [Ô]seuNumero[Ô] conteria [Ô]4[Ô], pois o 4 é o último elemento e função UBound faz justamente isso, informar o índice do último elemento de um array.
SYSZEN 25/05/2012 13:48:42
#402781
nao tou a conseguir , diz [Ô]expected array[Ô] nesta parte [Ô]seuNumero = splitado(UBound(splitado)) [Ô]
MARCELO.TREZE 25/05/2012 14:39:49
#402789
Deixa eu Ajudar

Dim Numeros() As String
Dim Ultimo As String
Numeros = Split([Ô]1,15,16,2,12,24,16,8[Ô], [Ô],[Ô])
Ultimo = Numeros(UBound(Numeros))
MsgBox Ultimo

SYSZEN 25/05/2012 16:20:07
#402804
diz sempre [Ô]expected array[Ô]
Página 1 de 3 [25 registro(s)]
Tópico encerrado , respostas não são mais permitidas