| Вопрос: Поиск конкретного предложения | Добавлено: 10.07.06 19:33 |
Автор вопроса:  драчун
|
|
Есть код, который ищет определенно указанное предложение.
Private Sub Command1_Click() findtext pos + 2 End Sub Private Sub findtext(start_pos As Integer) pos = InStr(start_pos, ss, "<title>") en = InStr(start_pos, ss, "</title>") Debug.Print pos Debug.Print en If pos = 0 Then Else Text1.Text = Mid$(ss, pos + 7, en - pos - 7) End If End Sub Почему- то, где переменная en первоначально повторяется число, а по том все нормально. Кто нашел ошибку помогите пожалуста. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #1 | Добавлено: 10.07.06 20:14 |
|
попробуй так:
pos = InStr(start_pos, ss, "<title>"
en = InStr(pos, ss, "</title>" |
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 10.07.06 21:20 |
|
Public Function GetText1(ByVal AllText$, ByVal LeftText$, ByVal RightText$, ByVal Optional start as Long=1) As String
'Возвращает текст между двумя другими текстами с двух сторон Dim s1 as Long, s2 as Long s1 = InStr(start, AllText$, LeftText$, 1) + Len(LeftText$) s2 = InStr(s1, AllText$, RightText$, 1) GetText1 = Mid$(AllText, s1, s2 - s1) End Function |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 10.07.06 21:23 |
|
Private Sub Command1_Click()
Text1 = GetText1 (ss, "<title>", "</title>", pos + 2) End Sub |
||
Страница: 1 |