6. Découper une chaîne de caractères :
Il arrive que vous deviez traiter une ligne d'un fichier ou autre source de données, en la découpant en fonction d'un séparateur. Une fonction VB vous permet de faire cela : Split. Cette fonction s'utilise de la manière suivante : monTab = Split(maChaine,monSéparateur).
Comme vous pouvez le voir, la fonction Split retroune un tableau (
de base 0) qui contient dans chaque case les différents champs de votre châine.
Un petit exemple pour eclaicir tout ça :
Dim monTab() As String
monTab = Split (Champ1@@@Champ2@@@Champ","@@@")
Comme résultat vous obtiendrez un tableau à 3 cases (de 0 à 2) avec monTab(0) = "Champ1", monTab(1)="Champ2", monTab(2)="Champ3". Le séparateur peut être aussi long que vous le souhaitez.
ATTENTION pour ceux qui auraient déjà utilisé strtok en C : la chaîne indiquant le séparateur est elle même le séparateur. Si vous faîtes Split("Bonjour. Salut; Ca va,",".;,") vous n'obtiendrez pas "Bonjour", " Salut", "Ca va" car le séparateur est la chaîne ".;,".
Split retournant un tableau est lui même un tableau. Donc pour récupérer le premier élément vous pouvez écrire Split(maChaine,monSep)(0), pour récupérer le n-ième élément vous faîtes Split(maChaine,monSep)(n-1), et pour récupérer le dernier élément vous faites Split(maChaine,monSep)(UBound(Split(maChaine,monSep)))
Partager