STRINGS [BASICO]
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 ?
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 ?
var = right(string, 2)
var = left(var, 1)
Se for só isso que voce precisa, funciona.
var = left(var, 1)
Se for só isso que voce precisa, funciona.
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
tenho qe saber o numero qe esta entre as 2 ultimas virgulas por assim dizendo
Faz um split.....
podias meter ai a funcao a ler so o ultimo numero sff ?
split(string, [Ô],[Ô], -1)
percorra todos as posiçoes do array que isso ira gerar. quando chegar no penultimo voce pega o valor
percorra todos as posiçoes do array que isso ira gerar. quando chegar no penultimo voce pega o valor
eu em strings no vb6 nao sei muito por isso nao tou a entender mt bem :s
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.
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.
nao tou a conseguir , diz [Ô]expected array[Ô] nesta parte [Ô]seuNumero = splitado(UBound(splitado)) [Ô]
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
diz sempre [Ô]expected array[Ô]
Tópico encerrado , respostas não são mais permitidas