V : Variant;
begin
SaveDialog1.Execute;
Listok := TStringList.Create;
// Listok.Sorted := true;
Listok.Duplicates := dupAccept;
(* S := AnsiLowerCase(ParamStr(0));
S := ReplaceStr(S,'.exe','.ini');
EFile := '';
if FileExists(S) then
with TIniFile.Create(S) do begin
S := ReadString('Base','Database','ERR');
if S <> 'ERR' then EFile := S;
S := ReadString('Base','OutFile','ERR');
if S <> 'ERR' then OFile := AnsiLowerCase(S) else
OFile := 'pictures.inc';
Free;
end else *)
// if (EFile = '') or not FileExists(EFile) then begin
// EFile := 'C:\Tmp\Nachalniy File\price33.xls';
// OFile := 'pictures.inc';
EFile := Edit1.Text;
OFile := 'pictures.inc';
if not FileExists(EFile) then begin
MessageDlg('Укажите обрабатываемый файл (*.xls).', mtError, [mbOk], 0);
Exit;
end;
E := TAppExcel.Create;
E.OpenFile(EFile);
I := 1;
S := '';
repeat
E.GetValue(i, 1, V);
S := V;
if Trim(S) > '' then begin
label2.Caption:='Чтение |';
label2.Caption:='Чтение /';
label2.Caption:='Чтение -';
label2.Caption:='Чтение \';
label2.Caption:='Чтение |';
label2.Caption:='Чтение /';
label2.Caption:='Чтение -';
label2.Caption:='Чтение \';
L := '';
L := L + '<td class=ra > '+Trim(S)+'</td>';
// цена первая
E.GetValue(i, 2, V);
St := V;
if Trim(St)='' then St := ' ';
L := L + '<td class=rac> '+Trim(St)+'</td>';
// цена вторая
E.GetValue(i, 3, V);
St := V;
if Trim(St)='' then St := ' ' else St :=trim(st) ;
L := L + '<td class=rac>'+Trim(St)+'</td>';
// ссылки
E.GetValue(i, 4, V);
St := V;
if Trim(St)='' then St := ' '
else St := '<a href='+St+'><img src=images\check.gif border=0></a>';
L := L + '<td class=rac>'+Trim(St)+'</td>';
Listok.Add(L+'</tr>');
inc(i);
end;
until S = '';
E.Free;
label2.caption:='Запись';
// вывод нормальный .inc
AssignFile(F,SaveDialog1.Filename);
Rewrite(F);
for i := 0 to Listok.Count-1 do begin
progressbar1.max:=listok.count*2;
progressbar1.stepby(i);
writeln(F,'<tr><td class=rac >'+IntToStr(i+1)+'</td>',Listok.Strings[i]);
end;
CloseFile(F);
// вывод отсортированный .crt
OFile := ReplaceStr(SaveDialog1.Filename,'inc','srt');//Замена inc на crt
Listok.Sort;
AssignFile(F,OFile);
Rewrite(F);
for i := 0 to Listok.Count-1 do begin
progressbar1.StepBy(i);
writeln(F,'<tr><td class=rac >'+IntToStr(i+1)+'</td>',Listok.Strings[i]);
end;
CloseFile(F);
Listok.Free; //for j:=0 to 100 do begin
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
SaveDialog1.FileName := 'pictures.inc';
SaveDialog1.InitialDir := ExtractFilePath(ParamStr(0));
Form1.CreateMovieTable;
If Application.MessageBox('Готово. Закрыть программу?','Запись файла',mb_IconInformation+mb_YesNo)=6 then
Form1.Close;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
If OpenDialog1.Execute Then Edit1.Text:= OpenDialog1.FileName;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := '';
end;
end.