AENCONTRAR O PRIMEIRO ESPACO

EDED 18/08/2009 11:42:27
#320136
como poderia achar o primeiro espaço numa frase via codigo vba
Exemplo1
Avenida Salomão de Abreu
quero achar o espaço entre Avenida e Salomão
objetivo retirar a palavra Avenida e deixar Salomão de Abreu
Exemplo2
Alameda Francisco de Souza
retirar Alameda
Assim por diante
Agraceço a colaboração
Edgard
ASHKATCHUP 18/08/2009 12:00:18
#320137 

Private Function func_Troca_Comeco(sTexto As String, Optional sNovoTexto As String) As String
    Dim iPosicao            As Integer
    Dim sRetorno            As String
    [ô]
    For iPosicao = 1 To Len(sTexto)
        [ô]
        If Trim(Mid(sTexto, iPosicao, 1)) = [Ô][Ô] Then
            sRetorno = sNovoTexto & Mid(sTexto, iPosicao + 1)
            Exit For
        End If
        [ô]
    Next
    [ô]
    func_Troca_Comeco = sRetorno
End Function


Chamada:


Label1.Caption = func_Troca_Comeco(Text1.Text, [Ô]Alameda [Ô])
ANDRE.ADMVB 18/08/2009 12:34:16
#320140 Resposta escolhida
EDED,

Tente isso, creio que seja a solução:

    Dim endereco    As String
    endereco = [Ô]Alameda São João[Ô]
    MsgBox Mid(endereco, InStr(1, endereco, [Ô] [Ô]), Len(endereco))


O que a rotina faz é pegar os caracteres SEGUINTES da 1ª ocorrência de um espaço em branco!
EDED 18/08/2009 13:48:53
#320152
Citação:

ANDRE.ADMVB escreveu:
EDED,

Tente isso, creio que seja a solução:

    Dim endereco    As String
    endereco = [Ô]Alameda São João[Ô]
    MsgBox Mid(endereco, InStr(1, endereco, [Ô] [Ô]), Len(endereco))


O que a rotina faz é pegar os caracteres SEGUINTES da 1ª ocorrência de um espaço em branco!



Muito bom mesmo, Resolveu meu problema; Adaptei Assim
Dim ENDERECO As String [ô]capturar o endereço da celula
LOGRADOURO As String [ô]guardar o nome do logradouro ex: São João.
TIPO As String [ô]guardar o tipo ex: Rua, Avenida, Viela
ENDERECO = ActiveCell.Activate
LOGRADOURO = Trim(Mid(ENDERECO, InStr(1, ENDERECO, [Ô] [Ô]), Len(ENDERECO)))
TIPO = Trim((Left(ENDERECO, Len(Trim(LOGRADOURO)))))
Valeu Muitissimo
Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar