VERIFICAR TOTAL DE VOGAIS E CONSOANTES?

TAMANINI 13/04/2007 13:59:13
#211747
Alguém sabe me dizer se existe alguma função do VB que verifique o total de vogais ou consoantes de uma frase qualquer?
Ou o único jeito é fazer um select case para comparar um caracter por vez se é "a, e, i, o ou u" senão é consoante?
CLERISTONLUIZ 13/04/2007 14:25:56
#211750
Uso essa funcão que retorna so letras:

Function FU_LimpaAlfa(campo As String) As String
    'recebe string alfanumérica
    'retorna string de letras maiúsculas  sem pontos, vírgulas, números etc.
    'exemplo FU_LimpaNumero("Adq-7465") = "ADQ"
    Dim VA_Posicao As Integer
    Dim VA_Caracter As String * 1
    Dim VA_Resultado As String
    VA_Resultado = ""
    VA_Posicao = 1
    campo = UCase(campo)
    Do While VA_Posicao <= Len(campo)
        VA_Caracter = Mid$(campo, VA_Posicao, 1)
        
        '=> VOCE PODE COLOCAR AQUI QUAL LETRA QUER
        If Asc(VA_Caracter) > 64 And Asc(VA_Caracter) < 91 Then
            VA_Resultado = VA_Resultado & VA_Caracter
        End If

        VA_Posicao = VA_Posicao + 1
    Loop
    ' PARA TER O TOTAL BASTA DAR UM LEN(VA_Resultado)
    FU_LimpaAlfa = VA_Resultado
End Function
TAMANINI 13/04/2007 14:36:33
#211758
Vlw pela ajuda, mas eu não quero uma função que me retorne apenas letras.
O jeito mais fácil, é fazer um select case verificando cada caracter da frase se tem "a, e, i, o, u" senão será consoante e, assim vou somando.
Tópico encerrado , respostas não são mais permitidas
Voltar