Delphi - Simple Parser — ANTICHAT Forum

Delphi - Simple Parser

23.03.2010, 22:34

Adio

Постоянный

Регистрация: 23.05.2005

Сообщений: 617

С нами: 11035659

Репутация: 71

Delphi - Simple Parser

Вообщем нужен пример простейшого парсера.

К примеру есть кода в <div>Hello Message</div>

Нужно вырезать только текст. и поместить его в переменнюю а дальше уже делать что хочу.

Вообще интересно сделать парсер с базой - точно такой же как делают на пхп.

𝕏 Twitter Reddit Telegram Копировать ссылку

23.03.2010, 22:41

cheater_man

Постоянный

Регистрация: 13.11.2009

Сообщений: 437

С нами: 8680278

Репутация: 17

Цитата:

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

Давай я тебе напишу парсер с БД на с++ или с#.
Давай асю.

23.03.2010, 23:04

Adio

Постоянный

Регистрация: 23.05.2005

Сообщений: 617

С нами: 11035659

Репутация: 71

Вообще интересно бы посмотреть или понять как это делать .. может кто нибуть может по пунктам расписать ? что нужно делать ? на делфи ? . Поставлю плюсы

Задача парсить что нибуть простое и заносить в базу

23.03.2010, 23:37

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

С нами: 10653446

Репутация: 836

>>Поставлю плюсы
завязывай смешить, много плюсиков наставишь?
что за тупость? Поражает, люди пишут за плюсы и т.п. если раньше это было мотивацией, то после смены алгоритма сила вашего плюсования = 0.

по теме. Регулярки юзай.
и рано тебе еще с БД работать раз не знаешь как текст распарсить.

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

24.03.2010, 14:01

Adio

Постоянный

Регистрация: 23.05.2005

Сообщений: 617

С нами: 11035659

Репутация: 71

Цитата:

Сообщение от W!z@rD

Без плюсов не кто нипишет лень

я могу хоть всем подряд из ставить мне как то фиалетово

на те плюсы минусы

24.03.2010, 00:19

~Shapaev~

Новичок

Регистрация: 24.10.2009

Сообщений: 26

С нами: 8708952

Репутация: 10

Цитата:

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

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

Код:

var s:string;
begin
s:='<div>Hello Message</div>';
s:=copy(s,pos('<div>',s)+length('<div>'),pos('</div>',s)-length('</div>'));
write(s);

end.

24.03.2010, 02:21

Adio

Постоянный

Регистрация: 23.05.2005

Сообщений: 617

С нами: 11035659

Репутация: 71

Цитата:

Сообщение от ~Shapaev~

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

Код:

var s:string;
begin
s:='<div>Hello Message</div>';
s:=copy(s,pos('<div>',s)+length('<div>'),pos('</div>',s)-length('</div>'));
write(s);

end.

А как из переменной S занести в базу ? MYSQL ?

Есть какой нибуть мануал для чайников по работе с базой ? начиная от вставки и т д ?

24.03.2010, 03:27

Gar|k

Постоянный

Регистрация: 20.03.2009

Сообщений: 564

С нами: 9023100

Репутация: 395

Adio нафига тебе в делфе MySQL? (набери в поиске - delphi mysql я быстро нашел статейку) скачай DirectMysqlObjects... код примера что-то типа

Код:

uses uMySqlVio, uMysqlCT, uMysqlClient, uMysqlHelpers;

var
  MySQLClient: TMySQLClient;
  MySQLResult: TMysqlResult;

begin
 MySQLClient := TMySQLClient.Create;
        if not MySQLClient.connect('localhost', 'root', '', 'kosteg', 3306, '', false, 0) then ShowMessage('connected error!');

MySQLResult:=MySQLClient.query('select f from pokup limit 1',true,res);
ShowMessage(MySQLResult.FieldValueByName('f'));

 MySQLClient.Free;
       if MySQLResult <> nil then MySQLResult.Free;
end.

это притом что я delphi не перевариваю гргргр...

насчет парса - используй регулярные выражения они для того и придуманы. А вообще для каждой задачи свое средство если тебе нужно много-много текста анализировать и делать отчеты (хоть в бд) под unix лично я бы использовал perl (есть стаааарая разработка - проходится по сайту xakep.ru и собирает все текстовые версии жуналов красиво в бд... ну и интерфейс на php типа архива с поиском. где-то у меня лежит дамп этой базы с 99 года журалы хех )

#10

24.03.2010, 14:05

Adio

Постоянный

Регистрация: 23.05.2005

Сообщений: 617

С нами: 11035659

Репутация: 71

Цитата:

Сообщение от Gar|k

Код:

uses uMySqlVio, uMysqlCT, uMysqlClient, uMysqlHelpers;

var
  MySQLClient: TMySQLClient;
  MySQLResult: TMysqlResult;

begin
 MySQLClient := TMySQLClient.Create;
        if not MySQLClient.connect('localhost', 'root', '', 'kosteg', 3306, '', false, 0) then ShowMessage('connected error!');

MySQLResult:=MySQLClient.query('select f from pokup limit 1',true,res);
ShowMessage(MySQLResult.FieldValueByName('f'));

 MySQLClient.Free;
       if MySQLResult <> nil then MySQLResult.Free;
end.

Да вообщем мне написали на PHP парсер который парсит выдирая текст и всталяя его в бд.

Просто хотел попробывать написать его на Delphi.. я в програмирование не спец но по мануалам разобраться написать подправить могу.

Вот и ищю что то подобное.. знаю что на PHP легче и быстрей но все таки хочеться что бы выглядело как софт..

так чисто для себя .. заодно и научюсь чемуто.

Вопрос.

Как в делфи найти что парсить :? к примеру страница кода то большая ?

или мне нужно просто находить определенные теги по ним орентироваться и парсить что между ними ?

Создать сделку

Мои сделки

Сделка

ESCROW ADMIN PANEL