PEGAR LETRAS
Tenho um texto pequeno tipo:
" 2d4r5mm74 " queria retornar para o TextBox somente a parte das letras, que ficaria assim:
" drmm "
Sei que existe uma finção que faz algo do tipo, mas não me lembro qual é. Alguem lembra?
" 2d4r5mm74 " queria retornar para o TextBox somente a parte das letras, que ficaria assim:
" drmm "
Sei que existe uma finção que faz algo do tipo, mas não me lembro qual é. Alguem lembra?
Tenta essa função:
Public Function GetLetras(ByVal stText As String) As String
Dim lgPos As Long, lgLen As Long, stNewTxt As String
stNewTxt = Trim$(stText)
lgLen = Len(stNewTxt): lgPos = 1
Do While lgPos <= lgLen
If InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", Mid$(stNewTxt, lgPos, 1)) = 0 Then
stNewTxt = Left$(stNewTxt, lgPos - 1) & Right$(stNewTxt, lgLen - lgPos)
lgLen = lgLen - 1
Else
lgPos = lgPos + 1
End If
Loop
GetLetras = stNewTxt
End Function
Ah, só agora reparei no espaço que vc quer que continue: mude a string de comparação acrescentando o espaço antes ou depois das letras (se colocar entre elas também, tanto faz).
ok. Deu certo.
Valew.
Valew.
Tópico encerrado , respostas não são mais permitidas