l'argument spécifié n'était pas dans les limites de la plage des valeurs valides

Question

Bonjour à tous,

Alors voilà je bloque depuis une semaine sur une application en VB 2005 au niveau des regex. A la ligne recherchant le "WorkingUrl" dans mon code, ça me met comme erreur "l'argument spécifié n'était pas dans les limites de la plage des valeurs valides. Nom du paramètre : i"

Merci de m'avancer

    Sub LettreChoisieSerie()
        Try
            Me.Cursor = Cursors.WaitCursor
            'je récupère le titre sélectionné + l'url du titre
            Dim result As String
            result = Me.RtHtmlData2.Text

            Dim Pattern As String

            Pattern = "[ (.*?)]"

            '  Pattern = "  [ 7 secondes]
"


            Dim rx As New Text.RegularExpressions.Regex(Pattern, RegexOptions.IgnoreCase)
            Dim matches As MatchCollection = rx.Matches(result)

            Dim index As Integer
            index = Me.LvResults.SelectedIndices(0)
            MessageBox.Show(index)

            Dim WorkingUrl As String
            WorkingUrl = matches(index).ToString
            MessageBox.Show(WorkingUrl)

Renfield · Answer

je piges pas ce que viennent faire ces lignes: 

Dim index As Integer
    index = Me.LvResults.SelectedIndices(0)
    MessageBox.Show(index)

Quel rapport entre ta regexp et  LvResults ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic

guice11 · Answer

Bai je prends l'index que je sélectionnes dans une listview puis ensuite je le traduit en URL grace à la ligne : WorkingUrl = matches(index).ToString

guice11 · Answer

Alors que pr cette procédure, ça marche : (enfin là c'est le début de la procédure) Sub SerieSaisie() Try Me.Cursor = Cursors.WaitCursor 'je récupère le titre sélectionné + l'url du titre Dim result As String result = Me.RtHtmlData.Text Dim Pattern As String Pattern = "[ (.+?) ]" Dim rx As New Text.RegularExpressions.Regex(Pattern, RegexOptions.IgnoreCase) Dim matches As MatchCollection = rx.Matches(result) Dim index As Integer index = Me.LvResults.SelectedIndices(0) 'MessageBox.Show(index) Dim WorkingUrl As String WorkingUrl = matches(index).ToString ' MessageBox.Show(WorkingUrl)

L'argument spécifié n'était pas dans les limites de la plage des valeurs valides

3 réponses

Votre réponse

Discussions similaires