Question : extraction de corde

Je voudrais extraire le suivant à partir d'une corde : les numéros du

any ont suivi de la lettre V ou v : l'igonre du
#V
##V

not
###V

must tous les caractères après le V et ignorent tous les caractères ou numéros avant #V ou avant le ##V

class= > " clair " de

solutions >Related class= nombre de >Extract de " qRelatedChild " de class= de corde " de title= " du href= " /Microsoft/Development/MS_Access/Q_26299623.html " de

Réponse : extraction de corde

La fonction ci-dessous renvoie le premier un tel nombre inclus d'une corde.

(°v°)

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 :

Fonction GetNumV (texte) Faible position comme nombre entier Faire position = InStr (position + 1, texte, « V ») Si position > 2 puis Si mi (texte, position - 2, 2) comme le « ## » puis GetNumV = Val (mi (texte, position - 2, 2)) Sortir la fonction Finir si Finir si Si position > 1 puis Si mi (texte, position - 1, 1) comme « # » puis GetNumV = Val (mi (texte, position - 1, 1)) Sortir la fonction Finir si Finir si Faire une boucle tandis que position GetNumV = nulle Fonction de fin