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

Version imprimable

Voir 40 message(s) de cette discussion en une page

04/09/2017, 13h49
Pierre Fauconnier
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... :ccool:

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:

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...

Cela amuse, non ?
Et si nous nous amusions alors plus encore ?
Regardons --->> Là, nous allons prendre 4 sous-chaînes à partir de la 3ème

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
chaine = "17-5-3-8-9-65-10-23"
   sep = Asc("-"):  deb = 3:   fin = 4
   Dim titi() As Byte
   titi = StrConv(chaine, vbFromUnicode)
   For k = 0 To UBound(titi)
      If titi(k) = sep Then
        ou = ou + 1
        If ou = deb Then oudeb = k
      End If
      If ou = fin Then Exit For
   Next
   titi = MidB(titi, oudeb, k)
   MsgBox StrConv(titi, vbUnicode)

Vous aimez ?

04/09/2017, 14h16
Invité

Citation:

Envoyé par unparia

Intéressant, je découvre.

Bonjour Pierre
Pour répondre à ton souhait en effet justifié :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
   Dim chaine As String, sep As String, deb As Integer, nombre As Integer
   chaine = "17-5-3-8-9-65-10-23"
   sep = "-": deb = 3:   nombre = 4
   MsgBox ExtractFromSplit(chaine, sep, deb, nombre)
End Sub
Private Function ExtractFromSplit(Sce As String, sep As String, deb As Integer, nb As Integer) As String
   Dim titi() As Byte, sepi As Byte, ou As Integer, oudeb As Integer, k As Integer
   sepi = Asc(sep)
   titi = StrConv(sep & Sce, vbFromUnicode)
   For k = 0 To UBound(titi)
      If titi(k) = Asc(sep) Then
        ou = ou + 1
        If ou = deb Then oudeb = k + 1
      End If
      If ou = nb + 1 Then Exit For
   Next
   If oudeb < 1 Then oudeb = 1
   titi = MidB(titi, oudeb, k)
   ExtractFromSplit = Mid(StrConv(titi, vbUnicode), 2)
End Function

On extrait ainsi nombre sous-chaînes, à partir de la deb(ième) sous-chaîne, séparées par le caractère sep dans la chaine chaîne

04/09/2017, 14h24
Invité

Citation:

Envoyé par Pierre Fauconnier

Salut Pierre,

Message d'origine modifié.
04/09/2017, 14h25
Pierre Fauconnier

Merci Jacques. C'est sympa et utile.

NB: En effet, il manquait le séparateur. J'ai édité ma demande en fonction.

Merci Eric ;)
04/09/2017, 14h32
patricktoulon

re

oui la pour le demandeur ca risque d'être un peu compliqué

j'avoue que dans cette circonstance les "-" sont gênants car il force a boucler sur n du (tableau de bits)

certainement plus intéressant dans un autre contexte
04/09/2017, 14h45
unparia

J'ai corrigé un petit bug dans ma fonction.

ok pierre
dans ces circonstances a boucler sur x on laisse le tableau tel qu'el avec les tirets (ou autres)

sub test
ici 3 exemples les index de début et fin sont optionels
debut= 0 par defaut
fin = le ubound par defaut
Code:

1 2 3 4 5 6 7 8 sub test() Dim chaine$ chaine = "17-5-3-8-9-65-10-23" MsgBox part_off_string(chaine, "-", 3, 7) 'du 4eme au 8 eme attention!!!!! (base 0) MsgBox part_off_string(chaine, "-", 1, 5) ' du 2eme au 6eme attention!!!!! (base 0) MsgBox part_off_string(chaine, "-", fin:=6) ' du 0 au 7eme ( pas d'argument de debut) attention!!!!! (base 0) MsgBox part_off_string(chaine, "-", debut:=4) ' du 5eme a la fin (pas d'argument de fin ) attention!!!!! (base 0) End Sub
la fonction
Code:

1 2 3 4 5 6 7 8 9 Function part_off_string(txt As String, sep As String, Optional debut As Long = 0, Optional fin As Long = 0) As Variant Dim Tabl, txt2$, i# Tabl = Split(txt, sep) If fin = 0 Then fin = UBound(Tabl) For i = debut To fin txt2 = txt2 & Tabl(i) & IIf(i < fin, "-", "") Next part_off_string = txt2 End Function
je ne proposerais pas la version reg expand non je le ferais pas ;)

PS: j'en oubliais un même si la fonction serait inutile dans ce cas la :mais dans une gestion de code sans devoir choisir si oui elle serait utile ou non , on a l'unité

Code:

MsgBox part_off_string(chaine, "-", 4, 4) 'juste le 5 eme attention!!!!! (base 0)

04/09/2017, 17h24
RyuAutodidacte

Re Jacques,
j'ai vient d'essayer le strconv, super !! :plusser: :plusser: … sur tes posts

en plus je découvre de nouvelles choses :ccool:

Bien sur Patrick je t'ai pas oublié :plusser: ;)

Me revoilà,

j'ai du retard mais il fallait que je fasse une solution non faite et comme demandé par Pierre (qui a raison sur son intervention et que je salue au passage ;))

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub MaRecupText()
Dim Txt$
    Txt = "17-5-3-8-9-65-10-23"
    MsgBox RecupText(Txt, "-", , 5, 7) 'avec début et fin
    MsgBox RecupText(Txt, "-", , , 5) ' avec fin
    MsgBox RecupText(Txt, "-", , 2, 10) ' simulation d'une erreur de paramètre
    MsgBox RecupText(Txt, "-", 4) ' avec le nombre voulu (par défaut le début est à 1)
    MsgBox RecupText(Txt, "-", 3, 3) ' en mettant le début et le nombre voulu
    MsgBox RecupText(Txt, "-", 9, 3) ' simulation d'une erreur de paramètre
    MsgBox RecupText(Txt, "-", 5, 2, 4) ' avec début et fin (prioritaires), le paramètre Nb n'est pas pris en compte
End Sub

Code:

1
2
3
4
5
6
7
8
9
Function RecupText(Txt As String, Cara As String, Optional Nb As Integer, Optional Deb As Integer = 1, Optional Fin As Integer) As String
Dim i As Integer, TxToTab, TabToTxt
    TxToTab = Split(Txt, Cara)
    Deb = Deb - 1: If Fin > 0 Then Fin = Fin - 1 Else Fin = Deb + Nb - 1
    If Fin > UBound(TxToTab) Then RecupText = "Fonction non valide, vérifier les paramètres ""Nb"" ou ""Fin""": Exit Function
    ReDim TabToTxt(Deb To Fin)
    For i = Deb To UBound(TabToTxt): TabToTxt(i) = TxToTab(i): Next
    RecupText = Join(TabToTxt, Cara)
End Function

Edit : petites correction en post # 34

05/09/2017, 08h22
unparia

Bonjour Ryu
Voilà du complet :plusser:

Bonjour,

Vous avez peut-être omis la simplicité.
Ou alors je me fourvoie, ou alors cela semble ultra rapide et simpliste...

Mais comme je me trompes souvent...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
    MsgBox ExtractFromSplit("17-5-3-8-9-65-10-23", "-", 3, 4)
End Sub
 
Private Function ExtractFromSplit(Source As String, Sep As String, Pos As Long, Length As Long) As String
    Dim Increment As Long, Compteur As Long, Debut As Long, Longueur As Long
 
    For Increment = 1 To Len(Source)
        If Mid(Source, Increment, 1) = Sep Then
            Compteur = Compteur + 1
            If Compteur = Pos - 1 Then Debut = Increment + 1
        End If
        If Compteur = Length Then Longueur = Increment - 1: Exit For
    Next Increment
    ExtractFromSplit = Mid(Source, Debut, Longueur)
End Function

EDIT : pour moi-même : :moinsser:
Je le fais moi-même (-1) car je n'avais pas lu que Ryu proposait déjà cette solution en première page.
Mea Culpa!

Coucou Frank,

J'ai fait un code de ce genre en post #8, mais comme j'étais hors sujet comme signalé par Pierre qui a recentré le sujet, j'ai finalisé un nouveau code sur mon dernier post comme l'a fait Jacques et Patrick ;)

Edit : je viens de voir ton Edit :oops: allez je me mets un :moinsser: pour t'accompagner ;)

Edit 2 : Franck il est tjs bien de proposer des alternatives et je n'ai pas fait le code en proposant le début et la fin :ccool:

Correction de ma fonction pour parer à tout problème :
Code:

1 2 3 4 5 6 7 Sub MaRecupText() Dim Txt$ Txt = "17-5-3-8-9-65-10-23" MsgBox RecupText(Txt, "-", 5, 10) ' simulation d'une erreur de paramètre avec début trop grand MsgBox RecupText(Txt, "-", , 5) ' en mettant juste le début (Fin prenant la plus grande valeur par défaut) MsgBox RecupText(Txt, "-", , 7, 4) ' simulation d'une erreur de paramètre avec début > fin End Sub
Code:

1 2 3 4 5 6 7 8 9 10 Function RecupText(Txt As String, Cara As String, Optional Nb As Integer, Optional Deb As Integer = 1, Optional Fin As Integer) As String Dim i As Integer, TxToTab, TabToTxt TxToTab = Split(Txt, Cara) Deb = Deb - 1: If Fin > 0 Then Fin = Fin - 1 Else If Nb = 0 And Fin = 0 Then Fin = UBound(TxToTab) Else Fin = Deb + Nb - 1 If Fin > UBound(TxToTab) Or Deb > Fin Or Deb > UBound(TxToTab) Then _ RecupText = "Fonction non valide, vérifier les paramètres : " & vbCrLf & """Nb"", ""Deb"" ou ""Fin""": Exit Function ReDim TabToTxt(Deb To Fin) For i = Deb To UBound(TabToTxt): TabToTxt(i) = TxToTab(i): Next RecupText = Join(TabToTxt, Cara) End Function
Edit 3 : je suis allé trop vite dans ma correction :oops: , c'est re-corrigé ci-dessus, mea culpa
la Jacques je pense que c'est plus complet ;)
PS : si vous voyez autre chose, signalez le moi, merci d'avance

05/09/2017, 15h45
patricktoulon

re

re Bonjour a tous
a mon avis la boucle sur le LEN(CHAINE) serait utile par exemple que si les séparateurs ne serait pas identiques car dans ce cas la on ne pourrait pas utiliser la fonction split pour en faire un array
05/09/2017, 16h16
pijaku

Citation:

Envoyé par patricktoulon

la boucle sur le LEN(CHAINE) serait utile ...

Bonjour,

Elle est seulement plus rapide que le Split.
05/09/2017, 17h28
GESCOM2000

Bonjour tout le monde
J'arrive de mes vacances...
Je suis content de voir toutes les propositions et regarde ça ce soir.
Mine de rien il est intéressant ce post...

Voir 40 message(s) de cette discussion en une page