alterar string, inserindo espaços a cada...


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: alterar string, inserindo espaços a cada...

JGD
não registrado

ENUNCIADA !

Postada em 13/09/2005 09:49 hs

Como faço para localizar o ultimo espaço de um string ?

Quero dizer :
Suponha que eu tenha um string com o seguinte
conteudo :

VACA

LIMEIRA
SP - BRASIL

Postada em 13/09/2005 12:08 hs

faz o seguinte:
cria uma variavel pra guardar a ultima posiçao.
e fa assim:
<variavel>=0
While instr(<variavel>+1, <string>," ")>0
<variavel>= instr(<variavel>+1, <string>," ")
wend
quando sair do loop faz uma para e confirma o resultado

"Quando estou fraco, aí então é que sou Poderoso"

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

Postada em 13/09/2005 13:24 hs

InStrRev("string1", "string2")

Onde String1 é a o conteudo onde vc quer fazer a busca e String2 o caracter (ou sequencia) q vc quer localizar... vai retornar a posicao do ultimo, ou 0 se nao existir...

Flw!

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

Mr.Data

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 13/09/2005 13:46 hs

Apenas complementando: InStrRev é uma função apenas do VB6. Se for o VB5 por exemplo, vc terá que usar um Loop mesmo, usando o Instr:

Dim intPos as Integer

Dim intPosDefine as Integer

dim strTexto as String

strTexto = "Onde está o último espaço"

intPos = Instr(1, strTexto, " ")

intPosDefine = intPos

Do Until intPos = 0

intPos = Instr((intPos + 1), strTexto, " ")

'Aqui vamos atualizando (somente se não for 0) a posição do próximo branco ....

If intPos <> 0 Then intPosDefine = intPos

Loop

Msgbox "O último espaço está na posição " & cStr(intPosDefine) & " da String"

Algo assim ...

[ ]'s

-----------------------------------------------------------------------------------------------------------------

Juliano Lopes - Coordenador de Projetos / Arquiteto de Software

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR