Kartman
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 01/06/2007 14:40 hs
BOM DIA GALERA, TAVA FAZENDO UM PROGRAMA AQUI, GOSTARIA DE SABER SE ALGUEM TEM ALGUMA IDEIA DE COMO PEGAR A ULTIMA PALAVRA DE UMA STRING ???
EXEMPLO:
UM DOIS TRES QUATRO CINCO
RETORNARIA A PALAVRA "CINCO"
OBRIGADO !!!
============ --< TYF - ATE MORRER >-- ============
|
|
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/06/2007 16:56 hs
str$= "UM DOIS TRES QUATRO CINCO" ' ARMAZENOU A STRING x= len(str$) 'pegando o comprimento da string for i=x to 1 step-1 'verificando a string do final para o início if mid$(str$,i,1)= "" then 'ao encontrar o primeiro espaço....(ou seja o ultimo...) x1= i 'marca a posição do espaço exit for else endif next i x2= x-x1 suastring$= mid$(mid$(str$,(x1+1),x2)
|
|
|
|
Kartman
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/06/2007 16:58 hs
VLW KRA, EU JA TINHA CONSEGUIDO, FIZ UMA FUNÇÃO PEQUENA .. MAS VLW, SO PRA CURIOSIDADE, TA AE O CODIGO DA MINHA FUNÇÃO !!!!
Function PegaUltimaPalavra(ByVal ENDERECO As String) As String
Dim AUX2 As String
Dim X As Integer
For X = 1 To Len(ENDERECO)
If Mid(AUX2, 1, 1) <> " " Then
AUX2 = Right(ENDERECO, X)
Else
Exit For
End If
Next
PegaUltimaPalavra = Trim(AUX2)
End Function
============ --< TYF - ATE MORRER >-- ============
|
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/06/2007 19:04 hs
Tem um jeito BEM mais simples:
dim str
str= "UM DOIS TRES QUATRO CINCO"
dim frase
frase = split(str," ")
msgbox frase(ubound(frase))
|
|
|
|
