Déterminé ci une chaine ne contient que des chiffres

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 020 fois - Téléchargée 37 fois

Contenu du snippet

voici un exemple :
if isnumber(text1.text)=true then
...
end if

sa permet juste de vérifié si une chaine contient juste des chiffres. Si on ajoute true à isportnumber, sa vérifie si le port n'est pas supérieur à 65000 et qu'il n'y a pas de "-"

Source / Exemple :


Function isnumber(str As String, Optional isportnumber As Boolean) As Boolean
Dim car As String, non As Boolean, check As Long
non = True
For i = 1 To Len(str)
car = Mid$(str, i, 1)
If car = "1" Or car = "2" Or car = "3" Or car = "4" Or car = "5" Or car = "6" Or car = "7" Or car = "8" Or car = "9" Or car = "0" Then
Else
If car = "-" Then
If isportnumber = True Then
isnumber = False
Exit Function
End If
Else
non = False
End If
End If
Next
isnumber = non
If isportnumber = False Then Exit Function
check = CLng(str)
If check >= 65000 + 1 Then
isnumber = False
End If
End Function

Conclusion :


ca peut etre pratique pour éviter des erreurs

A voir également

Ajouter un commentaire Commentaires
Messages postés
35
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
30 avril 2008

tu aurai pu utiliser un select case

select case car
case "0" to "9"

'plus court
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

cq serait cool d'arreter d'envoyer des sources sans interet. ca blinde l co;pil' de conneries et apres, on peut pu avoir les commetaires.

merci les lames :]
Messages postés
4936
Date d'inscription
lundi 17 février 2003
Statut
Modérateur
Dernière intervention
14 février 2014
33
en plus ca fait mal au coeur de voir écrire if machin = true then ou bien if machin = false then... !!!

pouruqoi ne ma écrire directement if machin then ou if not machin then ???

Séb
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1
Pratique comme source ;)
8/10
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Tu peux aussi essayer If IsNumeric(Text1.Text) Then ....

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.