Manipulation chaine de caractères

Résolu
ricomiracle Messages postés 195 Date d'inscription vendredi 19 novembre 2004 Statut Membre Dernière intervention 30 novembre 2009 - 12 juil. 2005 à 11:53
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 12 juil. 2005 à 12:17
Bonjour tout le monde!

Existe il en VB une fonction qui me trouve les mots qui respectent un certain masque?

Le masque est le suivant [*]*!***

Il commence forcément par un crochet ensuite il y une chaine
quelqcquonque, fermeture du crochet puis chaine quelquconque ensuite
'!' puis chaine terminant le mot.. (ex: [aaaaa]fff!ddd$
respecte ce masque)



Ou peut etre avec l'une des fonctions mid right left replace??? mais je
ne vois pas comment. Le but étant à la fin de former un tableau à 1
dimension et 3 cases.

dim tab(3) as string

tab(0) ->la chaine entre les crochets

tab(1) ->la chaine avant le '!'

tab(2) ->la chaine apres le '!'

3 réponses

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
12 juil. 2005 à 12:17
If LaChaine Like "[[]*]*!*" then Msgbox "Chaine Compatible"

Christophe R.
3
cs_drahcir Messages postés 745 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 15 septembre 2009 4
12 juil. 2005 à 12:00
Salut,

je ne sais pas s'il existe quelquechose, mais sinon tu développes une petite routine où tu récupères les index (avec IndexOf) de '[', ']' et '!'. Ensuite tu les compares et tu testes s'il y a au moins un caractère entre chaque (ou pas s'ils peuventse suivre).

@+
0
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
12 juil. 2005 à 12:01
Dim s As String

s = "[aaaaa]fff!ddd$"







MsgBox Mid$(Split(s, "]")(0), 2)

MsgBox Split(Split(s, "]")(1), "!")(0)

MsgBox Split(Split(s, "]")(1), "!")(1)


Daniel
0
Rejoignez-nous