Парс - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе
14.05.2012, 10:43
#1
Разведчик
Регистрация: 30.09.2010
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Парс
Всем привет. Пишу программу и столкнулся с проблемой, суть проблеммы в том что мне надо парсить текст с страницы, но не 1, а пока не закончится то, что мне надо спарсить.
Допустим у меня на страницы коментарии и мне надо все их спарсить, но парсит только 1 коментарий.
Пробовал процедурой парса:
Цитата:
function Pars(T_, ForS, _T: string): string;
var
a, b: integer;
begin
Result := '';
if (T_ = '') or (ForS = '') or (_T = '') then
Exit;
a := Pos(T_, ForS);
if a = 0 then
Exit
else
a := a + Length(T_);
ForS := Copy(ForS, a, Length(ForS) - a + 1);
b := Pos(_T, ForS);
if b > 0 then
Result := Copy(ForS, 1, b - 1);
end;
Но она парсит один комент.
Реализовал так:
Цитата:
Memo1.Lines.Add(Pars('span>',Page,'</'));
Как по данному парсингу реализовать цикл? что бы парсил до тех пор, пока не кончится текст.
Так же мне кто то показывал здесь такой пример:
Цитата:
var
s,proxy:string;
begin
s:=idhttp1.Get('http://fineproxy.org');
proxy:=copy(s,Pos(':</strong>',s)+10,pos('</br></p>',s)-pos(':</strong>',s)-10);
memo1.Text:=proxy;
end
Пробовал парсить коменты, но парсит тоже одну строку.
Ребята помогите пожалуста (:
Веталь выручай
14.05.2012, 11:06
#2
Разведчик
Регистрация: 09.05.2012
Сообщений: 2
Популярность: 12
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Re: Парс
А не проще компонент использовать ?
[Ссылки могут видеть только зарегистрированные пользователи. ]
14.05.2012, 11:46
#3
Разведчик
Регистрация: 30.09.2010
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Парс
Цитата:
дк он же парсит прокси, прокси парсер.
14.05.2012, 15:08
#4
Пехотинец
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
Re: Парс
14.05.2012, 17:04
#5
Разведчик
Регистрация: 30.09.2010
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Парс
Цитата:
Пользуйся RegExpr-ом
cкачал я RegExpr , указал путь, указал в усес, написал как написали вы и тут значит ошибка:
Код:
[Error] Unit1.pas(60): Undeclared identifier: 'Reg'
на эту строку:
Код:
Reg.Expressin := '('span>(.*?)'</')';
забыл (:
в вар
Reg: TRegExpr;
сделал так:
Reg.Expression:= ',"name":"(.*?)","logo":"'; //взял из твоей функции парса , там уж как нибудь сам подправь
if Reg.Exec(s) then//S- переменная в которую загружена страница
repeat
form1.sMemo1.lines.add(Reg.Match[1]);
зависает и крашится
Последний раз редактировалось pavel!; 14.05.2012 в 17:46 .
14.05.2012, 17:40
#6
Пехотинец
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
Re: Парс
14.05.2012, 17:58
#7
Разведчик
Регистрация: 30.09.2010
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Парс
Цитата:
добавь в глобальный вар
комплимирует, но раньше парсило и краш был, а щас не парсит, а тупо ошибка...
убивать тоже пробовал
Все решил проблему
Reg:=TregExpr.create;
вот и все (:
биг спасибо <3
Последний раз редактировалось pavel!; 14.05.2012 в 18:20 .
17.05.2012, 04:59
#8
Разведчик
Регистрация: 17.05.2012
Сообщений: 18
Популярность: 66
Сказал(а) спасибо: 20
Поблагодарили 20 раз(а) в 11 сообщениях
Re: Парс
pavel! , стукни в скайп свой исходник парсера дам
17.05.2012, 23:38
#9
Разведчик
Регистрация: 30.09.2010
Сообщений: 4
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Парс
18.05.2012, 00:36
#10
Разведчик
Регистрация: 17.05.2012
Сообщений: 18
Популярность: 66
Сказал(а) спасибо: 20
Поблагодарили 20 раз(а) в 11 сообщениях
Re: Парс
я его писал по удалению строк )) потом удаление не нужных символов
потом уже парс)
18.05.2012, 16:45
#11
Лейтенант-командор
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
Re: Парс
Если порыться в старых темах, то можно найти код от меня. Если адаптировать его под этот исходник, то выйдет примерно такое:
Код:
var
proxy:string;
s:=TStringList;
i:integer;
begin
s:=TStringList.Create;
s.Text:=idhttp1.Get('http://fineproxy.org');
for i:=0 to s.Count-1 do
begin
proxy:=copy(s.Text,Pos(':</strong>',s.Text)+10,
pos('</br></p>',s.Text)-pos(':</strong>',s.Text)-10);
if proxy<>'' then
begin
Form1.Memo1.Lines.Add(proxy);
end;
end;
s.Free;
proxy:='';
i:=0;
end;
И всё же, лучше использовать поиск
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882 ; WMR - R231028582939 ; WMU - U394136909210 ; ЯД - 410011494605270 .
Perfect World : PWDatabaseScanner , Client , PWNickRenamer , PWClientRenamer , База логинов PW , Гайд по варУ , Зарабатываем репутацию .
Delphi : Авторизация на сайте с помощью Indy , Загрузка изображений с интернета в TImage с помощью Indy , Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5 , Основы парсинга с помощью Indy , Делаем Updater до программы с помощью Indy .
Other : ShowIP , FFUUU смайлы в QIP , Как играть в Minecraft (видеокурс) , Как мы захватили человечество :D , Энергия в Лицемер/TopFace , PasGen .
18.05.2012, 18:10
#12
Разведчик
Регистрация: 17.05.2012
Сообщений: 18
Популярность: 66
Сказал(а) спасибо: 20
Поблагодарили 20 раз(а) в 11 сообщениях
Re: Парс
Цитата:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
IdHTTP1: TIdHTTP;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function parse_str(Before, After, Source: string): string;
var
Temp_String: string;
begin
Temp_String := Copy(Source, pos(Before, Source) + length(Before), length(Source));
result := Copy(Temp_String, 1, pos(After, Temp_String) - 1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var st,s: string;
i:integer;
Source : string;
begin
st:=idhttp1.Get(edit1.text);
memo1.Text:=copy(st,pos('<td><img style=',st)+1, pos('<div class="footer">',st)-pos('<title>',st)-7);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(1);
memo1.Lines.Delete(1);
memo1.Lines.Delete(1);
memo1.Lines.Delete(1);
memo1.Lines.Delete(1);
memo1.Lines.Delete(1);
memo1.Lines.Delete(1);
memo1.Lines.Delete(1);
memo1.Lines.Delete(2);
memo1.Lines.Delete(2);
memo1.Lines.Delete(2);
memo1.Lines.Delete(2);
memo1.Lines.Delete(2);
memo1.Lines.Delete(2);
memo1.Lines.Delete(2);
memo1.Lines.Delete(2);
memo1.Lines.Delete(3);
memo1.Lines.Delete(3);
memo1.Lines.Delete(3);
memo1.Lines.Delete(3);
memo1.Lines.Delete(3);
memo1.Lines.Delete(3);
memo1.Lines.Delete(3);
memo1.Lines.Delete(3);
memo1.Lines.Delete(4);
memo1.Lines.Delete(4);
memo1.Lines.Delete(4);
memo1.Lines.Delete(4);
memo1.Lines.Delete(4);
memo1.Lines.Delete(4);
memo1.Lines.Delete(4);
memo1.Lines.Delete(4);
memo1.Lines.Delete(5);
memo1.Lines.Delete(5);
memo1.Lines.Delete(5);
memo1.Lines.Delete(5);
memo1.Lines.Delete(5);
memo1.Lines.Delete(5);
memo1.Lines.Delete(5);
memo1.Lines.Delete(5);
memo1.Lines.Delete(6);
memo1.Lines.Delete(6);
memo1.Lines.Delete(6);
memo1.Lines.Delete(6);
memo1.Lines.Delete(6);
memo1.Lines.Delete(6);
memo1.Lines.Delete(6);
memo1.Lines.Delete(6);
memo1.Lines.Delete(7);
memo1.Lines.Delete(7);
memo1.Lines.Delete(7);
memo1.Lines.Delete(7);
memo1.Lines.Delete(7);
memo1.Lines.Delete(7);
memo1.Lines.Delete(7);
memo1.Lines.Delete(7);
memo1.Lines.Delete(8);
memo1.Lines.Delete(8);
memo1.Lines.Delete(8);
memo1.Lines.Delete(8);
memo1.Lines.Delete(8);
memo1.Lines.Delete(8);
memo1.Lines.Delete(8);
memo1.Lines.Delete(8);
memo1.Lines.Delete(9);
memo1.Lines.Delete(9);
memo1.Lines.Delete(9);
memo1.Lines.Delete(9);
memo1.Lines.Delete(9);
memo1.Lines.Delete(9);
memo1.Lines.Delete(9);
memo1.Lines.Delete(9);
memo1.Lines.Delete(10);
memo1.Lines.Delete(10);
memo1.Lines.Delete(10);
memo1.Lines.Delete(10);
memo1.Lines.Delete(10);
memo1.Lines.Delete(10);
memo1.Lines.Delete(10);
memo1.Lines.Delete(10);
memo1.Lines.Delete(11);
memo1.Lines.Delete(11);
memo1.Lines.Delete(11);
memo1.Lines.Delete(11);
memo1.Lines.Delete(11);
memo1.Lines.Delete(11);
memo1.Lines.Delete(11);
memo1.Lines.Delete(11);
memo1.Lines.Delete(12);
memo1.Lines.Delete(12);
memo1.Lines.Delete(12);
memo1.Lines.Delete(12);
memo1.Lines.Delete(12);
memo1.Lines.Delete(12);
memo1.Lines.Delete(12);
memo1.Lines.Delete(12);
memo1.Lines.Delete(13);
memo1.Lines.Delete(13);
memo1.Lines.Delete(13);
memo1.Lines.Delete(13);
memo1.Lines.Delete(13);
memo1.Lines.Delete(13);
memo1.Lines.Delete(13);
memo1.Lines.Delete(13);
memo1.Lines.Delete(14);
memo1.Lines.Delete(14);
memo1.Lines.Delete(14);
memo1.Lines.Delete(14);
memo1.Lines.Delete(14);
memo1.Lines.Delete(14);
memo1.Lines.Delete(14);
memo1.Lines.Delete(14);
memo1.Lines.Delete(15);
memo1.Lines.Delete(15);
memo1.Lines.Delete(15);
memo1.Lines.Delete(15);
memo1.Lines.Delete(15);
memo1.Lines.Delete(15);
memo1.Lines.Delete(15);
memo1.Lines.Delete(15);
memo1.Lines.Delete(16);
memo1.Lines.Delete(16);
memo1.Lines.Delete(16);
memo1.Lines.Delete(16);
memo1.Lines.Delete(16);
memo1.Lines.Delete(16);
memo1.Lines.Delete(16);
memo1.Lines.Delete(16);
memo1.Lines.Delete(17);
memo1.Lines.Delete(17);
memo1.Lines.Delete(17);
memo1.Lines.Delete(17);
memo1.Lines.Delete(17);
memo1.Lines.Delete(17);
memo1.Lines.Delete(17);
memo1.Lines.Delete(17);
memo1.Lines.Delete(18);
memo1.Lines.Delete(18);
memo1.Lines.Delete(18);
memo1.Lines.Delete(18);
memo1.Lines.Delete(18);
memo1.Lines.Delete(18);
memo1.Lines.Delete(18);
memo1.Lines.Delete(18);
memo1.Lines.Delete(19);
memo1.Lines.Delete(19);
memo1.Lines.Delete(19);
memo1.Lines.Delete(19);
memo1.Lines.Delete(19);
memo1.Lines.Delete(19);
memo1.Lines.Delete(19);
memo1.Lines.Delete(19);
memo1.Lines.Delete(20);
memo1.Lines.Delete(20);
memo1.Lines.Delete(20);
memo1.Lines.Delete(20);
memo1.Lines.Delete(20);
memo1.Lines.Delete(20);
memo1.Lines.Delete(20);
memo1.Lines.Delete(20);
memo1.Lines.Delete(21);
memo1.Lines.Delete(21);
memo1.Lines.Delete(21);
memo1.Lines.Delete(21);
memo1.Lines.Delete(21);
memo1.Lines.Delete(21);
memo1.Lines.Delete(21);
memo1.Lines.Delete(21);
memo1.Lines.Delete(22);
memo1.Lines.Delete(22);
memo1.Lines.Delete(22);
memo1.Lines.Delete(22);
memo1.Lines.Delete(22);
memo1.Lines.Delete(22);
memo1.Lines.Delete(22);
memo1.Lines.Delete(22);
memo1.Lines.Delete(23);
memo1.Lines.Delete(23);
memo1.Lines.Delete(23);
memo1.Lines.Delete(23);
memo1.Lines.Delete(23);
memo1.Lines.Delete(23);
memo1.Lines.Delete(23);
memo1.Lines.Delete(23);
memo1.Lines.Delete(24);
memo1.Lines.Delete(24);
memo1.Lines.Delete(24);
memo1.Lines.Delete(24);
memo1.Lines.Delete(24);
memo1.Lines.Delete(24);
memo1.Lines.Delete(24);
memo1.Lines.Delete(24);
memo1.Lines.Delete(25);
memo1.Lines.Delete(25);
memo1.Lines.Delete(25);
memo1.Lines.Delete(25);
memo1.Lines.Delete(25);
memo1.Lines.Delete(25);
memo1.Lines.Delete(25);
memo1.Lines.Delete(25);
memo1.Lines.Delete(26);
memo1.Lines.Delete(26);
memo1.Lines.Delete(26);
memo1.Lines.Delete(26);
memo1.Lines.Delete(26);
memo1.Lines.Delete(26);
memo1.Lines.Delete(26);
memo1.Lines.Delete(26);
memo1.Lines.Delete(27);
memo1.Lines.Delete(27);
memo1.Lines.Delete(27);
memo1.Lines.Delete(27);
memo1.Lines.Delete(27);
memo1.Lines.Delete(27);
memo1.Lines.Delete(27);
memo1.Lines.Delete(27);
memo1.Lines.Delete(28);
memo1.Lines.Delete(28);
memo1.Lines.Delete(28);
memo1.Lines.Delete(28);
memo1.Lines.Delete(28);
memo1.Lines.Delete(28);
memo1.Lines.Delete(28);
memo1.Lines.Delete(28);
memo1.Lines.Delete(29);
memo1.Lines.Delete(29);
memo1.Lines.Delete(29);
memo1.Lines.Delete(29);
memo1.Lines.Delete(29);
memo1.Lines.Delete(29);
memo1.Lines.Delete(29);
memo1.Lines.Delete(29);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
memo1.Lines.Delete(30);
begin
for i:=0 to Memo1.Lines.Count-1 do
memo1.lines.text:=StringReplace(memo1.lines.text,' ','',[]);
for i:=0 to Memo1.Lines.Count-1 do
memo1.lines.text:=StringReplace(memo1.lines.text,'<a href=','',[]);
for i:=0 to Memo1.Lines.Count-1 do
memo1.lines.text:=StringReplace(memo1.lines.text,'forumheader3','',[]);
for i:=0 to Memo1.Lines.Count-1 do
memo1.lines.text:=StringReplace(memo1.lines.text,'<td class=','',[]);
for i:=0 to Memo1.Lines.Count-1 do
memo1.lines.text:=StringReplace(memo1.lines.text,'http://fastcup.net/member.html?id=','',[]);
for i:=0 to Memo1.Lines.Count-1 do
memo1.lines.text:=StringReplace(memo1.lines.text,'http://fastcup.net/member.html?id=','',[]);
for i:=0 to Memo1.Lines.Count-1 do
memo1.lines.text:=StringReplace(memo1.lines.text,'/a></td>','',[]);
begin
Source:=memo1.Lines[0];
Delete(Source, 1, 5);
memo1.Lines[0]:=Source;
Source:=memo1.Lines[1];
Delete(Source, 1, 5);
memo1.Lines[1]:=Source;
Source:=memo1.Lines[2];
Delete(Source, 1, 5);
memo1.Lines[2]:=Source;
Source:=memo1.Lines[3];
Delete(Source, 1, 5);
memo1.Lines[3]:=Source;
Source:=memo1.Lines[4];
Delete(Source, 1, 5);
memo1.Lines[4]:=Source;
Source:=memo1.Lines[5];
Delete(Source, 1, 5);
memo1.Lines[5]:=Source;
Source:=memo1.Lines[6];
Delete(Source, 1, 5);
memo1.Lines[6]:=Source;
Source:=memo1.Lines[7];
Delete(Source, 1, 5);
memo1.Lines[7]:=Source;
Source:=memo1.Lines[8];
Delete(Source, 1, 5);
memo1.Lines[8]:=Source;
Source:=memo1.Lines[9];
Delete(Source, 1, 5);
memo1.Lines[9]:=Source;
Source:=memo1.Lines[10];
Delete(Source, 1, 5);
memo1.Lines[10]:=Source;
Source:=memo1.Lines[11];
Delete(Source, 1, 5);
memo1.Lines[11]:=Source;
Source:=memo1.Lines[12];
Delete(Source, 1, 5);
memo1.Lines[12]:=Source;
Source:=memo1.Lines[13];
Delete(Source, 1, 5);
memo1.Lines[13]:=Source;
Source:=memo1.Lines[14];
Delete(Source, 1, 5);
memo1.Lines[14]:=Source;
Source:=memo1.Lines[15];
Delete(Source, 1, 5);
memo1.Lines[15]:=Source;
Source:=memo1.Lines[16];
Delete(Source, 1, 5);
memo1.Lines[16]:=Source;
Source:=memo1.Lines[17];
Delete(Source, 1, 5);
memo1.Lines[17]:=Source;
Source:=memo1.Lines[18];
Delete(Source, 1, 5);
memo1.Lines[18]:=Source;
Source:=memo1.Lines[19];
Delete(Source, 1, 5);
memo1.Lines[19]:=Source;
Source:=memo1.Lines[20];
Delete(Source, 1, 5);
memo1.Lines[20]:=Source;
Source:=memo1.Lines[21];
Delete(Source, 1, 5);
memo1.Lines[21]:=Source;
Source:=memo1.Lines[22];
Delete(Source, 1, 5);
memo1.Lines[22]:=Source;
Source:=memo1.Lines[23];
Delete(Source, 1, 5);
memo1.Lines[23]:=Source;
Source:=memo1.Lines[24];
Delete(Source, 1, 5);
memo1.Lines[24]:=Source;
Source:=memo1.Lines[25];
Delete(Source, 1, 5);
memo1.Lines[25]:=Source;
Source:=memo1.Lines[26];
Delete(Source, 1, 5);
memo1.Lines[26]:=Source;
Source:=memo1.Lines[27];
Delete(Source, 1, 5);
memo1.Lines[27]:=Source;
Source:=memo1.Lines[28];
Delete(Source, 1, 5);
memo1.Lines[28]:=Source;
Source:=memo1.Lines[29];
Delete(Source, 1, 5);
memo1.Lines[29]:=Source;
begin
Source := memo1.Lines[0];
memo1.Lines[0]:= parse_str('>','<',Source);
Source := memo1.Lines[1];
memo1.Lines[1]:= parse_str('>','<',Source);
Source := memo1.Lines[2];
memo1.Lines[2]:= parse_str('>','<',Source);
Source := memo1.Lines[3];
memo1.Lines[3]:= parse_str('>','<',Source);
Source := memo1.Lines[4];
memo1.Lines[4]:= parse_str('>','<',Source);
Source := memo1.Lines[5];
memo1.Lines[5]:= parse_str('>','<',Source);
Source := memo1.Lines[6];
memo1.Lines[6]:= parse_str('>','<',Source);
Source := memo1.Lines[7];
memo1.Lines[7]:= parse_str('>','<',Source);
Source := memo1.Lines[8];
memo1.Lines[8]:= parse_str('>','<',Source);
Source := memo1.Lines[9];
memo1.Lines[9]:= parse_str('>','<',Source);
Source := memo1.Lines[10];
memo1.Lines[10]:= parse_str('>','<',Source);
Source := memo1.Lines[11];
memo1.Lines[11]:= parse_str('>','<',Source);
Source := memo1.Lines[12];
memo1.Lines[12]:= parse_str('>','<',Source);
Source := memo1.Lines[13];
memo1.Lines[13]:= parse_str('>','<',Source);
Source := memo1.Lines[14];
memo1.Lines[14]:= parse_str('>','<',Source);
Source := memo1.Lines[15];
memo1.Lines[15]:= parse_str('>','<',Source);
Source := memo1.Lines[16];
memo1.Lines[16]:= parse_str('>','<',Source);
Source := memo1.Lines[17];
memo1.Lines[17]:= parse_str('>','<',Source);
Source := memo1.Lines[18];
memo1.Lines[18]:= parse_str('>','<',Source);
Source := memo1.Lines[19];
memo1.Lines[19]:= parse_str('>','<',Source);
Source := memo1.Lines[20];
memo1.Lines[20]:= parse_str('>','<',Source);
Source := memo1.Lines[21];
memo1.Lines[21]:= parse_str('>','<',Source);
Source := memo1.Lines[22];
memo1.Lines[22]:= parse_str('>','<',Source);
Source := memo1.Lines[23];
memo1.Lines[23]:= parse_str('>','<',Source);
Source := memo1.Lines[24];
memo1.Lines[24]:= parse_str('>','<',Source);
Source := memo1.Lines[25];
memo1.Lines[25]:= parse_str('>','<',Source);
Source := memo1.Lines[26];
memo1.Lines[26]:= parse_str('>','<',Source);
Source := memo1.Lines[27];
memo1.Lines[27]:= parse_str('>','<',Source);
Source := memo1.Lines[28];
memo1.Lines[28]:= parse_str('>','<',Source);
Source := memo1.Lines[29];
memo1.Lines[29]:= parse_str('>','<',Source);
end;
end;
end;
end;
end.
Вот мой код ))) строго не судите)))) я знаю нуубский)
18.05.2012, 18:23
#13
Пехотинец
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
Re: Парс
victor20011 , что мешает повторяюшиеся строчки обрабатывать в цикле?
18.05.2012, 18:34
#14
Разведчик
Регистрация: 17.05.2012
Сообщений: 18
Популярность: 66
Сказал(а) спасибо: 20
Поблагодарили 20 раз(а) в 11 сообщениях
Re: Парс
18.05.2012, 21:01
#15
Лейтенант-командор
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
Re: Парс
ух ты ж мать моя родная
Не, это первое место по быдлокодерству
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882 ; WMR - R231028582939 ; WMU - U394136909210 ; ЯД - 410011494605270 .
Perfect World : PWDatabaseScanner , Client , PWNickRenamer , PWClientRenamer , База логинов PW , Гайд по варУ , Зарабатываем репутацию .
Delphi : Авторизация на сайте с помощью Indy , Загрузка изображений с интернета в TImage с помощью Indy , Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5 , Основы парсинга с помощью Indy , Делаем Updater до программы с помощью Indy .
Other : ShowIP , FFUUU смайлы в QIP , Как играть в Minecraft (видеокурс) , Как мы захватили человечество :D , Энергия в Лицемер/TopFace , PasGen .
Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 16:38 .