| Вопрос: нахождение текста в строке по крайним символам | Добавлено: 07.11.07 05:12 |
Автор вопроса:  Дилетант
|
|
Никак не придумаю, как выловить фрагменты строки по начальному и конечному символу.
Конкретно: пытаюсь сделать кнопку, удаляющую из выделенной части html-кода все <тэги>, независимо от их наполнения. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Алексей black admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #1 | Добавлено: 07.11.07 05:45 |
|
http://kbyte.ru/code/Show.aspx?id=59
|
||
|
Номер ответа: 2 Автор ответа:  Дилетант Вопросов: 13 Ответов: 30 |
Профиль | | #2 | Добавлено: 07.11.07 06:25 |
|
Спасибо за такую быструю реакцию.
Правда, за это время я и сам чегой-то накропал, но у Вас - гораздо короче и изящнее. Ради любопытства привожу свой "опус": Public Function DeleteTags(Src As String)
Dim chrTg As String Dim i As Integer, j As Integer, intLbl1 As Integer, intLbl2 As Integer, intHndl As Integer For i = 1 To Len(Src) chrTg = Mid(Src, i, 1) If chrTg = "<" Then intLbl1 = i intHndl = i For j = 1 To Len(Src) chrTg = Mid(Src, intHndl, 1) If chrTg = ">" Then intLbl2 = intHndl Src = Replace(Src, Mid(Src, intLbl1, ((intLbl2 - intLbl1 + 1))), "" 
 eleteTags = Src
Exit For Else intHndl = intHndl + 1 End If Next j End If Next i End Function |
||
|
Номер ответа: 3 Автор ответа: ДилетантВопросов: 13 Ответов: 30 |
Профиль | | #3 | Добавлено: 07.11.07 07:18 |
|
Однако Ваш пример я пока не смог подогнать, чтобы он при выборе выделения не терял остальной текст. А мой работает и в этом режиме.
(В моём примере маленькая описка: не добавил As String ко всей функции.) |
||
Страница: 1 |