Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
2 / 2 / 0
Регистрация: 28.03.2013
Сообщений: 94

Спарсить определенный кусок текста rss

25.01.2015, 16:25. Показов 1360. Ответов 15
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Имеется обычная новостная rss лента
Например:
XML
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
<item>
<title>
В Минэнерго пообещали не допустить дефицита топлива в России из-за налогового маневра
</title>
<link>http://www.dp.ru/a/2015/01/25/deficit_topliva/</link>
<description>
Минэнерго России не допустит дефицита топлива в стране из-за действия налогового маневра.
</description>
<category>Новости dp.ru</category>
<pubDate>Sun, 25 Jan 2015 15:35:27 +0300</pubDate>
<enclosure url="http://www.dp.ru/images/article/2015/01/25/c80c72ea-272d-4c9c-9454-c27254b6cddb.jpg" type="image/jpeg"/>
<yandex:full-text>
Минэнерго России не допустит дефицита топлива в стране из-за действия налогового маневра.Министр энергетики России Александр Новак заявил, что Минэнерго не допустит дефицит топлива в стране из-за действия налогового маневра."Когда мы рассчитывали с Минфином налоговый маневр, цена нефти была около $100. Вопросы обсуждались, и на тот момент оснований для дефицита топлива не было. Сейчас, с учетом снижения цены, это все нужно посчитать. Конечно, мы не допустим дефицита топлива. Будем оперативно реагировать, если это потребуется", — цитирует министра РИА Новости. Новак не исключил, что правительство может пересмотреть налоговый маневр. В настоящее время эта возможность обсуждается.
</yandex:full-text>
<yandex:genre>message</yandex:genre>
</item>
<item>
<title>
Государство сохранит 50% плюс одна акция "Башнефти"
</title>
<link>
[url]http://www.dp.ru/a/2015/01/25/Gosudarstvu_othodjat_50_i/[/url]
</link>
<description>
Государство сохранит за собой 50% плюс одна акция "Башнефти". Пока как стратегический акционер рассматривается только Башкирия, которая, согласно прогнозам, может получить около 20% акций.
</description>
<category>Новости dp.ru</category>
<pubDate>Sun, 25 Jan 2015 15:16:47 +0300</pubDate>
<enclosure url="http://www.dp.ru/images/article/2015/01/25/59bbdc7e-eda7-4478-8982-da96d2af39f6.jpg" type="image/jpeg"/>
<yandex:full-text>
Государство сохранит за собой 50% плюс одна акция "Башнефти". Пока как стратегический акционер рассматривается только Башкирия, которая, согласно прогнозам, может получить около 20% акций. Государство сохранит за собой в любом случае 50% плюс одна акция "Башнефти" после передачи пакета акций компании в собственность республики Башкирия, сообщает "Интерфакс" со ссылкой на главу Минэнерго Александра Новака.Вопрос о появлении в "Башнефти" какого-либо нового стратегического акционера, кроме республики Башкирия, пока не рассматривается, добавил министр. "Это пока не обсуждается. Речь пока идет о передаче акций в собственность Башкирии. Этот вопрос рассматривался недавно на совещании у Дворковича, где был и президент республики, и представители Росимущества. В целом концепция принята", - сказал он.Ранее СМИ сообщали, что рассматривается следующий вариант распределения акций: если за Росимуществом сохранится 50,1% "Башнефти", то Башкирия может получить до 23,8% компании, еще 6,11% акций компании принадлежит самой "Башнефти" и ее "дочкам", оставшийся пакет находится в свободном обращении.Акции "Башнефти" 9 декабря были переданы в собственность Российской Федерации в лице Росимущества от прежнего владельца — АФК "Система". Таким образом, РФ стала собственником 71,6% уставного капитала компании. Еще 6,1% акций "Башнефти" находится на балансе самой компании и ее "дочек". Еще 15,35% акций принадлежит различным юридическим лицам, оставшиеся 6,4% - физическим лицам.
</yandex:full-text>
<yandex:genre>message</yandex:genre>
</item>
<item>
<title>
Движение по улице Зои Космодемьянской закрыли до 20 марта
</title>
<link>
[url]http://www.dp.ru/a/2015/01/25/zoi_kosmodemjanskoj_closed/[/url]
</link>
<description>
С сегодняшнего дня в связи с ремонтом инженерных сетей закрывается участок дороги на улице Зои Космодемьянской. Движение от Баррикадной уицы до Севастопольской будет закрыто до 20 марта.
</description>
<category>Новости dp.ru</category>
<pubDate>Sun, 25 Jan 2015 14:51:45 +0300</pubDate>
<enclosure url="http://www.dp.ru/images/article/2015/01/25/6f1829be-56c6-4795-9d49-57eb9974f614.jpg" type="image/jpeg"/>
<yandex:full-text>
С сегодняшнего дня в связи с ремонтом инженерных сетей закрывается участок дороги на улице Зои Космодемьянской. Движение от Баррикадной уицы до Севастопольской будет закрыто до 20 марта.Участок дороги на улице Зои Космодемьянской закрывается до 20 марта из-за реконструкции инженерных сетей, сообщает пресс-служба Государственной административно-технической инспекции (ГАТИ) Петербурга. Движение будет закрыто на участке от Баррикадной улицы до Севастопольской, включая перекрестки. Работы проводит "Водоканал".  Помимо этого, до 31 марта будет ограничено движение по улице Комиссара Смирнова от Лесного проспекта до улицы Академика Лебедева.
</yandex:full-text>
<yandex:genre>message</yandex:genre>
</item>
<item>
<title>
Петербург отмечает Татьянин день в Смольном соборе и на Зимнем балу
</title>
<link>
[url]http://www.dp.ru/a/2015/01/25/V_Peterburge_otmechajut_Tat/[/url]
</link>
<description>
В Петербурге празднуют День российского студентчества. В Смольном соборе прошла церемония вручения Почетного знака святой Татианы. Награду получили 58 студентов и наставников. Также в Морском корпусе Петра Великого пройдет Зимний бал.
</description>
<category>Новости dp.ru</category>
<pubDate>Sun, 25 Jan 2015 14:38:41 +0300</pubDate>
<enclosure url="http://www.dp.ru/images/article/2015/01/25/cecd4a12-9952-48ca-8f65-5f1e176ddbec.jpg" type="image/jpeg"/>
<yandex:full-text>
В Петербурге празднуют День российского студентчества. В Смольном соборе прошла церемония вручения Почетного знака святой Татианы. Награду получили 58 студентов и наставников. Также в Морском корпусе Петра Великого пройдет Зимний бал.В воскресенье, 25 января Петербурге отмечают день российского студенчества.В Смольном соборе, который считается главным студенческим храмом России, состоялось богослужение и церемония вручения Почетного знака святой Татианы – покровительницы российского студенчества, сообщает пресс-служба губернатора Петербурга. Георгий Полтавченко вручил Почетный знак святой Татианы наставникам молодежи и студентам. Всего в этом году награды удостоены 58 человек. В церемонии приняли участие губернатор Георгий Полтавченко, председатель Законодательного Собрания Санкт-Петербурга Вячеслав Макаров и ректоры петербургских вузов, уточняется в сообщении.Также известно, какие мероприятия состоятся в Татьянин день после богослужения. С 16:00 до 22:00 в Морском корпусе Петра Великого пройдет Зимний бал, а в 18:00 в одном из клубов города стартует интерактивная концертная программа и селфи-конкурс "Формула первых", - сообщает пресс-служба комитета по молодежной политике и связи с общественными организациями.День святой мученицы Татьяны отмечался в России с 1755 года, когда по указу императрицы Елизаветы Петровны был основан Московский университет. Первоначально "Татьянин день" был днем рождения университета, а позднее стал праздником всей учащейся молодежи. В Петербурге празднование дня святой Татьяны возобновлено в 1997 году. С 2011 года церемония награждения знаком св. Татьяны 25 января по традиции совершается в Смольном соборе - главном храме всех учебных заведений Петербурга.
</yandex:full-text>
<yandex:genre>message</yandex:genre>
</item>
<item>
<title>
Экстренное заседание Украина-НАТО по событиям в Мариуполе пройдет 26 января
</title>
<link>
[url]http://www.dp.ru/a/2015/01/25/JEkstrennoe_zasedanie_Ukra/[/url]
</link>
<description>
На понедельник, 26 января назначено экстренное заседание комиссии Украина-НАТО, связанная с трагическими событиями в Мариуполе. На заседании обсудят ситуацию и дальнейшие действия.
</description>
<category>Новости dp.ru</category>
<pubDate>Sun, 25 Jan 2015 14:12:00 +0300</pubDate>
<enclosure url="http://www.dp.ru/images/article/2015/01/25/36303d53-e447-4795-8806-68fe5806e770.jpg" type="image/jpeg"/>
<yandex:full-text>
На понедельник, 26 января назначено экстренное заседание комиссии Украина-НАТО, связанная с трагическими событиями в Мариуполе. На заседании обсудят ситуацию и дальнейшие действия. Экстренное заседание Комиссии Украина-НАТО по событиям в Мариуполе назначено на 26 января, сообщает ТАСС со ссылкой на заместителя главы миссии Украины при НАТО по политическим вопросам Егора Божка. Созыв экстренного заседания перед генеральным секретарем НАТО инициировал глава миссии Украины при НАТО Игорь Долгов. Украина ведет с НАТО "активный обмен информацией о развитии событий", уточнил Егор Божок. В субботу, 24 января, в результате обстрела Мариуполя погибли 30 человек, более 100 были ранены. Ополченцы ДНР и украинские силовики обвиняют в случившемся друг друга. В тот же вечер Захарченко пояснил, что войска ДНР не намерены штурмовать Мариуполь.Президент Украины Петр Порошенко объявил 25 января днем траура по погибшим в Мариуполе.
</yandex:full-text>
<yandex:genre>message</yandex:genre>
</item>
<item>
<title>
Бывший гендиректор "Зенита" Илья Черкасов рассказал о долгах команды при Виталии Мутко
</title>
<link>http://www.dp.ru/a/2015/01/25/zenit_dengi/</link>
<description>
Илья Черкасов, занимавший пост генерального директора футбольного клуба "Зенит" с 2002 по 2006 годы, рассказал о больших долгах команды во время президентства Виталия Мутко, который сейчас занимает должность министра спорта России.
</description>
<category>Новости dp.ru</category>
<pubDate>Sun, 25 Jan 2015 13:51:33 +0300</pubDate>
<enclosure url="http://www.dp.ru/images/article/2015/01/25/b9888ffa-0707-4c0e-b2b1-b5f899bb90b6.jpg" type="image/jpeg"/>
<yandex:full-text>
Илья Черкасов, занимавший пост генерального директора футбольного клуба "Зенит" с 2002 по 2006 годы, рассказал о больших долгах команды во время президентства Виталия Мутко, который сейчас занимает должность министра спорта России.Виталий Мутко во время президентства в футбольном клубе "Зенит" (1997-2003) занимал для команды деньги у бандитов. Об этом в интервью Геннадию Орлову рассказал бывший генеральный директор "Зенита" Илья Черкасов. Интервью, которое входит в книгу "Вертикаль "Зенита". Четверть века вместе", опубликовано на портале "Спорт уик-энд". Выход самой книги запланирован на март 2015 года. "Были довольно значительные долги, которые возникли, когда Виталий Леонтьевич [Мутко] ходил по друзьям, знакомым, бандитам даже, чтобы найти деньги для команды. Не обо всех этих обязательствах мы узнали сразу. Во многом из-за этого "поехал" предварительный бюджет", — рассказывает Черкасов. По его словам, когда владелец банкирского дома "Санкт-Петербург" Владимир Коган приобрел "Зенит", он думал, что клуб обойдется банкирскому дому в $5 млн в год. В итоге в первый год эта цифра оказалась в четыре раза больше и составила $20 млн. "На третий год нашего пребывания в "Зените" он составлял уже $45 млн. К финальной сделке по продаже клуба "Газпрому" я отношения не имел, но уверен, что Володя [Коган] и Давид [Трактовенко] в этом проекте не потеряли", — продолжает Черкасов. Заслуга Виталия Мутко заключается в том, что он смог привлечь к финансированию клуба Петра Родионова, занимавшего тогда пост гендиректора "Лентрансгаза", увтерждает Черкасов. "Мы решали конкретную задачу — одеть город в шарфики и капитализировать клуб и его историю. И с этой задачей мы справились. В "Газпром" мы "Зенит" передали в очень хорошем состоянии. И надо сказать, что в этом тоже немаая заслуга Виталия Мутко", — сказал он. "Газпром" выкупил контрольный пакет акций "Зенита" у банкирского дома "Санкт-Петербург" в 2005 году. После сделки, сумма которой, по оценкам экспертов, составила около $40 млн, доля газового монополиста превысила 90%. Сейчас клуб принадлежит структурам "Газпрома". Виталий Мутко с мая 2012 года занимает пост министра спорта РФ.
</yandex:full-text>
<yandex:genre>message</yandex:genre>
</item>
<item>
В переменной A хранится слово которое нам нужно найти, например слово "Санкт-Петербург", с помощью обычного парсера мы находим это слово, но как взять весь кусок новости которая содержит это слово.
Например это слово содержится в этой части
XML
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<item>
<title>
Петербург отмечает Татьянин день в Смольном соборе и на Зимнем балу
</title>
<link>
[url]http://www.dp.ru/a/2015/01/25/V_Peterburge_otmechajut_Tat/[/url]
</link>
<description>
В Петербурге празднуют День российского студентчества. В Смольном соборе прошла церемония вручения Почетного знака святой Татианы. Награду получили 58 студентов и наставников. Также в Морском корпусе Петра Великого пройдет Зимний бал.
</description>
<category>Новости dp.ru</category>
<pubDate>Sun, 25 Jan 2015 14:38:41 +0300</pubDate>
<enclosure url="http://www.dp.ru/images/article/2015/01/25/cecd4a12-9952-48ca-8f65-5f1e176ddbec.jpg" type="image/jpeg"/>
<yandex:full-text>
В Петербурге празднуют День российского студентчества. В Смольном соборе прошла церемония вручения Почетного знака святой Татианы. Награду получили 58 студентов и наставников. Также в Морском корпусе Петра Великого пройдет Зимний бал.В воскресенье, 25 января Петербурге отмечают день российского студенчества.В Смольном соборе, который считается главным студенческим храмом России, состоялось богослужение и церемония вручения Почетного знака святой Татианы – покровительницы российского студенчества, сообщает пресс-служба губернатора Петербурга. Георгий Полтавченко вручил Почетный знак святой Татианы наставникам молодежи и студентам. Всего в этом году награды удостоены 58 человек. В церемонии приняли участие губернатор Георгий Полтавченко, председатель Законодательного Собрания Санкт-Петербурга Вячеслав Макаров и ректоры петербургских вузов, уточняется в сообщении.Также известно, какие мероприятия состоятся в Татьянин день после богослужения. С 16:00 до 22:00 в Морском корпусе Петра Великого пройдет Зимний бал, а в 18:00 в одном из клубов города стартует интерактивная концертная программа и селфи-конкурс "Формула первых", - сообщает пресс-служба комитета по молодежной политике и связи с общественными организациями.День святой мученицы Татьяны отмечался в России с 1755 года, когда по указу императрицы Елизаветы Петровны был основан Московский университет. Первоначально "Татьянин день" был днем рождения университета, а позднее стал праздником всей учащейся молодежи. В Петербурге празднование дня святой Татьяны возобновлено в 1997 году. С 2011 года церемония награждения знаком св. Татьяны 25 января по традиции совершается в Смольном соборе - главном храме всех учебных заведений Петербурга.
</yandex:full-text>
<yandex:genre>message</yandex:genre>
</item>
то нужно спарсить именно от <item> до </item> если там имеется нужное слово.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.01.2015, 16:25
Ответы с готовыми решениями:

Взять определенный кусок текста из HTML
Приветствую снова. Мне нужно взять кусок из текста, и вставить к примеру в TextBox1 Нужно, взять отсюда то, что идет после...

Вырезать определенный кусок текста
Здравствуйте! Есть такой текст, имя файла 1.html (вводится в enter source file): &lt;!DOCTYPE html&gt; &lt;html lang=&quot;en&quot;...

Вывести определенный кусок текста!
с сайта вывел html код, залогиневшегося пользователя на сайте. Надо найти часть текста 'Баланс', и вывести от туда только числа допустим...

15
0 / 0 / 0
Регистрация: 04.03.2014
Сообщений: 4
25.01.2015, 16:44
Регуляркой можно.
0
399 / 318 / 53
Регистрация: 14.08.2014
Сообщений: 1,010
25.01.2015, 17:00
Мало информации Вы дали. Совершенно неясно чем парсите, что должно быть на выходе, чистый текст или текст с HTML. В общем могу предложить такой вариант.
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
  Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String) As String
        Dim iPos As Integer, iEnd As Integer
        Dim strResult As String
        iPos = strSource.IndexOf(strStart, 0)
        iEnd = strSource.IndexOf(strEnd, iPos + strStart.Length)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + strStart.Length, iEnd - (iPos + strStart.Length))
        End If
        Return strResult
    End Function
 
'Поскольку я без понятия чем Вы парсите, информацию Вы не дали я подразумеваю, что вы уже сделали запрос и получили 'ответ в виде HTML страницы. Пусть содержимое страницы хранится в переменной htmlPage. Далее выдергиваем из страницы то, что нужно...
 
Dim A As String = "Санкт-Петербург"
 
Dim item As String
item = pars(htmlPage, "<item>", "</item>")
 
Dim intpos As Integer
intpos = InStr(massString, A)
If intpos > 0 Then ... 'сохраняете или обрабатываете дальше.
1
2 / 2 / 0
Регистрация: 28.03.2013
Сообщений: 94
25.01.2015, 17:36  [ТС]
Вообще замысел такой, в файле хранятся слова для поиска, ищем нужные новости, выводим их. Парсил обычной функцией парса, но понял что она не подходит.

Добавлено через 31 минуту
Что должна содержать переменная massString?
0
399 / 318 / 53
Регистрация: 14.08.2014
Сообщений: 1,010
25.01.2015, 17:53
DD_DD, да, забыл.
VB.NET
1
massString = item
Или просто item за место massString
0
2 / 2 / 0
Регистрация: 28.03.2013
Сообщений: 94
25.01.2015, 19:41  [ТС]
Что то он не ищет слово, а просто парсит первый item
0
399 / 318 / 53
Регистрация: 14.08.2014
Сообщений: 1,010
25.01.2015, 20:00
DD_DD, ну так, а задача какая стояла?
Цитата Сообщение от DD_DD Посмотреть сообщение
...то нужно спарсить именно от <item> до </item> если там имеется нужное слово.
В итем содержится слово, поэтому парсится весь дом от <item> до </item>.
0
2 / 2 / 0
Регистрация: 28.03.2013
Сообщений: 94
25.01.2015, 20:02  [ТС]
Я про то что, слова этого нету ,а итем парсится т.е при любом раскаде парсит первый итем.
0
399 / 318 / 53
Регистрация: 14.08.2014
Сообщений: 1,010
25.01.2015, 20:24
DD_DD, а можете весь код показать? И сайт который парсим.
Вероятно где-то ошибка. Не видя всего кода я больше ничего подсказать не смогу.
0
2 / 2 / 0
Регистрация: 28.03.2013
Сообщений: 94
25.01.2015, 22:37  [ТС]
VB.NET
1
2
3
4
5
6
7
8
9
10
11
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim url As String = "http://www.dp.ru/rss/"
        htmlPage = Pars(Post(url), "<rss", "</rss>").ToString()
        MsgBox(htmlPage)
        Dim A As String = "Россия"
        Dim item As String
        item = Pars(htmlPage, "<item>", "</item>")
        Dim intpos As Integer
        intpos = InStr(item, A)
        MsgBox(item)
    End Sub
0
0 / 0 / 0
Регистрация: 04.03.2014
Сообщений: 4
26.01.2015, 05:01
Написал свою версию, как бы это было на дельфинах. Перевести сможете?
Грубо гово
Delphi
1
2
3
4
5
6
7
8
9
10
var
S,item: string;
while findend do //В цикле
begin
item:=Pars(<item>,S,</item>); // Парсим содержимое первого <item>
if Pos('Петербург', item)<>0 then  // Смотрим встречается ли в нем искомое слово
findend:=true // Если да, возводим флаг для выходы из цикла 
 else
S  := StringReplace(S, item, '',[rfReplaceAll, rfIgnoreCase]); // В противном случае вырезаем спарсенный кусок из общего текста
end;
0
399 / 318 / 53
Регистрация: 14.08.2014
Сообщений: 1,010
27.01.2015, 10:53
DD_DD, DD_DD, что происходит в третьей строке?
Так же не вижу условия
VB.NET
1
If intpos > 0 Then ...
0
COM‐пропагандист
 Аватар для Замабувараев
936 / 785 / 149
Регистрация: 18.12.2014
Сообщений: 2,256
Записей в блоге: 4
27.01.2015, 12:53
Совсем уже поехали, xml регулярками разбирать. Для xml есть своя библиотека System.Xml.dll.
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
' Xml-документ
Dim rssDoc As XmlDocument = New XmlDocument()
' Загрузить документ из строки
rssDoc.LoadXml("строка с rss")
' Выбрать все узлы item и обойти
For Each objNode As XmlNode In rssDoc.SelectNodes("rss/channel/item")
    ' В objNode.InnerText содержится весь текст, что нужен
    ' с ним можно делать всё, например, искать текст
    If objNode.InnerText.Contains("текст для поиска") Then
        ' Что-нибудь
    End If
Next
2
2 / 2 / 0
Регистрация: 28.03.2013
Сообщений: 94
27.01.2015, 14:52  [ТС]
А что нужно указывать в 4 строке? Что то не могу понять ( rssDoc.LoadXml("строка с rss") )

Добавлено через 7 минут
А все кажись понял.
0
COM‐пропагандист
 Аватар для Замабувараев
936 / 785 / 149
Регистрация: 18.12.2014
Сообщений: 2,256
Записей в блоге: 4
27.01.2015, 15:01
Как что. Сам текст rss.
В XmlDocument можно загрузить xml из строки или из потока.
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
Imports System.Xml
Imports System.IO
Imports System.Text
Imports System.Net
 
Public Module Main
 
    Public Function Main(ByVal Args() As String) As Integer
        ' Xml-документ
        Dim rssDoc As XmlDocument = New XmlDocument()
        ' Запрос к сайту с rss
        Dim request As WebRequest = WebRequest.Create(Args(0))
        ' Получить ответ от сайта
        Dim response As WebResponse = request.GetResponse()
        ' Загрузить документ из потока
        rssDoc.Load(response.GetResponseStream())
        ' Обходим все узлы "item"
        For Each objNode As XmlNode In rssDoc.SelectNodes("rss/channel/item")
            Dim objElement As XmlElement = objNode.Item("title")
            If objElement IsNot Nothing Then
                Console.WriteLine("Заголовок {0}", objElement.InnerText)
            End If
            objElement = objNode.Item("description")
            If objElement IsNot Nothing Then
                Console.WriteLine("Описание {0}", objElement.InnerText)
            End If
            objElement = objNode.Item("pubDate")
            If objElement IsNot Nothing Then
                Console.WriteLine("Дата {0}", objElement.InnerText)
            End If
            objElement = objNode.Item("link")
            If objElement IsNot Nothing Then
                Console.WriteLine("Ссылка {0}", objElement.InnerText)
            End If
            Console.WriteLine()
        Next
    End Function
End Module
Вот и всё, rss-читалка готова.
3
2 / 2 / 0
Регистрация: 28.03.2013
Сообщений: 94
27.01.2015, 21:01  [ТС]
А как можно реализовать что бы слово которое не ищем не было строго к регистру, и что бы можно было использовать маски для поиска?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
27.01.2015, 21:01
Помогаю со студенческими работами здесь

Взять определенный кусок текста из HTML
Приветствую снова. Мне нужно взять кусок из текста, и вставить к примеру в TextBox1 Нужно, взять отсюда то, что идет после...

TRegExpr: вывести в TMemo определённый кусок текста из текстового файла
Здравствуйте! Объясните,пожалуйста,как можно с помощью TRegExpr вывести в TMemo определённый кусок текста из текстового файла? В google...

Библиотека itextsharp: вырезать определенный кусок текста из PDF и поместить на форму
Использую данную библиотеку для работы с PDF файлами! Создавать файлы и объединять получается, а вот как вырезать определенный кусок текста...

Спарсить определенный аттрибут
Вот есть такой аттрибут xyz=&quot;486.33145,1173.7235,433.16763&quot; Как сделать чтобы спарсить под запятой, чтобы по отдельности взять...

Получить определённый кусок из пути файла
Добрый день ув. пользователи! Подскажите пожалуйста, как обрезать правильно строку ? Есть строка типа ...


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

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru