Discussion :

[Secinformatique]

Bonsoir,
Je suis débutant en VB6 et après avoir lu la FAQ je ne trouve pas de réponse à mon problème.
j'ai une textbox contenant des données diverses, exemple:
"cdsljldjqhskdhsqjgdjqsgdjhgfsqhgdfqshqsf62726Y9802UYGHKJDSHKJDSGJ72368T32GYISKJH093UFODJSHKF0ZE9U3YHFUID803RFHDJKHFBKDJhgKJFHDGKJFDJKSH3987R4963YA9YUHEKGF79Z439764376Y"

Je souhaite créer un string qui serait identifirai une suite de 9 nombres au moins

Je souhaiterai aussi créer un évènement avec ce string.

exemple: if stringchainedechiffreestegala9 is detected then


Je vous remercie de vos réponses.

[ProgElecT]

Salut
Quelque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
Dim StrMot As String
Dim T As Long
Dim MinChiFre As Integer
 
MinChiFre = 9
StrMot = "cdsljldjqhskdhsqjgdjqsgdjhgfsqhgdfqshqsf62726Y9802UYGHKJDSHKJDSGJ72368T32GYISKJH093UFODJSHKF0ZE9U3YHFUID803RFHDJKHFBKDJhgKJFHDGKJFDJKSH3987R4963YA9YUHEKGF79Z439764376Y"
For T = 1 To Len(StrMot) - MinChiFre
    If IsNumeric(Mid$(StrMot, T, MinChiFre)) Then
        MsgBox Mid$(StrMot, T, MinChiFre) & vbNewLine _
        & "Position : " & T & " à " & ((T + MinChiFre) - 1)
        Exit For
    End If
Next T
End Sub

[Secinformatique]

Merci de votre réponse!
J'ai testé et en effet cela marche
Mais comment le lier à un évènement?
Je voudrais que lorsque le programme détecte une série de 9 chiffres il active certaines fonctions.

Votre bout de code renvoie en msgbox la série et sa position mais comment l'associer à un évènement?

exemple: if stringchainedechiffreestegala9 is detected then...

Je pense qu'ici le mieux serait When stringchainedechiffreestegala9 = true then...


Je vous remercie de votre réponse et de votre patience

[rv26t]

Bonjour,

exemple: if stringchainedechiffreestegala9 is detected then...

Je pense qu'ici le mieux serait When stringchainedechiffreestegala9 = true then...

Votre demande est un peu flou

Mais une fonction peut vous retourner la présence ou non de la suite de chiffre (réalisé à partir du code fourni par ProgElecT)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function ChiffresPresent(MinChiFre As Integer, StrMot As String) As Boolean
Dim T As Long
 
ChiffresPresent = False
For T = 1 To Len(StrMot) - MinChiFre
    If IsNumeric(Mid$(StrMot, T, MinChiFre)) Then
        ChiffresPresent = True
        Exit For
    End If
Next T
End Function

Appel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Command1_Click()
If ChiffresPresent(9, "cdsljldjqhskdhsqjgdjqsgdjhgfsqhgdfqshqsf62726Y9802UYGHKJDSHKJDSGJ72368T32GYISKJH093UFODJSHKF0ZE9U3YHFUID803RFHDJKHFBKDJhgKJFHDGKJFDJKSH3987R4963YA9YUHEKGF79Z439764376Y") Then
    MsgBox ("Contient au moins une chaine de 9 chiffres ou plus")
' executer les fonctions
End If
End Sub

A+, Hervé.

[ProgElecT]

Salut

Votre demande est un peu flou

Salut rv26t

C'est pourquoi je rajoute ce bout de code, sur un Form 1 Timer, 1 CommandButton et un TextBox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Option Explicit
Dim StrMot As String
Dim MinChiFre As Integer
 
Private Sub Form_Load()
Me.Height = 1815: Me.Width = 4320
Command1.Move 120, 120, 1575, 255: Command1.Caption = "Go"
Text1.Move 120, 480, 3795, 555: Text1.Text = ""
 
StrMot = "cdsljldjqhskdhsqjgdjqsgdjhgfsqhgdfqshqsf62726Y9802UYGHKJDSHKJDSGJ72368T32GYISKJH093UFODJSHKF0ZE9U3YHFUID803RFHDJKHFBKDJhgKJFHDGKJFDJKSH3987R4963YA9YUHEKGF79Z439764376Y"
Timer1.Enabled = False
Timer1.Interval = 1000 ' 1 Sc
MinChiFre = 9
End Sub
 
 
'*********************** fonction d'analyse si numerique (True/false) *********************************************
Private Function stringchainedechiffreestegala9(StrSounmis As String) As Boolean
Dim T As Long
Dim Correction As String
For T = 1 To (Len(StrSounmis) - MinChiFre) + 1
    If IsNumeric(Mid$(StrSounmis, T, MinChiFre)) Then
        Correction = Mid$(StrSounmis, T, MinChiFre)
        Correction = Replace(Correction, " ", "")
        If Len(Correction) = Len(Mid$(StrSounmis, T, MinChiFre)) Then
            'MsgBox Mid$(StrSounmis, T, MinChiFre) & vbNewLine _
            '& "Position : " & T & " à " & ((T + MinChiFre) - 1)
            stringchainedechiffreestegala9 = True
            Exit For
        End If
    End If
Next T
End Function
'******************************************************************************************************************
 
 
 
'------------------ Evenement sur detection d'une entrée utilisateur -----------
Private Sub Text1_Change()
If Len(Text1.Text) >= MinChiFre Then
    If stringchainedechiffreestegala9(Text1.Text) Then
        MsgBox "condition " & MinChiFre & " chiffre atteinte", vbInformation, ""
    End If
End If
End Sub
'-------------------------------------------------------------------------------
'------------------ Evenement sur detection periodique -------------------------
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
If Timer1.Enabled = False Then
    Command1.Caption = "Go"
    Else
    Command1.Caption = "Arreter"
End If
End Sub
Private Sub Timer1_Timer()
If stringchainedechiffreestegala9(StrMot) Then
    Timer1.Enabled = False ' mes fin à la detection
    MsgBox "condition " & MinChiFre & " chiffre atteinte", vbInformation, ""
End If
End Sub
'-------------------------------------------------------------------------------

[rv26t]

C'est pourquoi je rajoute ce bout de code, ...

Salut ProgElecT
Avec ce complément, Secinformatique va pouvoir faire tout ce qu'il souhaite.

[Secinformatique]

Salut ProgElecT
Avec ce complément, Secinformatique va pouvoir faire tout ce qu'il souhaite.

En effet! C'est tout à fait ce qu'il me fallait. Désolé d'avoir été un peu flou.

C'est très complet et exactement comme il me fallait. Je vous ai tous mis des +1.
(je vous remercie d'avoir commenté le code, c'est très clair!)

Résolu