DÉCOUPER UNE CHAINE DE CARACTÈRE
cs_phm
Messages postés
49
Date d'inscription
jeudi 17 janvier 2002
Statut
Membre
Dernière intervention
23 avril 2009
-
28 avril 2004 à 10:20
JpatOsaure Messages postés 5 Date d'inscription mercredi 2 avril 2003 Statut Membre Dernière intervention 29 août 2005 - 28 avril 2004 à 10:25
JpatOsaure Messages postés 5 Date d'inscription mercredi 2 avril 2003 Statut Membre Dernière intervention 29 août 2005 - 28 avril 2004 à 10:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/22324-decouper-une-chaine-de-caractere
https://codes-sources.commentcamarche.net/source/22324-decouper-une-chaine-de-caractere
28 avril 2004 à 10:25
pour info, si tu ne le sais pas, il existe une fonction pour faire ça : SPLIT().
cette fonction, a pour paramètres, 2 string. une où il faut chercher et une autre pour ce qu'il faut chercher.
le résultat et renvoyer dans un tableau de string.
son inverse existe aussi : merger un tableau mono dimensionnel de string en une chaîne grâce à Char liant. cette fonction JOIN()
a cio
JpatOsaure
28 avril 2004 à 10:20
très utile surtout.
je me suis fait une version bcp plus paresseuse
par manque de patience :
à l'aide d'un split.
Function getitem(chaine,offset,separateur)
Dim MyArray
offset=offset-1
MyArray = Split(chaine,separateur, -1, 1)
if UBound(MyArray)>=offset then
getitem=MyArray(offset)
else
getitem=""
end if
End Function
28 avril 2004 à 10:20
très utile surtout.
je me suis fait une version bcp plus paresseuse
par manque de patience :
à l'aide d'un split.
Function getitem(chaine,offset,separateur)
Dim MyArray
offset=offset-1
MyArray = Split(chaine,separateur, -1, 1)
if UBound(MyArray)>=offset then
getitem=MyArray(offset)
else
getitem=""
end if
End Function