| |
Удаление HTML-тэгов |
|
| |
Небольшая функция, предназначенная для вырезания HTML-тегов из строки. Я её писал для чата (http://vbnet.ru/chat). Предназначена для использования в ASP. Если Вы хотите использовать её в VB, то нужно добавить объявления переменных.
Function DeleteTags(Source)
pos1 = InStr(Source, "<")
pos2 = 1
Do While (pos1 > 0) And (pos2 > 0)
If pos1 > 0 Then
pos2 = InStr(pos1, Source, ">")
End If
If pos2 = 0 Then
Source = Left(Source, pos1 - 1)
Else
Source = Left(Source, pos1 - 1) & Right(Source, Len(Source) - pos2)
End If
pos1 = InStr(Source, "<")
Loop
DeleteTags = Source
End Function
|
|
| |
|
|
|
|