Множественное сохранение PDF файлов

[artemavd]

Эх, ВОВАН13, спасибо тебе большое, что помог с этой частью вопроса мне . Плюс поставил уже. Завтра буду пытаться на свежую голову думать как сделать в случае наличия в имени JPEG файла символа "_". Если есть мысли как можно это сделать, то подскажите?).

[BOBAH13]

s, ext: string;
i: integer;
...
s := MainForm.ListBox1.Items[i];
i := LastDelimiter(s, '.');
if (i > 0) then // found '.'
begin
  ext := Copy(s, i, Length(s)); // copy everything after '.', and including it
  if (ext = '.jpeg') then // found '.jpeg' extension
  begin
    s := Copy(s, 1, i) + 'pdf'; // rename
    
    // try to detect '_'
    i := Pos(s, '_');
    if (i > 0) then
    begin
      // do whatever you want to
    end;

    // wotk here with pdf/jpeg named as variable s
    ...
  end;
end;

p.s. может конечно что-то не так, на дельфи дааавно не писал, ну и за инглиш прошу прощения, надеюсь все и так ясно.

[artemavd]

Давайте попробуем разобраться в последнем коде. Правильно ли я его понял?

s, ext: string;
i: integer;
...
s := MainForm.ListBox1.Items[i]; //строкой переменной присваиваем все jpeg файлы из списка
i := LastDelimiter(s, '.'); //указываем разделитель "." в имени jpeg файлов
if (i > 0) then // если он найден, то...
begin
  ext := Copy(s, i, Length(s)); // копируем все, что идет после "." из строки s
  if (ext = '.jpeg') then // нашли расширение '.jpeg' 
  begin
    s := Copy(s, 1, i) + 'pdf'; // переименовываем в pdf
    
    // пытаемся определить символ  '_' в имени jpeg файла
    i := Pos(s, '_'); //указываем, что в нашей переменной s может быть "_"
    if (i > 0) then //если нашли, то....
    begin
      ListeJPGtoPDF(list,....
    end;

    // здесь работает с pdf/jpeg как с переменной s - вот это я не понял.
    ...
  end;
end;

Так?

[BOBAH13]

1.

//строкой переменной присваиваем все jpeg файлы из списка

Не все файлы, а файл под индексом i
2.

// копируем все, что идет после "." из строки s

+ включая саму '.'
3.

// здесь работает с pdf/jpeg как с переменной s - вот это я не понял.

ну да, делайте то что вам угодно, у вас в этот момент полное имя целевого файла .pdf = s (переменная), и имя исходного jpeg = MainForm.ListBox1.Items[i];. Тут уже делайте то что должно быть заложено в логику вашего ПО.

[artemavd]

Вот так нужно?

procedure TMainForm.BtnHelp1Click(Sender: TObject);
var
 k,i: integer;
 list: TStringList;
 s,ext: string;
begin
 list:=TStringList.Create;
 MainForm.SaveDialog1.FileName:='*.pdf';
 MainForm.SaveDialog1.Title:='Èìåíà äëÿ ôàéëîâ çàäàâàòü íå íóæíî. Íàæìèòå ñðàçó "Ñîõðàíèòü".';
 MainForm.SaveDialog1.FileName:=DateToStr(Now);
 if SaveDialog1.Execute then
  begin
   for i:=0 to MainForm.ListBox1.Count - 1 do
   begin
    list.Clear;
    list.Add(MainForm.ListBox1.Items[i]);
    s:=MainForm.ListBox1.Items[i];
    i:=LastDelimiter(s,'.');
    if (i > 0) then
    begin
     ext:=Copy(s,i,Length(s));
     if (ext = '.jpeg') then
     begin
      s:=Copy(s,1,i) + 'pdf';
      i:=Pos(s,'_');
      if (i > 0) then
      begin
       k:=ListeJPGtoPDF(list,Copy(MainForm.ListBox1.Items[i],1,Pos('.',MainForm.ListBox1.Items[i])-1) + '.pdf');
      end;
     end;
    end;
   end;
  end;
  list.Free;
end;

так ругается на выделенную строчку и говорит, что "[Error] MAIN.PAS(840): Assignment to FOR-Loop variable 'i'"

[BOBAH13]

1. ListeJPGtoPDF - будет вызываться только если '_' существует в строке.
2. for i:=0 to MainForm.ListBox1.Count - 1 do замените на for n:=0 to MainForm.ListBox1.Count - 1 do, разумеется прежде объявив n как integer

[artemavd]

Че-то я запутался....а когда тогда будет вызываться ListeJPGtoPDF ?

[Gonzo]

artemavd, а ListeJPGtoPDF не поделишься?

[artemavd]

Да пожалуйста, вот архив. В uses пропиши название модуля и можешь использовать процедуру ListeJPGtoPDF

[BOBAH13]

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

Че-то я запутался....а когда тогда будет вызываться ListeJPGtoPDF ?

Ну я не знаю вам нужно чтобы конвертировалось в pdf только если есть символ '_' или все jpeg? Если все, то тогда так

ext:=Copy(s,i,Length(s));
     if (ext = '.jpeg') then
     begin
      s:=Copy(s,1,i) + 'pdf';
      //i:=Pos(s,'_');
      //if (i > 0) then
      //begin
k:=ListeJPGtoPDF(list,Copy(MainForm.ListBox1.Items[i],1,Pos('.',MainForm.ListBox1.Items[i])-1) + '.pdf');
      //end;