Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1619 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Extraire chaine numérique en VB

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Extraire chaine numérique en VB

n°2141018
VincentC81
Posté le 06-05-2012 à 19:53:13  profilanswer
 

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

mood
Publicité
Posté le 06-05-2012 à 19:53:13  profilanswer
 

n°2141411
vave
Nice to meet me
Posté le 09-05-2012 à 08:12:51  profilanswer
 

Bonjour,

 

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

Code :
  1. 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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Extraire chaine numérique en VB

 

Sujets relatifs
Que signifie chaine[i]='\0';[VB.NET] Instancier un formulaire plusieurs fois [Résolu]
extraire valeur d'une cellule désignée par autre cellule ?Trouver une URL dans une chaine
Shell Unix : Extraire une valeur d'un fichierVB Excel
Extraire le numéro de version d'un exe[Aide] Extraire un jeu flash d'un site web
Hook Clavier + Pavé numériqueétude de graphique sous VB . c'est possible?
Plus de sujets relatifs à : Extraire chaine numérique en VB


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR