Парсер сайтов

@Jinfaa · Регистрация: 05.05.2010

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

Доброго времени суток. У меня возник вопрос. Делаю парсер, вынимает из сайта то что мне надо это без вопросов... Но проблема в следующем, когда "вырезаю" нужное из сайта сохраняю в отдельный файл html.
Мне нужно отредактировать этот файл и потом только чтобы загрузился с помощью компонента Webbrowser. Я как понял нужно в коде искать нужные позиции и добавлять. Но вот как? Я не пойму... Вот код который я написал.

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::FormCreate(TObject *Sender)
{
site="http://site.ru/";
free=IdHTTP1->Get(site);
positionone=free.Pos("<div id=\"projects-list\">");
positiontwo=free.Pos("</div></div></div>");
Memo1->Lines->Add(free.SubString(positionone,positiontwo-positionone));
Memo1->Lines->SaveToFile("C:/test.html");
WebBrowser1->Navigate("C:/test.html");
}

Добавлено через 5 часов 48 минут
Неужто не кто не знает?

@MikeSoft · 03.07.2010, 18:45

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

C++
1
2
Memo1->Lines->SaveToFile("C:/test.html");
WebBrowser1->Navigate("C:/test.html");

Путь у вас задан явно неправильно. Слеш в обратную сторону.
При передаче пути необходимо использовать двойной слеш (т.к. "\" - управляющий символ):

C++
1
String Path = "C:\\test.html";

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

Мне нужно отредактировать этот файл и потом только чтобы загрузился с помощью компонента

Судя из того, что вы написали - вы просто делаете обрезку контента ...
А добавлять минимальные HTML-теги тела кто за вас будет?

Минимальная HTML-страница имеет вид:

HTML5
1
2
3
4
5
6
7
8
9
10
<html>
<head>
<title>Test</title>
</head>
 
<body>
Hello World
</body>
 
</html>

Добавляйте своё содержимое между тегами <body>...</body>

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

Неужто не кто не знает?

Не нужно просто так поднимать тему.
Учтите, что это не служба поддержки и люди не сидят здесь 24 часа в сутки в ожидании ваших вопросов.

@Jinfaa · 03.07.2010, 18:49 **[ТС]**

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

Путь у вас задан явно неправильно. Слеш в обратную сторону.
При передаче пути необходимо использовать двойной слеш (т.к. "\" - управляющий символ):

C++
1
String Path = "C:\\test.html";

Судя из того, что вы написали - вы просто делаете обрезку контента ...
А добавлять минимальные HTML-теги тела кто за вас будет?

Минимальная HTML-страница имеет вид:

HTML5
1
2
3
4
5
6
7
8
9
10
<html>
<head>
<title>Test</title>
</head>
 
<body>
Hello World
</body>
 
</html>

Добавляйте своё содержимое между тегами <body>...</body>

Не нужно просто так поднимать тему.
Учтите, что это не служба поддержки и люди не сидят здесь 24 часа в сутки в ожидании ваших вопросов.

С этим разобрался сделал функцию поиска и замены нужных мне символов. А добавкой обошелся тем что выберал последнюю и первую строку и добавлял что нужно.
Но вот браузер открывает почему-то ссылки в своем окне, а мне хотелось чтобы открывались в браузере по умолчанию. И как можно сделать окно прозрачным? И окошко чтобы было снизу справа. А то стандартные настройки либо сверху слева или по центру. Спасибо.

@MikeSoft · 03.07.2010, 18:57

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

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

Если вам нужно воспользоваться системным браузером по-умолчанию - воспользуйтесь функцией ShellExecute и передайте ей имя фашего файла.

C++
1
2
3
4
5
6
7
8
ShellExecute( NULL, // Индекс родительского окна
  "open", // Код операции
  "http://msdn.at.ua" // URL адрес страницы
  "/",
  NULL, // Строка параметров
  NULL, // Путь текущего каталога
  SW_SHOWNORMAL // Режим отображения
);

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

И как можно сделать окно прозрачным?

Свойство AlphaBlend.

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

И окошко чтобы было снизу справа. А то стандартные настройки либо сверху слева или по центру.

Измените значения Left, Top.

@Jinfaa · 03.07.2010, 19:06 **[ТС]**

Не могу не как разобраться окно расположенно по всему положению права. Занимает все пространство. А хотелось бы чтобы просто окно было снизу справа. Со своими размерами

@MikeSoft · 03.07.2010, 19:10

Jinfaa, вам азы программирования VCL учить нужно. Советую Архангельского.

Ответ на ваш вопрос:

C++
1
2
3
Form1->Align = alNone;
Form1->Left = Screen->Width - Form1->Width - 60;
Form1->Top = Screen->Height - Form1->Height - 60;

@Jinfaa · 03.07.2010, 23:35 **[ТС]**

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

Jinfaa, вам азы программирования VCL учить нужно. Советую Архангельского.

Ответ на ваш вопрос:

C++
1
2
3
Form1->Align = alNone;
Form1->Left = Screen->Width - Form1->Width - 60;
Form1->Top = Screen->Height - Form1->Height - 60;

Да Архангельский есть книжку купил недавно. Прочитал пока все о компонентах. Вот до этого момента видимо не дошел =) спасибо большое!

Добавлено через 4 часа 23 минуты
А как отследить нажатие на ссылку? Т.е. я нажал на ссылке и хочу чтобы она открылась в браузере по умолчанию

@MikeSoft · 04.07.2010, 01:10

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

А как отследить нажатие на ссылку?

Смотря где вы эту ссылку выводите. Чаще всего ссылки выводят на TLabel ... у этого компонента есть событие OnClick. Туда и вписывайте код. Как альтернативу, можно ещё использовать OnMouseUp (можно и OnMouseDown ... но от него не уйдёшь, если ЛКМ ещё зажата, а действие нужно отменить)

@Jinfaa · 04.07.2010, 08:30 **[ТС]**

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

Смотря где вы эту ссылку выводите. Чаще всего ссылки выводят на TLabel ... у этого компонента есть событие OnClick. Туда и вписывайте код. Как альтернативу, можно ещё использовать OnMouseUp (можно и OnMouseDown ... но от него не уйдёшь, если ЛКМ ещё зажата, а действие нужно отменить)

Можете пожалуйста привести пример нажатия на ссылку и открытия в новом окне?

@MikeSoft · 04.07.2010, 12:44

Jinfaa, событие OnClick я описывать не буду, т.к. там нечего описывать. Вставили код, который я писал выше - и все дела.

А вот как заменить OnClick с помощью OnMouseUp я вам напишу:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Label1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
                    int X, int Y)
{
  if ((Button == mbLeft) &&                   // проверяем, какая была зажата клавиша мышки
      (X >= 0) && (X < Label1->Width) &&      // проверяем, соответствует ли положение
      (Y >= 0) && (Y < Label1->Height)) {     // указателя границам контрола
    ShellExecute(NULL, "open", "http://msdn.at.ua/", NULL, NULL, SW_SHOWNORMAL); // выполняем действие
  }
}

@Jinfaa · 09.07.2010, 18:19 **[ТС]**

Я хочу вывести все где встречается

C++
1
2
3
positionone=free.Pos("<div id=\"projects-list\">");
positiontwo=free.Pos("</div></div></div>");
Memo1->Lines->Add(free.SubString(positionone,positiontwo-positionone));

данные positionone и positiontwo. У меня free это AnsiString как можно считать все где встречается эти позиции. У меня на сайте их 30. Хочу все записать в мемо. Незнаю как считать до конца ansistring

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@Jinfaa 1 / 1 / 0 Регистрация: 05.05.2010 Сообщений: 118
	03.07.2010, 19:06 [ТС]
	Не могу не как разобраться окно расположенно по всему положению права. Занимает все пространство. А хотелось бы чтобы просто окно было снизу справа. Со своими размерами 0