1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
* ' La fonction est très simple et fait une suppression des caractères et
* ' remplace ces ponctuations par notre séparateur
*
* ' -----------------------------------------------------
* Public Function FormatteTelephone(ByVal ChaineTel As String) As String
* ' Renvoie le Numéro de téléphone formatté selon le format Francais :
* ' - xx.xx.xx.xx.xx
* ' Supprime les characteres possibles (- / . \ qui peuvent se présenter)
* If ChaineTel <> "" And Not ChaineTel Is Nothing Then
* Dim Séparateur As Char = "."
* Dim Temp As String = ""
* Dim TempResult As String = ""
* Dim longueur As Integer = 0
* Dim i As Integer = 0
*
* ' Suppression des characteres parasites
* Temp = Replace(ChaineTel, "-", "")
* Temp = Replace(Temp, ".", "")
* Temp = Replace(Temp, "/", "")
* Temp = Replace(Temp, ";", "")
* Temp = Replace(Temp, ":", "")
* Temp = Replace(Temp, ",", "")
* Temp = Replace(Temp, "\", "")
* Temp = Replace(Temp, " ", "")
*
* longueur = Temp.Length
*
* If (longueur Mod 2) <> 0 Then
* longueur += 1
* End If
* For i = 0 To (longueur - 2) Step 2
* TempResult &= Mid(Temp, i + 1, 2)
* If i <> (longueur - 2) Then
* TempResult &= Séparateur
* End If
* Next
* Return TempResult
* End If
* End Function
*
* ' -----------------------------------------------------
* 'L'appel se fait simplement comme ceci :
*
* MonLabel.text = FormatteTelephone(Trim(MonChampTelBase)) |
Partager