Subj : file_id.diz extraction function
To : All
From : Ignatius
Date : Mon Dec 18 2017 08:05 pm
Hi,
I have a function:
--begin--
function DizExists(const fn:astr):boolean;
var
ok:boolean;
T:Text;
S:string[50];
Index:byte;
begin
star('Checking for description...'#29);
if (pos('.zip',fn)<>0) then fpsystem('unzip -L -o '+fn+' file_id.diz -d
'+general.temppath+cstr(node)+'/ARC/ >/dev/null')
else if (pos('.lzh',fn)<>0) then fpsystem('lha e f '+fn+' file_id.diz
'+general.temppath+cstr(node)+'/ARC/ >/dev/null')
else if (pos('.arj',fn)<>0) then fpsystem('arj e f '+fn+' file_id.diz
'+general.temppath+cstr(node)+'/ARC/ >/dev/null')
else if (pos('.rar',fn)<>0) then fpsystem('unrar x -cl '+fn+' file_id.diz
'+general.temppath+cstr(node)+'/ARC/ >/dev/null');
if (exist('/home/rg/TEMP' + cstr(node) + '/ARC/file_id.diz')) then
assign(T,'/home/rg/TEMP' +cstr(node) + '/ARC/file_id.diz');
reset(T);
if (IOResult <> 0) then exit;
star('Importing description.');
Index := 1;
erase(T);
end;
--end--
The problem is that it only extracts the first line of the file_id.diz.
Anyone have any ideas?
