IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

fonction en vb.net


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Décembre 2006
    Messages
    55
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2006
    Messages : 55
    Par défaut fonction en vb.net
    bonjour,

    j'ai trouver une fonction ecrit en vb.net qui permet de recupere le numero de phone d'un portable, mais en fait j'arrive pas à bien saisir ce que fait le code, pour l'adapter à mes besoins, si quelqu'un peut m'expliquer svp cette fonction et m'indiquer s'il y a des erreur ds le code.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Public Shared Function GetPhoneNumber(ByVal PhoneNumber As String, Optional ByVal Format As PhoneFormat = PhoneFormat.International) As Integer
                Dim i As Integer
                Dim str As String
                If Format = PhoneFormat.FrenchWithZero Then Throw New Exception("You can't convert french number with zero into integer format")
                Dim BasicNumber As String = ""
                Dim pfx As String = ""
     
                For i = 0 To PhoneNumber.Length - 1
                    If Asc(PhoneNumber.Chars(i)) >= 48 And Asc(PhoneNumber.Chars(i)) <= 57 Then
                        str += PhoneNumber.Chars(i)
                    End If
                Next
     
                If PhoneNumber.Length < 8 Then Throw New Exception("Phone number is not valid!")
     
                PhoneNumber = str
                BasicNumber = PhoneNumber.Substring(str.Length - 8, 8)
                str = BasicNumber
                If PhoneNumber.Length = 8 Then
                    str = str.Insert(0, "1")
                Else
                    pfx = PhoneNumber.Substring(PhoneNumber.Length - 9, 1)
                    str = str.Insert(0, pfx)
                End If
                If Format = PhoneFormat.International Then str = str.Insert(0, "33")
                If Format = PhoneFormat.FrenchWithZero Then str = str.Insert(0, "0")
                Return str
            End Function

  2. #2
    Membre chevronné
    Profil pro
    Inscrit en
    Avril 2009
    Messages
    388
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2009
    Messages : 388
    Par défaut
    Lu,
    ce code est franchement sale! Mais il me semble pas qu'il y est d'erreurs (a tester bien sur).
    Malgré que je connaisse pas la classe PhoneFormat, ta fonction semble vérifié un numéro de téléphone a partir d'une chaine de caracteres. Si le numéro est francais, il y a ajout de 33 en début de numéro, sinon il y a ajout d'un 0.

    Code sale j'insiste.

Discussions similaires

  1. Fonction email online.net
    Par dael dans le forum Autres hébergeurs
    Réponses: 3
    Dernier message: 15/11/2007, 16h18
  2. Réponses: 11
    Dernier message: 03/04/2007, 13h34
  3. [Appel de fonction en vb .Net]
    Par monromero dans le forum VB.NET
    Réponses: 4
    Dernier message: 13/03/2007, 13h40
  4. convertir fonction en vb.net to C#
    Par ouadie99 dans le forum VB.NET
    Réponses: 4
    Dernier message: 22/12/2006, 23h58
  5. Réponses: 1
    Dernier message: 12/12/2006, 15h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo