Парсер данных с сайта и запись в XML - Visual Basic .NET - Ответ 1868607

        For I As Integer = 213270 To 213288
            Dim R() As String = {"mapwidth, mapheight"}
            Dim L() As String = {"}];"}
            Dim myHttpWebRequest As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://ru.aiondatabase.com/npc/" & I & "/")
            Dim myHttpWebResponse As Net.HttpWebResponse = myHttpWebRequest.GetResponse()
            Dim myStreamReader As New IO.StreamReader(myHttpWebResponse.GetResponseStream, System.Text.Encoding.GetEncoding(1251))
            Dim Str As String = myStreamReader.ReadToEnd()
            Dim Tmp As String = Str.Split(R, StringSplitOptions.None)(1)
            Dim Res As String = R(0) & Tmp.Split(L, StringSplitOptions.None)(0) & L(0)
            TextBox1.Text &= "Якобы распарсено со страницы " & I & vbCrLf & Res & vbCrLf & "===============================================" & vbCrLf
        Next