разархивация файла

[illyuziy]

нужно разархивировать файл создав временную папку с файлами, затем выбрать нужный и сним уже работать

 vibf=''
 IF EMPTY (vibf)=.F. then
 *используется для отладки программ
 *SET STEP ON
 *Arj не работает с русскими буквами, поэтому нахожу короткое имя файла и записываю его в С:\temp
 L="" 
 k=0 
 endif ;
 DO WHILE L # "\" ;
 k = k+1 ;
 promf=RIGHT(vibf,k) ;
 L=LEFT(promf,1) ;
 ENDDO ;
 promf=RIGHT(vibf,k-1) ;
 rabf="C:\Temp\"+(promf) ;
 COPY FILE (vibf) TO (rabf) ; 
 *SET STEP ON
 *разархивирую в папку темп
f='Run arj e -y '+rabf+' C:\temp\' 
 & RUN f ; 
f='Run rar e -y '+rabf+' C:\temp\' 
 & RUN f ;

 *открываю справочник sptf для чтения без изменений

 SELECT 0
 DO CASE ;
 CASE UPPER(RIGHT(rabf,3))='REE' ;
 DO CPZERO.prg WITH "C:\Temp\a.dbf", 866 ;
 use C:\Temp\a.dbf 

* тут уже не находит файл:
 select * ;
 from a ;
 where id = 2;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

мой ответ в предыдущей теме не устроил?
Так, как сказал, тоже не работает?

[illyuziy]

нет, не работает. не находит файл Use

[Serge_Bliznykov]

vibf=''

ну, если я правильно понимаю, имя архива пустое изначально.
Что он будет распаковывать и открывать?!!

[illyuziy]

 vibf=''

в форме выбирает нужный заархивированный файл. кнопка "обзор"

[Serge_Bliznykov]

1) ну, перед f='.....
вставьте строчку, которая отобразит содержимое переменной rabf

WAIT WINDOWS 'Файл >>>>'+rabf+'<<<<'

2) ещё раз уточню, ЗАЧЕМ у Вас в конце каждой строки присутствуют точки с запятой?! Вы вообще знаете, что означает точка с запятой в конце строки в командах FOXPRO ?!!!

[illyuziy]

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

1) ну, перед f='.....
вставьте строчку, которая отобразит содержимое переменной rabf

WAIT WINDOWS 'Файл >>>>'+rabf+'<<<<'

2) ещё раз уточню, ЗАЧЕМ у Вас в конце каждой строки присутствуют точки с запятой?! Вы вообще знаете, что означает точка с запятой в конце строки в командах FOXPRO ?!!!

1. т.е. след строчка?
2. это наверно привычка с С++, я так понимаю надо везде убрать

[illyuziy]

вот как я это реализовала. может комуто поможет

if empty (ppp)=.F. then
L=""
k=0
endif
Do while L# '/'
k=k+1
bbb=right (ppp,k)
l=left (bbb,1)
bbb=right (ppp,k-1)
enddo
v='c:/Temp/'+(bbb)
f='Run rar e -y '+v+' c:/Temp/'

теперь задача наоборот
создать с помощью архиватора rar, zip, arj
архив iddhm.scd где id=код, d-день, h-час, m-минута когда был создан файл
ваши предложения....

[illyuziy]

LOCAL lArcDate, lArcTime, lArc, lSDir, lcCommand 
 lArcDate=PadL(AllT(Str(DAY(DATE()))),2,'0') 
 lArcTime=PadL(AllT(Str(HOUR(DATETIME()))),2,'0')+PadL(AllT(Str(MINUTE(DATETIME()))),2,'0') 
 
 lArc='backup'+lArcDate+lArcTime+'.scd' 
  lcCommand = 'run rar a '+lArc+' '+lsDir+'*.* ' 
 !&lcCommand

Не пойму как вставить в название id который располагается в pdf файле в папке Temp (временный файл разархивированный) в поле id.
Получается надо вставить это условие перед строкой и вместо 'backup'

lArc='backup'+lArcDate+lArcTime+'.scd'

и формат архивного файла должен быть .scd

помогите пожалуйста!