none
recupérer des sous-chaine dans une chaines principale apres une séparateur RRS feed

  • Question

  • bonjour a tous..

    Escusez moi peut etre que j'ai pas bien chercher mais j'ai passer toute la matinée à chercher parmi les fonction de chaine mais je n'ai pas trouver ce que je cherchais

    je cherche une fonction me permettant d'extraire des chaine de caractères dans une autre chaine apres un séparateur donnée.

    eg:

    dim v_chaine = "Maman|toto|papa|titi"

    je veux avoir a la fin  "Mamatotopapatiti"

    cordialement


    koko

    vendredi 9 mai 2014 15:57

Réponses

Toutes les réponses

  • Bonjour

    Comme le code ressemble à être écrit en VB, je dirais de utiliser la fonction Replace :

    Dim aString As String = Replace( v_chaine , "|", "")

    Bien cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    lundi 12 mai 2014 08:34
  • Merci pour ta réponse elle est simple...

    et dire que j'ai passé tout mon temps a écrire cette fonction que je passe maintenant dans une boucle

    Public Function ExtraitChaineAvantSeparateur(ByVal Ch As String, ByVal Posit As Integer, ByVal Separateur As String)
            Dim Separe As String
            Dim Rang As Integer
            Dim Valeur As String
            Dim V As String
            ExtraitChaineAvantSeparateur = ""
            If Len(Separateur) = 0 Then Exit Function
            If Len(Ch) = 0 Then Exit Function
            If Posit < 1 Then Exit Function
            Separe = Left(Separateur, 1)
            Rang = 0
            Valeur = ""
            For I = 1 To Len(Ch)
                V = Mid(Ch, I, 1)
                If V = Separe Then
                    Rang = Rang + 1
                    If Rang = Posit Then
                        ExtraitChaineAvantSeparateur = Valeur
                        Exit Function
                    End If
                    Valeur = ""
                Else
                    Valeur = Valeur & V
                End If
            Next
            If Rang = Posit - 1 Then ExtraitChaineAvantSeparateur = Valeur
        End Function


    koko

    mardi 13 mai 2014 09:58