Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
8 / 8 / 1
Регистрация: 16.03.2013
Сообщений: 30
1

Парсер вк

16.03.2013, 14:40. Просмотров 1373. Ответов 5
Метки нет (Все метки)

Столкнулся с такой проблемой.
Парсер не ищет нужное вхождение в сложных тегах, где используются кавычки.
Возможно, я делаю что то не так, подскажите в чем проблема.
0
Миниатюры
Парсер вк  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2013, 14:40
Ответы с готовыми решениями:

Парсер на С
вопшем есть файл с текстом..... в етом файле есть какие даные(мусор)...и есть дни:...

Парсер
Привет всем Как можно спарсить инвентари игр (либо игры) со страницы вида...

Парсер
Здравствуйте. Подскажите, пожалуйста, имеется страница с такими строками {"name":"Electronics &...

Парсер
Между этими тэгами есть текст как его прописать в memo1? <p...

5
8 / 8 / 1
Регистрация: 16.03.2013
Сообщений: 30
16.03.2013, 15:13  [ТС] 2
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For I As Integer = TextBox1.Text To TextBox2.Text
            Dim R() As String = {"<div class=" & Chr(34) & "labeled fl_l" & Chr(34) & ">"}
 
            'Dim R2() As String = {"Вторая строка"}
            'Dim R3() As String = {"Третья"}
 
            Dim L() As String = {"</div>"}
            Dim myHttpWebRequest As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://vk.com/id" & I)
            Dim myHttpWebResponse As Net.HttpWebResponse = myHttpWebRequest.GetResponse()
            Dim myStreamReader As New IO.StreamReader(myHttpWebResponse.GetResponseStream, System.Text.Encoding.UTF8)
            Dim Str As String = myStreamReader.ReadToEnd()
            If InStr(Str, R(0)) <> 0 Then
                Dim Tmp As String = Str.Split(R, StringSplitOptions.None)(1)
                'Dim Res As String = R(0) & Tmp.Split(L, StringSplitOptions.None)(0) & L(0)
                Dim Res As String = Tmp.Split(L, StringSplitOptions.None)(0)
                TextBox3.Text &= "id" & I & vbCrLf & Res & vbCrLf & "===========================================" & vbCrLf
            Else
                TextBox3.Text &= "id" & I & "ничего не найдено" & vbCrLf
 
                'Else
                'TextBox1.Text &= "На странице " & I & " не найдено искомое вхождение. Ща попробуем с другим..." & vbCrLf
                'If InStr(Str, R2(0)) <> 0 Then
                'Dim Tmp As String = Str.Split(R2, StringSplitOptions.None)(1)
                'Dim Res As String = R2(0) & Tmp.Split(L, StringSplitOptions.None)(0) & L(0)
                'TextBox1.Text &= "Якобы распарсено со страницы " & I & vbCrLf & Res & vbCrLf & "===============================================" & vbCrLf
                'Else
                'TextBox1.Text &= "На странице " & I & " не найдено и второе искомое вхождение. Ща попробуем третье..." & vbCrLf
                ' If InStr(Str, R3(0)) <> 0 Then
                'Dim Tmp As String = Str.Split(R3, StringSplitOptions.None)(1)
                'Dim Res As String = R3(0) & Tmp.Split(L, StringSplitOptions.None)(0) & L(0)
                'TextBox1.Text &= "Якобы распарсено со страницы " & I & vbCrLf & Res & vbCrLf & "===============================================" & vbCrLf
 
            End If
            'End If
            'End If
 
        Next
    End Sub
 
 
End Class
0
497 / 468 / 86
Регистрация: 25.12.2011
Сообщений: 1,123
16.03.2013, 18:18 3
Будующее чудо?)
Почему не использовать бы API?
0
1561 / 1440 / 303
Регистрация: 01.10.2011
Сообщений: 2,636
16.03.2013, 18:19 4
Jason,

Не по теме:

если проблемы начались на такой стадии, то будущего не будет:D

1
Jason
16.03.2013, 18:25
  #5

Не по теме:

Цитата Сообщение от edward_freedom Посмотреть сообщение
если проблемы начались на такой стадии, то будущего не будет
Ну да. :D

0
8 / 8 / 1
Регистрация: 16.03.2013
Сообщений: 30
18.03.2013, 19:22  [ТС] 6
Цитата Сообщение от edward_freedom Посмотреть сообщение
Jason,

Не по теме:

если проблемы начались на такой стадии, то будущего не будет:D

А помочь никак да?

Цитата Сообщение от Jason Посмотреть сообщение
Будующее чудо?)
Почему не использовать бы API?
Возможно API лучше, но я пока так делаю.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2013, 19:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Парсер JS
Добрый день, подскажите плииз... Пишу &quot;чистилку&quot;/сжималку кода. Есть код (в...

Парсер
Хочу понять и изучить парсинг, но в интернете есть несколько вариантов библиотек, либо встроенные...

Парсер
Есть xml база вида: &lt;country-list&gt; &lt;header&gt; &lt;name&gt;Наименование&lt;/name&gt; &lt;fullname&gt;Полное...

Парсер
Здравствуйте, уважаемые программисты! в книге нашла код анализатора выражений, но не получается...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.