DÉCOUPER UNE CHAINE DE CARACTÈRE

Signaler
Messages postés
49
Date d'inscription
jeudi 17 janvier 2002
Statut
Membre
Dernière intervention
23 avril 2009
-
Messages postés
5
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
29 août 2005
-
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

Messages postés
5
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
29 août 2005

salut,

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
Messages postés
49
Date d'inscription
jeudi 17 janvier 2002
Statut
Membre
Dernière intervention
23 avril 2009

très bien !
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
Messages postés
49
Date d'inscription
jeudi 17 janvier 2002
Statut
Membre
Dernière intervention
23 avril 2009

très bien !
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