Парсинг снизу вверх

@arein1 · Регистрация: 14.02.2013

Студворк — интернет-сервис помощи студентам

Не могу разобраться, как заставить парсер, парсить не сверху вниз ,а снизу вверх.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
Public Function Pars1(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
        Dim strResult As String
        strResult = String.Empty
        iPos = strSource.IndexOf(strStart, startPos)
        iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
        End If
        Return strResult
    End Function

VB.NET
1
2
3
4
5
6
7
 Dim WC As New WebClient
        WC.Encoding = System.Text.Encoding.UTF8
        Dim Strings, Result As String
        Strings = WC.DownloadString("http://сайт.html")
        WC.Dispose()
        Result = Pars1(Strings, TextBox1.Text + "", TextBox2.Text + "")
        TextBox3.Text = (Result)

@Jason · 17.02.2013, 16:23

Сообщение от arein1

Result туда нельзя ставить, так как он не объявлен там + зачем туда Result , если там "Название 6" для поиска.
Или он тогда в Result начнет искать это имя?

Да он будет искать в Result.

Сообщение от arein1

Выдает ошибку

Попробуй посмотреть через MsgBox(Result) правильно ли в нем все.

@arein1 · 17.02.2013, 17:12 **[ТС]**

Провел много тестов, пришел в выводу, что нельзя передать данные в функцию пока она выполняется.
Так как если данные изначально есть в функции, все работает, если их пытаться передать во время работы вылетает ошибка.Ошибка , как я понимаю связанна с тем, что при попытки передать данные ничего не происходит и textbox получается пустой.

Добавлено через 2 минуты
И другой вопрос меня мучает, почему так долго происходит парсинг, там данных на 700 кб,все что в начале находит сразу, но если "Название" в самом конце документа, то ищет больше часа 0_о

Добавлено через 25 минут
MsgBox(Result) - ничего не происходит, сообщение не появляется 0_о

@Jason · 17.02.2013, 17:17

Сообщение от arein1

MsgBox(Result) - ничего не происходит, сообщение не появляется 0_о

Ну 700КБ я думаю врядли появится). Попробуй запиши в файл, и проверь правильность.

@arein1 · 17.02.2013, 17:19 **[ТС]**

VB.NET
1
My.Computer.FileSystem.WriteAllText("C:\4Test.txt", Result, False)

Уже так делал, все правильно.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@arein1 2 / 2 / 0 Регистрация: 14.02.2013 Сообщений: 24
	17.02.2013, 17:12 [ТС]
	Провел много тестов, пришел в выводу, что нельзя передать данные в функцию пока она выполняется. Так как если данные изначально есть в функции, все работает, если их пытаться передать во время работы вылетает ошибка.Ошибка , как я понимаю связанна с тем, что при попытки передать данные ничего не происходит и textbox получается пустой. Добавлено через 2 минуты И другой вопрос меня мучает, почему так долго происходит парсинг, там данных на 700 кб,все что в начале находит сразу, но если "Название" в самом конце документа, то ищет больше часа 0_о Добавлено через 25 минут MsgBox(Result) - ничего не происходит, сообщение не появляется 0_о 0