Moin ich habe eine Recht komplizierte Abfrage auf meinestadt.de hierbei werden abgefragt welche straßen in einer beliebigen stadt exestieren
Mein script lief über 1 Jahr lang problemlos nun hat wohl meinestadt.de eine minimale änderung an der seite vorgenommen und ich finde nun den Fehler in meinm script nicht
Eventuell könnte mir ja jemand behilflich sein
Der fehler lautet
System.ArgumentOutOfRangeException: "Der Index lag außerhalb des Bereichs. Er darf nicht negativ und kleiner als die Sammlung sein."
und findet hier stadt
Über eine hilfe würde ich mich sehr freuen
Mein script lief über 1 Jahr lang problemlos nun hat wohl meinestadt.de eine minimale änderung an der seite vorgenommen und ich finde nun den Fehler in meinm script nicht
Eventuell könnte mir ja jemand behilflich sein
VB.NET-Quellcode
- System.Threading.Thread.Sleep(500)
- Dim Stadt As String = Zufallsstadt
- Dim WebAdress As String = "http://www.meinestadt.de/" & Stadt & "/stadtplan/strassenverzeichnis"
- Dim myWebClient As Net.WebClient = New Net.WebClient()
- myWebClient.Encoding = System.Text.Encoding.UTF8
- myWebClient.Proxy.Credentials = System.Net.CredentialCache.DefaultCredentials
- ' HTML der Buchstaben
- Dim data As String = myWebClient.DownloadString(WebAdress)
- Dim Buchstaben As New List(Of String)
- Dim Strassennamen As New List(Of String)
- 'Alle vorhanden Buchstaben herausfiltern
- Dim re As Regex = New Regex("http:\/\/www.meinestadt\.de\/[^\/]*\/stadtplan\/strassenverzeichnis\/[^>]*>([^<]*)<\/a>", RegexOptions.Multiline)
- Dim mc As MatchCollection = re.Matches(data)
- For Each m As Match In mc
- Buchstaben.Add(m.Groups(1).Value.Trim)
- Next
- 'Zufälliger Buchstabe auswählen
- Dim rndx As Random = New Random
- Dim Buchstabe As String = Buchstaben(rndx.Next(Buchstaben.Count))
- ' HTML der Strassen
- data = myWebClient.DownloadString(WebAdress & "/" & Buchstabe)
- If Buchstaben.Count = 0 Then
- MsgBox("Adresse konnte nicht generiert werden, Bitte wiederholen")
- End If
- re = New Regex("http:\/\/www.meinestadt\.de\/[^\/]*\/stadtplan\/strasse\/[^>]*>([^<]*)<\/a>", RegexOptions.Multiline)
- mc = re.Matches(data)
- For Each m As Match In mc
- Strassennamen.Add(m.Groups(1).Value.Trim)
Der fehler lautet
System.ArgumentOutOfRangeException: "Der Index lag außerhalb des Bereichs. Er darf nicht negativ und kleiner als die Sammlung sein."
und findet hier stadt
Über eine hilfe würde ich mich sehr freuen
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „bigbase“ ()