Скачать: CL | DM;

Разбитые винраром архивы на part   Найти похожие ветки 

← →
Rhammer ©   (2008-04-11 22:34) [0]

Вновь обращаюсь к вам за помощью.
У меня есть массив со списком путей до архивов..
После этого каждый элемент массива разархивируется путем запуска винрара через CreateProcess ..
Но если у меня архив разбит на куски то бишь asd.part1.rar, asd.part2.rar, asd.part3.rar, то прога моя сначала как положено запускает рар для разархивации 1 элемента массива (asd.part1.rar), винрар как положено разархивирует 1 часть потом вторую и третью, посылает код завершения в прогу, она проходит к следующему элементу массива part2.rar опять запускает рар... и естественно данные бьются.
Как мне добиться что-бы из массива удалялись лишние значения?
Я думал алгоритм на проверку в строке слова part, но могут быть косяки...
Заранее спасибо
procedure TForm1.Button3Click(Sender: TObject);
var
i : integer;
dirrar: string;

begin
DirRar := "C:\Program Files\WinRAR\WinRar.exe";
Button3.Caption:="Дождитесь окончания операции";
Dir := Button2.Caption;
//Запуск винрара
for i := 1 to StrToInt(label2.Caption) do
begin
  NameFile:=Button2.Caption+archives[i];
  Label3.Caption := NameFile;
  CrProcess(DirRar,"x -ad -y -ilog"+dir+ "rar.log "+ """+ NameFile+""" + " " + Dir, dir,"(Сеанс завершен) - Rar");
  if CheckBox5.Checked=True then DeleteFile(NameFile);
end;
end;

---

← →
Johnmen ©   (2008-04-11 22:45) [1]

Надо добиться, чтобы в массив не добавлялись ненужные значения.

---

← →
Rhammer ©   (2008-04-11 22:46) [2]

Это я и хочу сделать :) Вот проблема как раз в том чтобы определить ненужные значения. Только как не могу представить.

---

← →
Johnmen ©   (2008-04-11 22:57) [3]

Посмотри, как сформированы имена в многотомном архиве.
Отсюда алгоритм формирования просто очевиден...

---

← →
Reindeer Moss Eater ©   (2008-04-11 23:23) [4]

ой мама дорогая......

rar x *.rar -y

и все!
и не надо никаких массивов

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c