Discussion :

[zouhib]

salut tout le monde .
je traite des chaines de caractères que je lis dans un fichier texte et je les récupère pas ce code:

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
 
 Dim str As String
 Dim ID As Integer
 
 Public Function Func(ByVal line As String) As String
 Dim r As New RegularExpressions.Regex("BO_[\s][0-9]+[A-Za-z]", RegularExpressions.RegexOptions.Compiled)
        Return r.Match(line).Groups(3).Value
    End Function
 
    Public Sub lecture(ByVal fichier As String)
        Do
            ligne = SR.ReadLine()
 
        Loop Until (str = ligne.IndexOf("BO_"))
        ID = Func(str)
 
        ''pos = ligne.IndexOf("BO_")
        'ID = ligne.Substring(3, str + 5)
 
        SR.Close()
        SW.WriteLine(ID)
        SW.Close()
    End Sub

par contre ce code me genère une exception quand j'appelle la procédure lecture :

Value cannot be null.
Parameter name: input

je crois que sa viens du paramètre que j'ai mis à l'instance Groups, et c'est pour cela j'aimerai savoir quesqu'on met comme paramètres dans cette instance.
merci de votre aide !!

[amin001]

Salut :
à quel niveau du code tu as cette exception !

[zouhib]

c'est bon j'ai plus d'exception j'aimerai juste savoir quesqu'on pass comme paramètreà match.Groups[]

[zouhib]

en fait j'ai une ligne comme sa :

BO_ 257 Trm_CMD

et pour récupérer le nombre (257 dans ce cas ) jutilise la fonction func:

Code :

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

1
2
3
4
5
 
Public Function Func(ByVal line As String) As String
        Dim r As New RegularExpressions.Regex("BO_[\s][0-9]+[A-Za-z]", RegularExpressions.RegexOptions.Compiled)
        Return r.Match(line).Groups(2).Value
    End Function

par contre quand je veux le récupérer et l'afficher je n'ai rien !

[amin001]

tu as une exception ou un messageBox vide ?
précise SVP !

[zouhib]

je t'ai dis JE N'AI PLUS D'EXCEPTION, j'attends une solution pour ce que j'ai ecris en dernière réponse...

[amin001]

quelle formule de politesse !
ca donne vraiment envie de vous aidez !

[zouhib]

merci ! quelqu'un pourrait m'aider SVP ?

[amin001]

en tout cas essaye ça:

Code :

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

1
2
3
4
5
 
Public Function Func(ByVal line As String) As String
        Dim r As New RegularExpressions.Regex("BO_[\s](?<code>[0-9]+)[A-Za-z]", RegularExpressions.RegexOptions.Compiled)
        Return r.Match(line).GroupsGroups["code"].Value;
    End Function

si ca donne tjrs rien :
- ou bien l'argument line n'est sous cette forme.
- ou bien "BO_[\s](?<code>[0-9]+)[A-Za-z]" n'est pas la bonne regex.