Привет всем
Сделал программку по вытаскиванию Линков из html файлов.
Возникли некоторые вопросы.
1Вылетает эксепшэн о том index out of range долго не мог побороть пришлось написать отдельный цикл который сканирует документ на определённый тяг и вставляет значения в переменную Другова цикла.
Но в некоторых документах и это не помогает.
2 Я никак не могу с компоновать сделать меньше


Try
'scaner slov'
Dim srr As StreamReader = File.OpenText("c:\bookmark.htm")
Dim finput As String
Dim fints, finst, fcounterr, nnn As Integer
finput = srr.ReadToEnd()
For nnn = 1 To Len(finput)
fcounterr = TextBox2.Text + Len("</A>")
finst = finput.IndexOf("</A>", fcounterr)
TextBox2.Text = finst
TextBox5.Text = TextBox5.Text + 1
srr.Close()
If TextBox2.Text = -1 Then
fints = TextBox5.Text - 1
TextBox2.Text = "0"
TextBox5.Text = "0"
GoTo obrabothek_htmla
End If
Next
'obrabothek html'
obrabothek_htmla:
Dim sr As StreamReader = File.OpenText("c:\bookmark.htm")
Dim input, texter As String
Dim int, ints, inst, counter, counterr, inter, i, nn, finesher As Integer
input = sr.ReadToEnd()
Dim counters, lenghder, wordcounter As Integer
lenghder = Len(input)
For counters = 1 To fints
counter = TextBox1.Text
ints = input.IndexOf("<A", counter) + Len("<A")
counterr = TextBox2.Text + Len("</A>")
inst = input.IndexOf("</A>", counterr)
i = (inst - ints)
TextBox3.Text = input.Substring(ints, i)
TextBox1.Text = ints
TextBox2.Text = inst
If TextBox2.Text = -1 Or TextBox1.Text = -1 Then
TextBox6.Text = "end"
Exit Sub
End If
sr.Close()

'--------zapis v file--------------------------------------------'
Dim ff As FileStream = New FileStream("c:\bookmark.htm", FileMode.Append, FileAccess.Write)
Dim ss As StreamWriter = New StreamWriter(ff)
Dim textbox As String
textbox = TextBox3.Text
ss.WriteLine("<a" + textbox + "</a>")
ss.WriteLine("<br>")
ss.Close()
ff.Close()
finesher = input.Length
TextBox5.Text = TextBox5.Text + 1

Next
Catch ex As Exception
TextBox7.Text = (ex.ToString)

End Try