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

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:

---

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

Citation:

---

Envoyé par GESCOM2000

---

Bonjour,

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

Code:

---

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:

---

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

---

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

Code:

---

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:

---

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, "-")

---

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

Citation:

---

Envoyé par GESCOM2000

---

Avec une seule ligne de code pour récupérer votre chaîne, c'est encore trop long ? :koi:
Vous n'avez pas dû essayer les solutions proposées, ce n'est pas possible.

Code:

---

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

---

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.

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:

---

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

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:

---

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:

---

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

---

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:

---

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)

---

Salut Jacques,
sympas cette façon de faire :plusser:

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

Bonjour jacques
le replace c'est juste pour récupérer la deuxième partie dans le tbl(1)c'est juste un supplément (pas demandé) mais qui peut avoir son intérêt tout de même )

après avec split est instr ect... on a bien des possibilité je pense que le choix c'est un peu la signature du développeur

J'aurais tellement préféré voir le demandeur monter lui-même aux agrès ...
Les possibilités de traiter son "affaire" sont carrément innombrables. Elles font toutes plus appel à l'imagination et la créativité qu'à quoi que ce soit d'autre.
Après, ce n'est qu'une question de rapidité (et non de "longueur" de code). De toutes mes solutions, je donne personnellement la préférence à ma toute première. Elle est la plus pure. Toutes mes autres propositions paraissent plus "pros", mais ne le sont nullement, en ce sens qu'elles font de toutes manières faire en arrière plan des taches que la première fait directement. Elles ne sont que des faux-amis ;)

a oui jacques
le 3eme argument(limite) du split on s'en sert pas souvent de celui la c'est vrai

ma version elle est rigolote aussi non je reverse pas

Code:

---

1 2 3 4 5 6

Sub test4() chaine = "17-5-3-8-9-65-10-23" nbdebut = 3 titi = Join(Split(chaine, "-", nbdebut + 1), Chr(1)) MsgBox Join(Split(Split(titi, "-")(0), Chr(1)), "-") End Sub

---

split de split Chrüterchraft:mouarf:

Oui, Patrick, si c'est pour extraire le seul début.
Deux splits toutefois, sont quelque peu gourmands.

PS : je n'ose pas montrer ici (le demandeur s'y perdrait), ma vraie préférence. Elle passe par la fonction strconv, occupe plus de lignes de code ... mais (à un niveau de traitement plus bas) est tellement plus rapide en exécution ... :lol:

je suis curieux (strconv)
peu etre le verra t on dans un autre post

je serait curieux aussi de pouvoir mesurer la charge mémoire & UC de ces diverses fonctions

Citation:

---

Envoyé par unparia

---

Allez Jacques, vas y....

a oui suis je bête jacques je le fait pour ma contrib nombres en lettre pour spliter par tranche de 3 caractères numérique
viens vu la piqure de rappel

je suis curieux de voir aussi Jacques (strconv) ;)

Bonjour Eric, Ryu, ...
Vous y tenez (avec strconv) ?
Attendez. J'en bâcle un vite fait et reviens avec en Edit. ;)

EDIT :
Coucou (et bâclé) --->>

Code:

---

1 2 3 4 5 6 7 8 9 10

chaine = "17-5-3-8-9-65-10-23" sep = Asc("-"): nbdebut = 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 = nbdebut Then Exit For Next titi = MidB(titi, 1, k) MsgBox StrConv(titi, vbUnicode)

---