Здравствуйте, я делаю программу по загрузке страниц из Интернета, и закачке на
ftp.
Возникли некоторые сложности: моё приложение должно заменять старый
Адрес страницы на новый сгенерированный мною, но почему то вставляет его Толька четыре раза страницы нижи, приведён полный листинг программы
Public sen As String
Public dis As String
Public DER As String

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'------------------------'
heck_derectory_if_exsist:
If Directory.Exists("H:\Inetpub\grabbeeer\files\") = True Then
GoTo starter
Else
Directory.CreateDirectory("H:\Inetpub\grabbeeer\files\")
GoTo heck_derectory_if_exsist
End If


'---------------------------'
starter:
Dim begining, eend, i, i2, remtext3, D4, textt As Integer
Dim d, d2, su, sunm As Integer
Dim remtext1, remtext2, texxt2 As String
Dim url As String = "http://news.bbc.co.uk/hi/russian/news/default.stm"
Dim objRequest As WebRequest = System.Net.HttpWebRequest.Create(url)
Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("windows-1251")
Dim sr As New System.IO.StreamReader(objRequest.GetResponse().GetResponseStream(), encoding)
Dim result As String = sr.ReadToEnd()
sr.Close()
'------------------------------------------------'

Dim focus, focus2, texsafer As String

focus = result.Replace("href=""", "href=http://news.bbc.co.uk")
focus2 = focus.Replace(".stm""", ".stm")
texsafer = focus2

Try

starfailt:

Dim ssse, sheck As Integer
ssse = result.IndexOf("</body>")
For ie As Integer = 0 To ssse
If begining >= ssse Then
GoTo finish
End If

'-----------------------start-------------------'
d2 = (begining) + Len("http://")

begining = texsafer.IndexOf("http://", d2)
'-------------------end-------------;

eend = texsafer.IndexOf(">", begining)



i = (eend - begining)
remtext1 = texsafer.Substring(begining, i)


Dim urls As String = remtext1
Dim objRequests As WebRequest = System.Net.HttpWebRequest.Create(urls)
Dim encodings As System.Text.Encoding = System.Text.Encoding.GetEncoding("windows-1251")
Dim srs As New System.IO.StreamReader(objRequests.GetResponse().GetResponseStream(), encodings)
Dim results As String = srs.ReadToEnd()
srs.Close()



Dim arandom As New System.Random
Dim di As Integer

di = arandom.Next(1, 5000)
dis = di.ToString + ".htm"
Dim ff As FileStream = New FileStream("H:\Inetpub\grabbeeer\files\" + dis, FileMode.CreateNew.Append, FileAccess.Write)
Dim srss As StreamWriter = New StreamWriter(ff, System.Text.Encoding.GetEncoding("windows-1251"))
srss.WriteLine(results)
srss.Close()
ff.Close()

DER = texsafer.Replace(remtext1, "http://www.domane.com/files/" + dis)
Next ie

finish:
Table1.Rows(0).Cells(0).Text = DER
Exit Sub
Catch ex As Exception
GoTo starfailt
Catch w As DirectoryNotFoundException
Directory.CreateDirectory("H:\Inetpub\grabbeeer\files\")
GoTo starfailt
Finally

End Try


End Sub