Bonjour,

j'ai une chaine de caractères avec des mots qui sont séparés par un séparateur (SEP).

j'ai créer une fonction qui permet d'extraire le premier mot de la chaine mais je n'arrive pas a faire une fonction récursive qui extrait tout les mots de la chaine pour ensuite les afficher dans un texte box ou un tableau

Voici ma fonction:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Function extract (ByVal data As String) As String
 
Dim mot as string
Dim len as Integer = data.IndexOf(SEP)
 
If len < 0 then
      len = 0
end if 
 
mot = data.Substring(0, len)
return mot 
End function