Retourner chaîne de caractére splitRésolu

Question

Voil&#224; j'ai une variable du style :
test = "Str1|Sti1|Sto1|Sta1,Str2|Sti2|Sto2|Sta1,etc"
et moi je voudrais retourner un par un:
Str1
Sti1
STo1
etc

moi ce que j'avais pens&#233; faire c'est faire un split sur "," et faire une for qui va faire un split sur "|" sur chaque &#233;l&#233;ment

En fait ce que je voudrais savoir c'est est-ce qu'il existe une fonction qui me permettrait de retourner le nombre d'&#233;l&#233;ment dans une chaine de caract&#233;res entour&#233;s par ","

Merci d'avance

mrdep1978 · Accepted Answer

Tu peux utiliser la fonction UBound, qui renvoie l'indice max d'un tableau
Un exemple vaut mieux qu'un long discours (je pense)

Dim Test as String
Dim ls_SplitVirgule() as String
Dim ls_SplitBarre() as String
Dim li_Index as Integer
Dim li_IndexBarre as Integer
Test = "Str1|Sti1|Sto1|Sta1,Str2|Sti2|Sto2|Sta1,etc"
ls_SplitVirgule = split(Test, ",")
For li_Index = 0 to Ubound(ls_SplitVirgule)
   ls_SplitBarre = split(ls_SplitVirgule(li_Index), "|")
   For li_IndexBarre = 0 to Ubound(ls_SplitBarre)
      Debug.Print ls_SplitBarre(li_IndexBarre)
   Next li_IndexBarre
Next li_Index

talking · Answer

Merci &#231;a marche imp&#233;cable

C'est justement la fonction que ej cherchais Ubound

crenaud76 · Answer

ET ne pourrais tu pas plutot faire un replace des "," par des "|" dnas la chaine de base, pui sun split sur les "|", ce serait plus rapide que ton double splittage dans une boucle for !! Plus rapide &#224; executer et aussi a coder, car cela ne fait qu'une seule ligne de code (ci-dessous en gras)

Dim Test As String,Res() As String, i As Long

Test = "Data1|Data2,Data3|Data4"
Res = Split(Replace$(Test, ",", "|"), "|")
For i = lbound(Res) to Ubound(Res)
  Debug.Print Res(i)
Next

Christophe R

Retourner chaîne de caractére split

3 réponses

Discussions similaires