cs_keks
Messages postés34Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention24 janvier 2008
-
18 mars 2005 à 15:49
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 2019
-
18 mars 2005 à 20:17
Bonjour tout le monde.
j'aimerais savoir comment, en VB6, on peut extraire un entier d'un string. Dans mon cas, l'entier sera toujours au début de la chaine de caractere.
merci.
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 18 mars 2005 à 19:56
Salut,
Si le nombre est toujours en début de chaine, Gobillot a raison :
par exemple : Val("123abc") renvoie 123
Quoique je me méfie des "toujours". Ce mot ne devrait pas exister en prog. Et l'utilisation de mid$ serait moins couteuse en temps en cas de modif de la structure de la chaine.
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 18 mars 2005 à 20:17
là encore Val est indispensable:
Dim i As Integer
Dim j As Integer
Dim R As Integer
Dim s(3) As String
s(0) = "123abc"
s(1) = "a123bc"
s(2) = "ab123c"
s(3) = "abc123"
For i = 0 To 3
j = 1
Do
R = Val(Mid$(s(i), j))
j = j + 1
Loop Until R > 0
MsgBox R
Next