Не знаю для кого как, но лично меня пугают регулярные выражения, и именно по этому для облегчения своей жизни была создана небольшая функция. Очень облегчает жизнь при парсинге html-текста.
Инструкции
Parsing(TextBox1.Text, "<title>", "</title>", 0)
Если в TextBox'е имеется следующий текст: <title>Zagolovok</t itle> Функция возвратит текст между тегами <title></title>, т.е. Zagolovok.
Ели в TextBox будет несколько таких тегов и вам необходимо вытащить все между ними то поменяйте 0 на нужное вам значение)
Код
Public Function Parsing(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
Dim zPos As Integer, zEnd As Integer, lenStart As Integer = strStart.Length
Dim Result As String
Result = String.Empty
zPos = strSource.IndexOf(strStart, startPos)
zEnd = strSource.IndexOf(strEnd, iPos + lenStart)
If zPos <> -1 AndAlso zEnd <> -1 Then
Result = strSource.Substring(zPos + lenStart, zEnd - (zPos + lenStart))
End If
Return Result
End Function
Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.
x10
.
![[at]](/Content/Themes/Native5x/Images/a.gif){kind=small}
kbyte.ru