AJUDA URGENTE SOBRE MANIPULACAO DE INFORMACOES

USUARIO.EXCLUIDOS 28/11/2006 17:26:46
#186819
Boa tarde Amigos!

Estou começando agora com programação e tenho algumas dúvidas que para vocês devem ser bem simples. Estou importando um arquivo .TXT mais tenho que formatar o campo telefone para (11) - 9999.9999. No arquivo .TXT ele está como 0119999-9999. Será que alguém sabe como posso fazer para formatá-lo do jeito que eu preciso?
ANGELO 28/11/2006 21:23:23
#186851 Resposta escolhida 
Private Sub Form_Load()

    MsgBox formataNumeroTelefone("0119999-9999")

    
End Sub

[c]Private Function formataNumeroTelefone(lstrNumero) As String
    Dim lstrRetorno As String
   
    lstrNumero = Replace(lstrNumero, "/", "")
    lstrNumero = Replace(lstrNumero, "-", "")
    lstrNumero = Replace(lstrNumero, ".", "")
    lstrNumero = Replace(lstrNumero, " ", "")
    
    If Len(lstrNumero) = 11 Then
        lstrRetorno = "(" + Left$(lstrNumero, 3) + ") - "
        lstrRetorno = lstrRetorno & Mid$(lstrNumero, 4, 4) & " - "
        lstrRetorno = lstrRetorno & Right$(lstrNumero, 4)
        
        formataNumeroTelefone = lstrRetorno
        
    Else
        formataNumeroTelefone = "erro"
    End If
End Function

[/c]
USUARIO.EXCLUIDOS 29/11/2006 08:49:24
#186888
Testei a solução do Angelo e funcionou perfeitamente!!

Show de Bola!!
Tópico encerrado , respostas não são mais permitidas
Voltar