ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Delphi - Simple Parser
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

Delphi - Simple Parser
  #1  
Старый 23.03.2010, 22:34
Adio
Постоянный
Регистрация: 23.05.2005
Сообщений: 617
Провел на форуме:
1262031

Репутация: 71


По умолчанию Delphi - Simple Parser
Вообщем нужен пример простейшого парсера.

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

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

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

  #2  
Старый 23.03.2010, 22:41
cheater_man
Постоянный
Регистрация: 13.11.2009
Сообщений: 437
Провел на форуме:
709575

Репутация: 17
По умолчанию
Цитата:
Сообщение от Adio  
Вообщем нужен пример простейшого парсера.

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

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

Вообще интересно сделать парсер с базой - точно такой же как делают на пхп.
Давай я тебе напишу парсер с БД на с++ или с#.
Давай асю.
 
Ответить с цитированием

  #3  
Старый 23.03.2010, 22:51
Adio
Постоянный
Регистрация: 23.05.2005
Сообщений: 617
Провел на форуме:
1262031

Репутация: 71


По умолчанию
давай свою я тебе напишу
 
Ответить с цитированием

  #4  
Старый 23.03.2010, 23:04
Adio
Постоянный
Регистрация: 23.05.2005
Сообщений: 617
Провел на форуме:
1262031

Репутация: 71


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

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

  #5  
Старый 23.03.2010, 23:37
W!z@rD
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597

Репутация: 836


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

по теме. Регулярки юзай.
и рано тебе еще с БД работать раз не знаешь как текст распарсить.
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
 
Ответить с цитированием

  #6  
Старый 24.03.2010, 00:19
~Shapaev~
Новичок
Регистрация: 24.10.2009
Сообщений: 26
Провел на форуме:
306200

Репутация: 10
По умолчанию
Цитата:
Сообщение от Adio  
Вообщем нужен пример простейшого парсера.

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

Нужно вырезать только текст. и поместить его в переменнюю а дальше уже делать что хочу.
как бы вот на твою строку , если просто можно и без регулярок обходиться.
Код:
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.
 
Ответить с цитированием

  #7  
Старый 24.03.2010, 02:21
Adio
Постоянный
Регистрация: 23.05.2005
Сообщений: 617
Провел на форуме:
1262031

Репутация: 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 ?

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

  #8  
Старый 24.03.2010, 03:27
Gar|k
Постоянный
Регистрация: 20.03.2009
Сообщений: 564
Провел на форуме:
991929

Репутация: 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 года журалы хех )
 
Ответить с цитированием

  #9  
Старый 24.03.2010, 14:01
Adio
Постоянный
Регистрация: 23.05.2005
Сообщений: 617
Провел на форуме:
1262031

Репутация: 71


По умолчанию
Цитата:
Сообщение от W!z@rD  
>>Поставлю плюсы
завязывай смешить, много плюсиков наставишь?
что за тупость? Поражает, люди пишут за плюсы и т.п. если раньше это было мотивацией, то после смены алгоритма сила вашего плюсования = 0.

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

Без плюсов не кто нипишет лень я могу хоть всем подряд из ставить мне как то фиалетово на те плюсы минусы
 
Ответить с цитированием

  #10  
Старый 24.03.2010, 14:05
Adio
Постоянный
Регистрация: 23.05.2005
Сообщений: 617
Провел на форуме:
1262031

Репутация: 71


По умолчанию
Цитата:
Сообщение от Gar|k  
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 года журалы хех )
Да вообщем мне написали на PHP парсер который парсит выдирая текст и всталяя его в бд.

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

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

Вопрос.

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

или мне нужно просто находить определенные теги по ним орентироваться и парсить что между ними ?
 
Ответить с цитированием
Ответ
Страница 1 из 2 1 2 >



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Видео уроки Delphi ][imer С/С++, C#, Delphi, .NET, Asm 48 18.04.2010 09:05
Литература Delphi Sams С/С++, C#, Delphi, .NET, Asm 2 19.03.2010 19:46
Books PSalm69 Избранное 248 27.10.2009 04:52
Virus.Win32.Induc.a – новый вирус для Delphi ErrorNeo Уязвимости 37 26.08.2009 00:33
Virus.Win32.Induc.a или "Снова записки новичка" _=(mac)=_ Защита ОС: вирусы, антивирусы, файрволы. 5 24.08.2009 23:34



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ