Can someone write a qb64 code for me?

[rcamp48]

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

[Real2Two]

I've never found a way to unzip files with qb64. This might be hard to do.

[krovit]

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...

[TerryRitchie]

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.

[Real2Two]

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).

[Petr]

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)

[rcamp48]

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

[Petr]

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.

[Petr]

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.

[Petr]

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]

1. DECLARE CUSTOMTYPE LIBRARY ".\direntry"
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)
6. END DECLARE
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
25. NEXT s
26.  
27.  
28. PRINT "In directory "; D$; " found this ZIP files:"
29. IF i THEN
30.     FOR ziplist = 0 TO i - 1
31.         PRINT ZIP(ziplist)
32.     NEXT
33. ELSE
34.     PRINT "NONE": END
35. END IF
36.  
37. PRINT "Detecting 7Z in directory "; D$
38. IF _FILEEXISTS("7Z.exe") THEN PRINT " OK" ELSE PRINT " 7Z not found!": END
39. SLEEP
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"
77. NEXT
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
87. END SUB
88.  
89. SUB EraseFileList (directories() AS STRING, file() AS STRING)
90.     REDIM directories(0) AS STRING
91.     REDIM file(0) AS STRING
92. END SUB
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)
124. END SUB
125.  

[rcamp48]

Here is another version of the same program Pete.........  [ You are not allowed to view this attachment ]  
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