L'argument spécifié n'était pas dans les limites de la plage des valeurs valides
guice11
Messages postés52Date d'inscriptionsamedi 25 novembre 2006StatutMembreDernière intervention17 décembre 2009
-
6 nov. 2009 à 07:57
guice11
Messages postés52Date d'inscriptionsamedi 25 novembre 2006StatutMembreDernière intervention17 décembre 2009
-
11 nov. 2009 à 12:53
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)
guice11
Messages postés52Date d'inscriptionsamedi 25 novembre 2006StatutMembreDernière intervention17 décembre 2009 11 nov. 2009 à 12:53
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 = "<TR bgcolor=""#[a-z0-9]*""><TD align=""left"">[ (.+?) ]</TD></tr>"
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)