Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: rcamp48 on February 11, 2020, 02:17:52 pm

Title: Can someone write a qb64 code for me?
Post by: rcamp48 on February 11, 2020, 02:17:52 pm
Can someone write a QB64 code for me that will take a list of zip files and unzip them (each one has only 1 file, but no file description), its for the Tosek list, I need it to handle subdirectories, shoreten the zip files to 8 chars each (the first 8 chars, but before doing that create a files.diz file and zip the two files into a new zip file for a BBS). My BBS only handles 8 chars per file with the zip extention, but it will read a file decription from the files.diz file before adding the file.

This would be a big help for me to add files to my 3 TBsof disk storage on my BBS called Spy Visits Spy BBS at spyvisitsspybbs.ddns.net, I will of course have a link to this site on the web page and telnet part of the BBS.

Russ Campbell
Title: Re: Can someone write a qb64 code for me?
Post by: Real2Two on February 11, 2020, 02:54:54 pm
I've never found a way to unzip files with qb64. This might be hard to do.
Title: Re: Can someone write a qb64 code for me?
Post by: krovit on February 12, 2020, 05:51:41 am
Quote from: Real2Two on February 11, 2020, 02:54:54 pm
I've never found a way to unzip files with qb64. This might be hard to do.

Directly from qb64 maybe not, but with SHELL, DOS commands and portable zip software, yes...
Title: Re: Can someone write a qb64 code for me?
Post by: TerryRitchie on February 12, 2020, 06:16:20 am
Quote from: krovit on February 12, 2020, 05:51:41 am
Directly from qb64 maybe not, but with SHELL, DOS commands and portable zip software, yes...

Yep, sounds like he needs a batch file or script instead of a QB64 program.
Title: Re: Can someone write a qb64 code for me?
Post by: Real2Two on February 12, 2020, 06:51:13 am
It might be easier to write it in batch but I guess if you use SHELL, you can loop all files (but idk how to do that).
Title: Re: Can someone write a qb64 code for me?
Post by: Petr on February 12, 2020, 04:53:43 pm
Hi. Try this (without warranty) save to BAT file, if your WinZip compressor is in C:\zip

pushd c:\zip
For /f "delims=" %%x in ('DIR /b *.db3 *.gpx') Do 7z a -mx9 "%%~nx.zip" "%%x"

this should compress the db3 and gpx files into files of the same name (and of course with a zip extension)
Title: Re: Can someone write a qb64 code for me?
Post by: rcamp48 on February 13, 2020, 09:35:09 am
The problem is that there is only one file in each zip file, say its an Atari 8 bit file atr file, it will have an extender of .atr, what I want to do is add a files.diz file to a temporary area with the one atr file in it and copy the long file name as a string , create the files.diz file with the correct filename and zip the 2 files back into one zip file. Basically I want to add a files.diz file to a zip file that has no diz files in it automatically, as when I add the fzip files with WcFile.exe from Wildcat 5.0 it will take the long filenames and shorten them to 8 chars.

Russ
Title: Re: Can someone write a qb64 code for me?
Post by: Petr on February 13, 2020, 02:06:06 pm
Use 7ZIP. It uses long file names correctly when decompressing. If you want to unzip with 7Z, enter 7z e [archive name.zip] at the command prompt, or for archive upgrade use 7z u [archive name.zip] [new file].

For long file name (DIZ content) use DIR /x /b > swap.txt, then open this file in QB for input, read record, write it to new diz file and add it as upgrade to zip file.

7Zip download: https://www.7-zip.org/download.html

IF YOU TRY TO ADD to archive unicode file name, use 8.3 format for 7z. Extracted content but then contains correct long name.
Title: Re: Can someone write a qb64 code for me?
Post by: Petr on February 14, 2020, 03:34:00 pm
Hi rcamp48,

I wrote the program (perhaps I understood the problem correctly). The program contains 7Zip files and the BAS program (source code and EXE file). Function Description:
Using the direntry.h library, the ZIP files in the current folder are written to memory (I don't have much time, so all the ZIP files are in a common folder with 7Z files), they are extracted one by one into the SWAP subfolder - just ATR files, here again using the direntry.h library, the name of the unpacked file is read and this name is written to the INFO.DIZ file. This file is then added to the ZIP archive using the command and 7Z parameters.

Because I don't own any real ATR files, I did a couple of them (a text file) and tested it with them. It seems to work properly. In the course of the work I thought of a faster procedure, but I did not want to deal with it again. There are ZIP files in the attached archive, see that without INFO.DIZ files, these files will be added to ZIP when the program starts.

I hope it will be useful.

A few problems while working on the program: the SWAP folder must be empty before running the program (the program is it solves, but I write it here in case you remodel it and interrupt the program while the files stay there, then 7Z seemingly sleep), the next thing to look at is that there is no info.diz file in the 7Z and BAS files directory.
Title: Re: Can someone write a qb64 code for me?
Post by: Petr on February 14, 2020, 05:32:18 pm
Small upgraded source code, for case, if ZIP archive contains not ATR file:
(just replace ruscam.bas from zip file with this source code)

Code: QB64: [Select]
  2.     FUNCTION load_dir& (s AS STRING)
  3.     FUNCTION has_next_entry& ()
  4.     SUB close_dir ()
  5.     SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)
  7.  
  8. REDIM Directories(0) AS STRING, File(0) AS STRING, ZIP(0) AS STRING
  9.  
  10. D$ = _CWD$ 'INSERT PATH HERE
  11.  
  12.  
  13.  
  14. SetPath D$
  15. GetFileList D$, Directories(), File()
  16.  
  17. 'search ZIP archives in current directory
  18. FOR s = 0 TO UBOUND(file)
  19.     separator$ = LCASE$(RIGHT$(File(s), 4))
  20.     IF separator$ = ".zip" THEN
  21.         REDIM _PRESERVE ZIP(i) AS STRING
  22.         ZIP(i) = File(s)
  23.         i = i + 1
  24.     END IF
  26.  
  27.  
  28. PRINT "In directory "; D$; " found this ZIP files:"
  30.     FOR ziplist = 0 TO i - 1
  31.         PRINT ZIP(ziplist)
  32.     NEXT
  34.     PRINT "NONE": END
  36.  
  37. PRINT "Detecting 7Z in directory "; D$
  38. IF _FILEEXISTS("7Z.exe") THEN PRINT " OK" ELSE PRINT " 7Z not found!": END
  40. PRINT "Auto decompressing ZIP archives, finding ATR files and upgrading ZIP files..."
  41. current$ = _CWD$
  42. IF _FILEEXISTS("info.diz") THEN KILL "info.diz"
  43.  
  44. FOR doall = 0 TO i - 1
  45.     PRINT "File: "; doall + 1; "/"; STR$(i)
  46.     c1$ = "7Z x -oswap " + _TRIM$(ZIP(doall)) + " *.atr"
  47.  
  48.     SHELL _HIDE c1$
  49.     CHDIR "swap"
  50.     _DELAY .5
  51.     EraseFileList Directories(), File()
  52.     GetFileList _CWD$, Directories(), File()
  53.  
  54.  
  55.     IF UBOUND(file) < 1 THEN
  56.         PRINT "None ATR file in ZIP archive, ZIP archive is not upgraded."
  57.         _CONTINUE
  58.     END IF
  59.  
  60.     SHELL _HIDE ("del *.atr")
  61.  
  62.     ff = FREEFILE
  63.     OPEN "info.diz" FOR OUTPUT AS #ff
  64.     PRINT #ff, File(1)
  65.  
  66.     PRINT "To ZIP file is add file info.diz, contains text: "; File(1)
  67.     CLOSE ff
  68.  
  69.  
  70.     c2$ = "7Z u " + _TRIM$(ZIP(doall)) + " info.diz"
  71.     NAME "info.diz" AS current$ + "\info.diz"
  72.     _DELAY .3
  73.     CHDIR current$
  74.     SHELL _HIDE c2$
  75.  
  76.     KILL "info.diz"
  78.  
  79.  
  80. SUB SetPath (p$)
  81.     L$ = RIGHT$(p$, 1)
  82.     $IF WIN THEN
  83.         IF L$ <> "\" THEN p$ = p$ + "\"
  84.     $ELSEIF LIN THEN
  85.         if L$ <> "/" then p$ = p$ + "/"
  86.     $END IF
  88.  
  89. SUB EraseFileList (directories() AS STRING, file() AS STRING)
  90.     REDIM directories(0) AS STRING
  91.     REDIM file(0) AS STRING
  93.  
  94. SUB GetFileList (SearchDirectory AS STRING, DirList() AS STRING, FileList() AS STRING)
  95.     CONST IS_DIR = 1
  96.     CONST IS_FILE = 2
  97.     DIM flags AS LONG, file_size AS LONG
  98.  
  99.     REDIM _PRESERVE DirList(100), FileList(100)
  100.     DirCount = 0: FileCount = 0
  101.  
  102.     IF load_dir(SearchDirectory) THEN
  103.         DO
  104.             length = has_next_entry
  105.             IF length > -1 THEN
  106.                 nam$ = SPACE$(length)
  107.                 get_next_entry nam$, flags, file_size
  108.                 IF (flags AND IS_DIR) OR _DIREXISTS(SearchDirectory + nam$) THEN
  109.                     DirCount = DirCount + 1
  110.                     IF DirCount > UBOUND(DirList) THEN REDIM _PRESERVE DirList(UBOUND(DirList) + 100)
  111.                     DirList(DirCount) = nam$
  112.                 ELSEIF (flags AND IS_FILE) OR _FILEEXISTS(SearchDirectory + nam$) THEN
  113.                     FileCount = FileCount + 1
  114.                     IF FileCount > UBOUND(filelist) THEN REDIM _PRESERVE FileList(UBOUND(filelist) + 100)
  115.                     FileList(FileCount) = nam$
  116.                 END IF
  117.             END IF
  118.         LOOP UNTIL length = -1
  119.         close_dir
  120.     ELSE
  121.     END IF
  122.     REDIM _PRESERVE DirList(DirCount)
  123.     REDIM _PRESERVE FileList(FileCount)
  125.  
Title: Re: Can someone write a qb64 code for me?
Post by: rcamp48 on March 08, 2020, 05:08:59 pm
Here is another version of the same program Pete.........  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Complete program for anyone that has n Atari Portfolio and a parallel interface on their PC and on their Atari Portfolio, you have to run the install file in the Transfolio 1.01 folder first, to decide whether or not you are using a 64 Bit interface or a 32 Bit interface ..... as far as I know programs compiled in 64 bit will work on 32 Bit ???? I am talking the exe files...

Russ
Text Only | Text with Attachments