Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Артем Донцов -

Visual Basic .NET - Строки

Все примеры / Строки

Parsing текстовых данных

Автор: Артем Донцов | добавлено: 24.02.2011, 10:24 | просмотров: 4322 (1+) | комментариев: 0 | рейтинг: *x10
Не знаю для кого как, но лично меня пугают регулярные выражения, и именно по этому для облегчения своей жизни была создана небольшая функция. Очень облегчает жизнь при парсинге 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
Об авторе

Артем Донцов

Нет информации об авторе...

См. также:
Профиль автора
Артем Донцов
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики