DÉCOMPOSER UNE CHAINE DE CARACTÈRE. (EXEMPLE: "VISUAL,BASIC")
DeAtHCrAsH
Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
-
17 mai 2002 à 22:56
Utilisateur anonyme - 18 mai 2002 à 19:34
Utilisateur anonyme - 18 mai 2002 à 19:34
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/3348-decomposer-une-chaine-de-caractere-exemple-visual-basic
https://codes-sources.commentcamarche.net/source/3348-decomposer-une-chaine-de-caractere-exemple-visual-basic
18 mai 2002 à 19:34
Var="Visual,Basic,De,Microsoft "
Dim A as Boolean
Dim Pos as Integer
Dim Result() as String
Dim I as Integer
Pos = 0
I = 0
Do While A
Pos = instr(Pos, Var, ",")
Redim Result(I)
Result(i) = mid(Var, 1, Pos - 1)
Var = Mid(Var, Pos + 1)
A = Var Like "*,*"
I = I + 1
Loop
Result(I) = Var
et voila on a tous les éléments de la chaine dans le tableau result et le nombre d'éléments i.
ps : excusez moi si il y un ou deux petit probleme car je ne suis pas sur mon pc, g donc pas pu tester la source
18 mai 2002 à 14:59
http://www.vbfrance.com/article.asp?Val=4059
18 mai 2002 à 14:11
Merci de l'idée.
17 mai 2002 à 22:56
Utilise plutot la fonction Split ... ca sera plus simple