96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
21 lines
284 B
Plaintext
21 lines
284 B
Plaintext
#require "hbziparc"
|
|
|
|
PROCEDURE Main( cZip, ... )
|
|
|
|
LOCAL a, b, c
|
|
|
|
Set( _SET_DATEFORMAT, "yyyy-mm-dd" )
|
|
|
|
? hb_ZipFile( cZip, hb_AParams() )
|
|
|
|
a := hb_GetFilesInZip( cZip, .T. )
|
|
|
|
FOR EACH b IN a
|
|
?
|
|
FOR EACH c IN b
|
|
?? c, ""
|
|
NEXT
|
|
NEXT
|
|
|
|
RETURN
|