Découpe chaine avec séparateur "-" dans un teste string en une ligne de code avec SPLIT

**GESCOM2000** · 03/09/2017, 01h12

Bonsoir
Question que je me pose avec le split?

Montablo(1,1)="17-5-3-8-9-65-10-23"
Maintenant j'aimerai sortir les 4 premieres valeurs comme cela "17-5-3-8"

J'ai pas trouver plus simple....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub test
Dim Tablo()
dim TxtRecup5premier as string
 
Redim Tablo(1,10,1 to 10)
Tablo(1,1)="17-5-3-8-9-65-10-23"
TxtRecup5premier=Split(Tablo(1, 1), "-")(0) & "-" & Split(Tablo(1, 1), "-")(1) & "-" & Split(Tablo(1, 2), "-")(1) & "-" & Split(Tablo(1, 1), "-")(3) 
 
end sub

Merci pour votre aide

Invité · 03/09/2017, 03h48

Envoyé par GESCOM2000

Bonjour,

Voir le message de Pierre FAUCONNIER en page 2 pour harmoniser les propositions de fonctions

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
 
Function ExtractFromSplit_EK(ByVal MaChaine As String, ByVal PositionDebut As Integer, ByVal NbValeurs As Integer) As String
 
Dim MonTableauDeValeurs As Variant
Dim I As Integer
 
    MonTableauDeValeurs = Split(MaChaine, "-")
    If UBound(MonTableauDeValeurs) >= PositionDebut + NbValeurs - 2 Then
       For I = PositionDebut - 1 To PositionDebut + NbValeurs - 2
           ExtractFromSplit_EK = ExtractFromSplit_EK & MonTableauDeValeurs(I) & "-"
       Next I
       ExtractFromSplit_EK = Mid(ExtractFromSplit_EK, 1, Len(ExtractFromSplit_EK) - 1)
    Else
       ExtractFromSplit_EK = "Chaîne non valide"
    End If
 
End Function
 
 
Sub TestExtractFromSplit_EK()
 
Dim TxtRecup1_4 As String
 
     TxtRecup1_4 = ExtractFromSplit_EK("17-5-3-8-9-65-10-23", 4, 3)
     MsgBox TxtRecup1_4
 
End Sub

Proposition du message d'origine :

Je verrais bien cette fonction :

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
 
Function LesNPremiers(ByVal MaChaine As String, ByVal NbValeurs As Integer) As String
 
Dim Tablo As Variant
Dim I As Integer
 
    Tablo = Split(MaChaine, "-")
    If UBound(Tablo) >= NbValeurs - 1 Then
       For I = 0 To NbValeurs - 1
           LesNPremiers = LesNPremiers & Tablo(I) & "-"
       Next I
       LesNPremiers = Mid(LesNPremiers, 1, Len(LesNPremiers) - 1)
    Else
       LesNPremiers = "Chaîne non valide"
    End If
 
End Function
 
Sub Test()
 
Dim TxtRecup4premiers As String
 
     TxtRecup4premiers = LesNPremiers("17-5-3-8-9-65-10-23", 4)
     MsgBox TxtRecup4premiers
 
End Sub

**unparia** · 03/09/2017, 08h45

Bonjour
du "rigolo" pour se mettre de bonne humeur (et surtout inviter GESCOM2000 au gymnase des traitements de chaînes de caractères) -->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
chaine = "17-5-3-8-9-65-10-23"
titi = Replace(chaine, "-", Chr(1), 1, 4)
pos = InStrRev(titi, Chr(1))
titi = Replace(Left(titi, pos - 1), Chr(1), "-")
MsgBox titi

Il pourrait en inventer d'autres encore.

Comme celle-ci (entre autres) -->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim titi
chaine = "17-5-3-8-9-65-10-23"
titi = Split(chaine, "-")
ReDim Preserve titi(3)
MsgBox Join(titi, "-")

**GESCOM2000** · 03/09/2017, 20h59

En fait c'est pas possible de donner une valeur Len avec le SPLIT???
Du style

Split(Tablo(1, 1), "-")(0)'===>le (0) Prend la premier Lig du tableau

Pas possible de faire avec une autre syntaxe???
Split(Tablo(1, 1), "-")(0 & 1 & 2) 'le (0 & 1 & 2) Pour prendre la 1er, 2eme et 3eme Lig du tablo.

Peut etre avec du SPLIT dans du SPLIT ???
....

Invité · 04/09/2017, 08h00

Envoyé par GESCOM2000

Avec une seule ligne de code pour récupérer votre chaîne, c'est encore trop long ?

Vous n'avez pas dû essayer les solutions proposées, ce n'est pas possible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub Test()
 
Dim TxtRecup4premiers As String
 
     TxtRecup4premiers = LesNPremiers("17-5-3-8-9-65-10-23", 4)
     MsgBox TxtRecup4premiers
 
End Sub

**Pierre Fauconnier** · 04/09/2017, 08h44

Salut.

Je préfère personnellement une fonction comme celle d'Eric à un tout en une ligne imbuvable, illisible et fixé à x concaténations (surtout si le x devait être un jour plus grand que 4).

Au delà de la prouesse d'écrire tout sur une ligne, je ne vois pas l'intérêt pratique.

C'est comme quand on écrit with ... : ... : ... End With... Perso, je n'adhère pas.

**patricktoulon** · 04/09/2017, 11h22

Bonjour

je vous propose celle ci :

MsgBox part_off_string(chaine a traiter , caractère séparateur, début, fin )(0)
en rouge
0 pour la partie demandé
1 pour la suite

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
Sub test1()
    Dim chaine$
    chaine = "17-5-3-8-9-65-10-23"
    MsgBox part_off_string(chaine, "-", 0, 4)(0)
End Sub
'
'
Function part_off_string(txt As String, sep As String, debut As Long, fin As Long) As Variant
    Dim Tabl, tBL(2)
    Tabl = Split(txt, sep)
    ReDim Preserve Tabl(debut To fin - 1)
    tBL(0) = Join(Tabl, "-")
    tBL(1) = Replace(txt, tBL(0), "")
    part_off_string = tBL
End Function

chose étonnantes pourtant le redim preserve autre que 0 to x ne fonctionne pas

**RyuAutodidacte** · 04/09/2017, 12h34

Bonjour,
Coucou à ceux qui me connaisse

une autre façon de faire (avec choix du caractère de séparation ou pas) :

avec choix du caractère de séparation :

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
Sub ExempleAvecFonction() 'avec choix du caractère de séparation
    TxtRecup4premier = "17-5-3-8-9-65-10-23"
    MsgBox TextRecup(TxtRecup4premier, 4, "-")
End Sub
 
Function TextRecup(ByVal Txt As String, NBRecup As Byte, Cara As String) As String 'Cara As String : ou l'intégrer directement dans la fonction et on le supprime
Dim i As Byte, Cpt As Byte
    For i = 1 To Len(Txt)
        If Mid(Txt, i, 1) = Cara Then Cpt = Cpt + 1
        If Cpt = NBRecup Then
            Cpt = i: TextRecup = Mid(Txt, 1, Cpt - 1): Exit For
        Else
            TextRecup = "Chaîne non valide"
        End If
    Next
End Function

Sans choix du caractère de séparation :

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
Sub ExempleAvecFonction() 'choix du caracrère intégrer dans la fonction
    TxtRecup4premier = "17-5-3-8-9-65-10-23"
    MsgBox TextRecup(TxtRecup4premier, 4)
End Sub
 
Function TextRecup(ByVal Txt As String, NBRecup As Byte) As String
Dim i As Byte, Cpt As Byte
    For i = 1 To Len(Txt)
        If Mid(Txt, i, 1) = "-" Then Cpt = Cpt + 1
        If Cpt = NBRecup Then
            Cpt = i: TextRecup = Mid(Txt, 1, Cpt - 1): Exit For
        Else
            TextRecup = "Chaîne non valide"
        End If
    Next
End Function

**unparia** · 04/09/2017, 12h41

Bonjour Patrick
Pourquoi passer par un Replace, etc ... ?
Utilise alors (non demandé par le demandeur, mais ..) plutôt ce qu'offre la fonction Split.
Regarde --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
chaine = "17-5-3-8-9-65-10-23"
 nbdebut = 3
 titi = Split(chaine, "-", nbdebut + 1)
 pos = InStrRev(Join(titi, Chr(1)), Chr(1))
 MsgBox Left(chaine, pos - 1) & vbCrLf & Mid(chaine, pos + 1)

**RyuAutodidacte** · 04/09/2017, 12h53

Salut Jacques,
sympas cette façon de faire

**unparia** · 04/09/2017, 12h58

Salut Ryu
Je dirais plutôt "rigolo".
Mais on s'est écarté de la demande originelle.

**Pierre Fauconnier** · 04/09/2017, 14h49

Salut.

[EDIT] Edité pour l'ajout du séparateur dans la signature de la fonction

Discussion riche en contributions diverses illustrant des styles de programmation différents. Intéressante, donc...

Sauf que le demandeur initial risque de s'y perdre dans les différentes interventions et dans la façon de les mettre en application dans son code.

Pour recentrer la discussion sur la question initiale tout en mettant en évidence les bonnes pratiques, ne pourriez-vous pas proposer chacun votre meilleure fonction qui aurait en entrée la chaine à splitter, le nombre d'éléments à extraire et à partir de quel élément extraire?

Cela illustrerait qu'il est intéressant de travailler en découpant le code en fonctions qui font chacune leur petite part de travail, et que le code à l'intérieur de la fonction peut évoluer par la suite pour rendre l'exécution plus rapide, plus efficace, plus contrôlée en termes d'erreurs, ... tout en ne touchant pas du tout au code principal.

Vous pourriez vous baser sur le squelette suivant et donner un exemple d'utilisation avec une procédure qui appelle la fonction et lui passe les arguments souhaités:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function ExtractFromSplit(Source as string, Sep as string, Pos as long, Length as long) as string
    ...
    ...
    ...
    ExtractFromSplit = ...
End Function

PS: Ce n'est qu'une proposition, mais je pense que cela donnerait beaucoup de valeur à la discussion et permettrait au demandeur d'intégrer facilement la solution de son choix dans son code.

Merci pour lui si vous suivez...

Subsidiairement, cela illustrerait également aux lecteurs que lorsque l'on est plusieurs à développer un même projet, on se répartit les tâches en découpant justement l'appli en différentes fonctions qui sont distribuées aux programmeurs, et qu'il suffit après d'assembler les fonctions développées comme des briques de Lego...