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
Partager