|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.09.2013, 22:41 | #1 |
Пользователь
Регистрация: 18.02.2013
Сообщений: 60
|
парсинг,проблема
Ну в общем есть вот такой текст:
Код HTML:
HTTP/1.1 302 Found Location= https://www.google.ru/search?client=opera&q=css&sourceid=opera&ie=utf-8&oe=utf-8&channel=suggest Cache-Control= private Content-Type= text/html; charset=UTF-8 Set-Cookie= PREF=ID=ab59915634e3aec4:FF=0:NW=1:TM=1379265186:LM=1379265186:S=gaQPpU4gQ2KkN3r3; expires=Tue, 15-Sep-2015 17:13:06 GMT; path=/; domain=.google.ru Set-Cookie= NID=67=MPyOuAKGfYG6K1gd8h685NzyJ_ixVS1Ot0Xsh3CL5o3cc8a_4kQJL4I0PCvu8DVBRYw9ggE7ySP9a_gHjV5wQ6vScSpOeIvBNhTxK3nr-tJm-WprW7D0XWTQV6LAQP7d; expires=Mon, 17-Mar-2014 17:13:06 GMT; path=/; domain=.google.ru; HttpOnly P3P= CP="This is not a P3P policy! See http://www.google.com/support/accounts/bin/answer.py?hl=en&answer=151657 for more info." Date= Sun, 15 Sep 2013 17:13:06 GMT Server= gws Content-Length= 313 X-XSS-Protection= 1; mode=block X-Frame-Options= SAMEORIGIN Alternate-Protocol= 80:quic Вот мой код парсинга: Код HTML:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String Result;
int a;
TStringList* List=new TStringList();
List->Text=Memo1->Text;
for(int i=0;i<List->Count;i++)
{
if(a=List->Strings[i].Pos("Location= ")!=0)
{
Result=List->Text.SubString(a=10,List->Strings[i].Length());
break;
}
}
Edit2->Text=Result;
}
Код HTML:
02 Found Location= https://www.google.ru/search?client=opera&q=css&sourceid=opera&ie=utf-8&oe=utf-8&chann Код HTML:
https://www.google.ru/search?client=opera&q=css&sourceid=opera&ie=utf-8&oe=utf-8&channel=suggest |
15.09.2013, 22:49 | #2 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,342
|
А так?
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
15.09.2013, 22:54 | #3 |
Пользователь
Регистрация: 18.02.2013
Сообщений: 60
|
BDA,да,работает
Сглупил я Нужно было из итой строки сохранять,а я из всего текста Не внимательный... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема с потоками (парсинг всех ссылок сайта) | chex01 | Работа с сетью в Delphi | 13 | 17.04.2013 14:05 |
Парсинг | HSR | Общие вопросы Delphi | 7 | 02.02.2013 06:09 |
парсинг | Pein95 | Работа с сетью в Delphi | 4 | 01.12.2011 02:06 |
Проблема - парсинг | KREGI | Работа с сетью в Delphi | 18 | 22.02.2011 09:03 |
Парсинг. | igor90 | Microsoft Office Excel | 1 | 03.11.2010 02:41 |