DÉCOMPOSER UNE CHAINE DE CARACTÈRE. (EXEMPLE: "VISUAL,BASIC")

Signaler
Messages postés
2671
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
-
 Utilisateur anonyme -
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

Utilisateur anonyme
tu pourrai plutot utiliser un truc du genre ki permet de mettrer tous les éléments séparés par une virgule dans un tableau (ou dans autre chose) :

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
Messages postés
115
Date d'inscription
mardi 26 février 2002
Statut
Membre
Dernière intervention
15 novembre 2007

Pour l'utilisation de la fonction split, CodeSource LesMots
http://www.vbfrance.com/article.asp?Val=4059
Messages postés
19
Date d'inscription
samedi 26 janvier 2002
Statut
Membre
Dernière intervention
17 juin 2002

Oui peut-être. Mais ceci est un exemple simple!
Merci de l'idée.
Messages postés
2671
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
2
Et si la variable est du type Visual,Basic,De,Microsoft coment tu fais ???? lol
Utilise plutot la fonction Split ... ca sera plus simple