Extraire chaine numérique en VB

Marsh Posté le 06-05-2012 à 19:53:13

Bonjour,

Je débute mais dois jouer à l'apprenti sorcier....
Je souhaite extraire un N° à 17 positions commençant par 3060, d'une chaine de caractères.
Function ExtFunction (x)
ExtFunction= "0"
if instr(x,"3060" ) <> 0 then
ExtFunction = Mid(x, InStr(x,"3060" ) , 17)
end if
End Function
Cela me donne un bon résultat sauf quand il existe des espaces entre les nombres.
Comment n'extraire que les 17 caractères numériques à partir de la chaine 3060 ?

Merci de votre aide

Marsh Posté le 06-05-2012 à 19:53:13

Marsh Posté le 09-05-2012 à 08:12:51

Bonjour,

tu peux peut-être supprimer les espaces avant de récupérer les 17 caractères :

Code :

ExtFunction = Mid(Replace(x, " ", "" ), InStr(Replace(x, " ", "" ), "3060" ), 17)

Edit : c'est à tester hein !

Message édité par vave le 09-05-2012 à 08:15:14

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *