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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Filtrando um Maskedit
Postada em 3/2/2003 por Jean Carlos            
Muitas vezes, utiliza-se um campo formatado para exibição, e se grava um valor "peneirado", ou seja, de um formato específico. As funções abaixo "limpam" strings de números ou alfabéticos. Esta é uma alternativa ao controle Masked Edit.

Function FU_LimpaNumero (campo As String) As String
    'recebe string numérica
    'retorna string numérica sem pontos, vírgulas etc.
    'exemplo FU_LimpaNumero("1.245,90") = "1234590"
    Dim VA_Posicao As Integer
    Dim VA_Caracter As String * 1
    Dim VA_Resultado As String
    VA_Resultado = ""
    VA_Posicao = 1
    Do While VA_Posicao <= Len(campo)
        VA_Caracter = Mid$(campo, VA_Posicao, 1)
        If IsNumeric(VA_Caracter) Then
            VA_Resultado = VA_Resultado & VA_Caracter
        End If
        VA_Posicao = VA_Posicao + 1
    Loop
    FU_LimpaNumero = VA_Resultado
End Function
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)
        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
    FU_LimpaAlfa = VA_Resultado
End Function


 


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