Le plus simple consiste bien évidemment à faire une petite boucle, par exemple :
Code :
- chaine_nombre = ""
- For i = 1 to Len(chaine)
- If (Mid(chaine, i, 1) >= "1" and Mid(chaine, i, 1) <= "9"
- chaine_nombre = chaine_nombre & Mid(chaine, i, 1)
- End If
- Next i
|
Voilà, écrire ces lignes m'a pris douze secondes trois dizièmes. Bien sûr pour ceux qui aiment les choses compliquées, on peut localiser le premier chiffre avec Instr() et utiliser Val(), qui a l'avantage sur CInt() de n'être pas gêné par les caractères non numériques en fin de chaine.
Message édité par olivthill le 06-12-2005 à 12:57:46