USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
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
Pontos: 2843 Pontos: 2843
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
_____________________________________________________
Emoções "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 ... Emoções
 

[ ]'s

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

Emoções Juliano Lopes - Coordenador de Projetos / Arquiteto de Software Emoções

   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página