Использование средств и технологий тематического поиска в разнородных информационных ресурсах для подготовки обзора по теме «Рынок стра

         Datamodule2.adotable1.first;

        end;

     end;

 

procedure TForm1.DBGrid1DblClick(Sender: TObject);

begin

Form3.Caption:=datamodule2.ADOtable1.fieldbyname('Name').AsString;

Form3.showmodal;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var i:integer; filename: textfile; s,j,k,l,m,n: string;

begin

 

if savedialog1.Execute then

begin

assignFile(FileName, Savedialog1.FileName);

rewrite(Filename);

for i:= 0 to datamodule2.ADOTable1.RecordCount-1 do

begin

k:='<FIO'+datamodule2.ADOtable1.fieldbyname('FIO').AsString+'FIO<';

s:= '<name'+datamodule2.ADOtable1.fieldbyname('Name').AsString+'name<' ;

j:='<Date'+datamodule2.ADOtable1.fieldbyname('Date').AsString+'Date<';

l:= '<Site'+datamodule2.ADOtable1.fieldbyname('Site').AsString+'Site<' ;

m:='<IPS'+datamodule2.ADOtable1.fieldbyname('IPS').AsString+'IPS<';

n:='<Article'+datamodule2.ADOtable1.fieldbyname('Article').AsString+'Article<';

writeln(fileName, k);

writeln(fileName, s);

writeln(fileName, j);

writeln(fileName, l);

writeln(fileName, m);

writeln(fileName, n);

datamodule2.ADOTable1.Next;

end;

end;

closefile(filename);

end;

 

procedure TForm1.Button3Click(Sender: TObject);

var  filename:textfile; i,j:integer; t:string;

begin

if opendialog1.Execute then

begin

reset(filename,opendialog1.filename);

datamodule2.ADOTable1.Last;

 while not Eof(filename) do

  begin

  readln(filename,t);

  if pos('<FIO',t)>0 then

   begin

    datamodule2.ADOTable1.Insert;

    i:=pos('<FIO',t);

    j:=pos('FIO<',t);

    t:=copy(t,i+4,j-(i+4));

    datamodule2.ADOTable1.FieldByName('FIO').Text:=t;

end

    else if pos('<name',t)>0 then

    begin

    i:=pos('<name',t);

    j:=pos('name<',t);

    t:=copy(t,i+5,j-(i+5));

    datamodule2.ADOTable1.FieldByName('name').Text:=t;

end

    else if pos('<Date',t)>0 then

    begin

    i:=pos('<Date',t);

    j:=pos('Date<',t);

    t:=copy(t,i+5,j-(i+5));

       if t>' ' then

    datamodule2.ADOTable1.FieldByName('Date').Text:=t

    else datamodule2.ADOTable1.FieldByName('Date').Clear;

end

    else if pos('<Site',t)>0 then

    begin

    i:=pos('<Site',t);

    j:=pos('Site<',t);

    t:=copy(t,i+5,j-(i+5));

    datamodule2.ADOTable1.FieldByName('Site').Text:=t;

end

     else if pos('<IPS',t)>0 then

    begin

    i:=pos('<IPS',t);

    j:=pos('IPS<',t);

    t:=copy(t,i+4,j-(i+4));

    datamodule2.ADOTable1.FieldByName('IPS').Text:=t;

end else

     if (pos('<Article',t)>0) and (pos('Article<',t)>0)then

    begin

    i:=pos('<Article',t);

    j:=pos('Article<',t);

    t:=copy(t,i+8,j-i-8);

    form3.dbmemo1.Lines.Add(t);

    datamodule2.ADOTable1.FieldByName('Article').AsString:=form3.dbmemo1.Lines.Text;

    form3.dbmemo1.Clear;

    end

    else if (pos('<Article',t)>0) and (pos('Article<',t)=0)  then

    begin

    i:=pos('<Article',t);

    t:=copy(t,i+8,length(t)-8);

    form3.dbmemo1.Lines.Add(t);

    end

    else if (pos('<',t)=0) then

    begin

    t:=copy(t,1,length(t));

    form3.dbmemo1.Lines.Add(t);

    end

    else if (pos('Article<',t)>0) and (pos('<Article',t)=0)  then

    begin

    t:=copy(t,1,length(t)-8);

    form3.dbmemo1.Lines.Add(t);

    datamodule2.ADOTable1.FieldByName('Article').AsString:=form3.dbmemo1.Lines.Text;

    form3.DBMemo1.Lines.Clear;

    end;

   end;  closefile(filename);

 

  end;  end;  end.

 

 

 

 

unit Unit2;

 

interface

 

uses

  SysUtils, Classes, DB, ADODB;

 

type

  TDataModule2 = class(TDataModule)

    ADOTable1: TADOTable;

    ADOConnection1: TADOConnection;

    DataSource1: TDataSource;

    ADOTable1Name: TWideStringField;

    ADOTable1FIO: TWideStringField;

    ADOTable1Date: TIntegerField;

    ADOTable1Site: TWideStringField;

    ADOTable1IPS: TWideStringField;

    ADOTable1Article: TMemoField;

 

    procedure ADOTable1FilterRecord(DataSet: TDataSet;

      var Accept: Boolean);

   

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  DataModule2: TDataModule2;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TDataModule2.ADOTable1FilterRecord(DataSet: TDataSet;

  var Accept: Boolean);

begin

Accept:= AdoTable1.FieldByName('FIO').AsString[1]=Form1.TabControl1.Tabs[Form1.TabControl1.TabIndex]

end; end.

¹ Итоговый результат по всем релевантным документам представляет собой сумму релевантных документов по всем полям