Détection numérique string

Version imprimable

04/04/2017, 15h40
gnain

Détection numérique string
Bonjour,

C'est surement simple, mais je ne trouve rien.

Comment détecter ce string, "172058E01", si il est numérique ou pas ?
à cause du E ça me détecte numérique, surement à cause que E = exposant
mais moi je veux qu'il interprète le E comme un E
donc ce code détecterait Pas Numérique.
Code:

1 2 3 4 5 6 7 Dim toto As String = "172058E01" If IsNumeric(toto) Then MsgBox("C'est numerique") Else MsgBox("Pas numerique") End If
Merçi!
04/04/2017, 15h58
jopopmk

Salut,

je sais pas s'il existe la fonction que tu cherches dans le Framework. Par contre si tu veux vérifier qu'une chaîne de caractères ne contient que des chiffres c'est assez simple à faire à la main (parcours de la string ou expression régulière).

Merci jopopmk.
Je n'y avait pas pensé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim S As String
        Dim Numerique As Boolean = True
 
        For i = 1 To Len(toto)
            S = Mid(toto, i, 1)
            If Not IsNumeric(S) Then
                Numerique = False
                Exit For
            End If
        Next i
 
        MsgBox(Numerique)

Code:

1
2
3
4
5
6
 
If Integer.TryParse("172058E01",Nothing) then
     'C'est un entier
Else
     'Ce n'est pas un entier
End If

04/04/2017, 16h22
ebastien

Ou sinon :

Code:

result = Toto.Count(Function(c As Char) Not Char.IsNumber(c)) = 0

(ce qui permet de dépasser la taille d'un integer)
04/04/2017, 16h37
gnain

Merci à vous tous.
j'aime bien

Code:

result = Toto.Count(Function(c As Char) Not Char.IsNumber(c)) = 0

Mon petit code perso (vu que la soluce regex n'a pas été présentée) :
Code:

1 2 3 string myVal = "123456z"; bool isNum = new Regex("^[0-9]+$").IsMatch(myVal); Console.WriteLine(myVal + (isNum ? " est" : " n'est pas") + " numérique");

04/04/2017, 17h11
ebastien

Moi j'aime bien la regex de jopopmk.
04/04/2017, 17h23
jopopmk

Citation:

Envoyé par ebastien

Moi j'aime bien la regex de jopopmk.

Merci :oops:
Par contre je m'ai trompé, j'ai -encore- mis du C# alors qu'on cause VB.NET ...

Citation:

Envoyé par jopopmk

Salut,

je sais pas s'il existe la fonction que tu cherches dans le Framework. Par contre si tu veux vérifier qu'une chaîne de caractères ne contient que des chiffres c'est assez simple à faire à la main (parcours de la string ou expression régulière).

Bonjour,

voici deux fonctions qui devraient t'intéresser, il faudra les adapter un peu :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
    Public Function ValeurDbl(ByRef Chaine As String) As Double
        'Dim chaine2 As String
        Dim c As Char 'Dim c As String
        Dim ca As Integer
        Dim i As Integer
        Dim v As Boolean
        Dim EstNull As Boolean
        Dim n As Integer
        Dim s As StringBuilder
        n = Len(Chaine)
        v = True
        EstNull = True
        s = New StringBuilder(n) 'chaine2 = vbNullString
        For i = 0 To n - 1
            'c = Mid(Chaine, i, 1)
            'If c = "0"c OrElse c = "1"c OrElse c = "2"c OrElse c = "3"c OrElse c = "4"c OrElse c = "5"c OrElse c = "6"c OrElse c = "7"c OrElse c = "8"c OrElse c = "9"c Then
            c = Chaine.Chars(i)
            ca = Asc(c)
            If ca > 47 AndAlso ca < 58 Then
                s.Append(c) 'chaine2 &= c
                EstNull = False
            Else
                'If c = "-" AndAlso chaine2 = vbNullString Then chaine2 = "-"
                'If c = "-"c AndAlso EstNull Then s.Append("-"c)
                If ca = 45 AndAlso EstNull Then s.Append("-"c)
                'If v AndAlso (c = ","c OrElse c = "."c) Then
                If v AndAlso (ca = 44 OrElse ca = 46) Then
                    If EstNull Then s.Append("0"c) 'If chaine2 = vbNullString Then chaine2 = "0"
                    s.Append("."c)                  'chaine2 &= "."
                    v = False
                End If
            End If
        Next
        ValeurDbl = CDbl(Val(s.ToString))
    End Function
 
    Public Function ValeurInt(ByRef Chaine As String) As Integer
        'Dim chaine2 As String
        Dim c As Char 'Dim c As String
        Dim ca As Integer
        Dim i As Integer
        Dim v As Boolean
        Dim EstNull As Boolean
        Dim n As Integer
        Dim s As StringBuilder
        n = Len(Chaine)
        v = True
        EstNull = True
        s = New StringBuilder(n) 'chaine2 = vbNullString
        For i = 0 To n - 1
            'c = Mid(Chaine, i, 1)
            'If c = "0"c OrElse c = "1"c OrElse c = "2"c OrElse c = "3"c OrElse c = "4"c OrElse c = "5"c OrElse c = "6"c OrElse c = "7"c OrElse c = "8"c OrElse c = "9"c Then
            c = Chaine.Chars(i)
            ca = Asc(c)
            If ca > 47 AndAlso ca < 58 Then
                s.Append(c) 'chaine2 &= c
                EstNull = False
            Else
                'If c = "-" AndAlso chaine2 = vbNullString Then chaine2 = "-"
                'If c = "-"c AndAlso EstNull Then s.Append("-"c)
                If ca = 45 AndAlso EstNull Then s.Append("-"c)
                'If v AndAlso (c = ","c OrElse c = "."c) Then
                If v AndAlso (ca = 44 OrElse ca = 46) Then
                    If EstNull Then s.Append("0"c) 'If chaine2 = vbNullString Then chaine2 = "0"
                    's.Append("."c)                  'chaine2 &= "."
                    'v = False
                    Exit For
                End If
            End If
        Next
        ValeurInt = CInt(Val(s.ToString))
    End Function