|
|
Postada em 18/11/2009 10:15 hs
Caros Colegas,
Aqui estou novamente para pedir a ajuda de vocês.
Alguem conhece uma função que remova palavras com 1 e 2 dígitos em uma frase?
Exemplo:
Tenho o seguinte nome:
JOSÉ ANTONIO DA SILVA E SOUZA
Gostaria de uma função que retornasse apenas:
JOSÉ ANTONIO SILVA SOUZA.
Isso é possível?
Desde já agradeço a atenção de todos.
Expedito Junior msn: expedito_junior947@hotmail.com "A oportunidade favorece uma mente preparada!"
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/11/2009 10:36 hs
sim é possivel da seguinte maneira Dim Nome() As String Dim NovoNome As String Nome = Split(txtNome.Text," ") For F = 0 To Ubond(Nome) If Len(Nome(F)) > 2 Then NovoNome = NovoNome & " " & Nome(F) End If Next F msgbox Trim(NovoNome) |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/11/2009 10:50 hs
ou Dim Valores() As Variant
Valores = Array(" de ", " da ", " dos ", " das ", " e ")
For F = 0 To UBound(Valores)
txtNome.Text = Replace(txtNome.Text, Valores(F), " ")
Next F |
|
|
|
|
|
|
