sprite editor

[Petr]

ls *.bas > files.txt works just fine and the list is sorted...

Johnno56, please add this file as an attachment, and I will work on it.  If you just want to browse the current folder, do this list without subdirectory names, but if you want to browse disk, then do it with subdirectory names. I want it to see how Linux marks folders (windows writes <DIR>) and whether the file contains characters for text formatting or not and also whether it contains a header or not. Because your editor will probably support more than just one format, you can not use the mask as * .BMP> file.txt, but better *. * , the appropriate files will then be filtered in program from this listing. So my program return then output for all PNG, BMP, JPG, GIF from this one text file.

[johnno56]

Another slight wrinkle. Unlike Windows, Linux is VERY particular with filenames, especially being case sensitive. For example: if Windows sees a file TeSt.TxT chances are it will see it as test.txt or TEST.TXT... Not with Linux. If the file test.txt exists and Linux is searching for TEST.TXT the test.txt file will be ignored.

If you want to see directories, the "ls" command will need to be told to include them. I am not familiar with all of the parameters for the "ls" command. This one I have used to create the file 'ls -l -a *.* > myfiles.txt

In the file, the character "d" at the begining of each record, indicates a directory.

I hope this helps.

J

[Petr]

Thank you. I'll try what I can do with it.

[Petr]

Johnno56, please try, if this first code works for you. It show you directories and files with mask *.BMP, *.JPG, *.PNG, *.GIF (regardless of the font size). If this work, I can proceed to the next stage and add it to the user interface for selecting files and directories. If there is a bug, write to me what the program does not like. Thank you.

Code: QB64: [Select]

1. IF INSTR(1, _OS$, "WINDOWS") THEN cmd$ = "DIR >filelist.txt": user = 0
2. IF INSTR(1, _OS$, "LINUX") THEN cmd$ = "ls -l -a *.* >filelist.txt": user = 1
3.  
4.  
5. 'user = 1
6.  
7. SHELL cmd$ 'commented, because you use Linux
8.  
9. IF _FILEEXISTS("filelist.txt") THEN
10.     SELECT CASE user
11.         CASE 0 '                                                 windows
12.             F = FREEFILE
13.             OPEN "filelist.txt" FOR INPUT AS #F
14.  
15.             DO WHILE NOT EOF(F)
16.                 LINE INPUT #F, value$
17.                 infilePos = infilePos + 1
18.                 IF infilePos > 4 THEN
19.                     IF INSTR(1, value$, "<DIR>") THEN
20.                         REDIM _PRESERVE Directories(D) AS STRING:
21.                         Directories(D) = MID$(value$, 36, LEN(value$) - 35)
22.                         D = D + 1
23.                     ELSE
24.                         REDIM _PRESERVE Filess(Fi) AS STRING:
25.                         Filess(Fi) = MID$(value$, 36, LEN(value$) - 35)
26.                         Fi = Fi + 1
27.                     END IF
28.                 END IF
29.             LOOP
30.             REDIM _PRESERVE Filess(Fi - 3) AS STRING 'delete 3 last records, because this are not files but summary in file
31.  
32.         CASE 1 '                                                 linux
33.  
34.             F = FREEFILE
35.             OPEN "filelist.txt" FOR INPUT AS #F
36.  
37.             DO WHILE NOT EOF(F)
38.                 LINE INPUT #F, value$
39.                 infilePos = infilePos + 1
40.                 IF infilePos > 1 THEN '                                 first line cotains "total...."
41.                     IF LEFT$(value$, 1) = "d" THEN
42.                         REDIM _PRESERVE Directories(D) AS STRING:
43.                         Directories(D) = MID$(value$, 46, LEN(value$) - 45)
44.                         D = D + 1
45.                     ELSE
46.                         REDIM _PRESERVE Filess(Fi) AS STRING:
47.                         Filess(Fi) = MID$(value$, 46, LEN(value$) - 45)
48.                         Fi = Fi + 1
49.                     END IF
50.                 END IF
51.             LOOP
52.             REDIM _PRESERVE Filess(Fi - 1) AS STRING 'last record is empty line in Linux
53.  
54.  
55.  
56.  
57.  
58.  
59.  
60.  
61.  
62.     END SELECT
63. ELSE BEEP: PRINT "Error: filelist.txt file not found"
64.  
65. END IF
66.  
67. Filter Filess(), "BMP JPG GIF PNG"
68.  
69. COLOR 14: PRINT "Directories list:": COLOR 7
70. FOR Dl = 0 TO UBOUND(directories)
71.     PRINT Directories(Dl)
72.     IF Dl MOD 21 = 0 AND Dl > 0 THEN SLEEP: CLS: COLOR 14: PRINT "Directories list:": COLOR 7
73. NEXT Dl
74.  
75. COLOR 14: PRINT "Files list:": COLOR 7
76. FOR Dl = 0 TO UBOUND(filess)
77.     PRINT Filess(Dl)
78.     IF Dl MOD 21 = 0 AND Dl > 0 THEN SLEEP: CLS: COLOR 14: PRINT "Files list:": COLOR 7
79. NEXT Dl
80.  
81.  
82.  
83.  
84.  
85.  
86.  
87.  
88.  
89.  
90.  
91.  
92.  
93.  
94. SUB Filter (fil() AS STRING, mask AS STRING)
95.     FOR S = 1 TO LEN(mask$)
96.         N = INSTR(S, mask$, " ")
97.         oldmask$ = newmask$
98.         newmask$ = MID$(mask$, N + 1, 3)
99.         IF newmask$ <> oldmask$ THEN
100.             REDIM _PRESERVE listmask(li) AS STRING
101.             listmask(li) = newmask$
102.             li = li + 1
103.         END IF
104.     NEXT S
105.  
106.     'sort files in array by mask:
107.     DIM newfil(0) AS STRING
108.     FOR Sort = 0 TO UBOUND(fil)
109.         ext$ = RIGHT$(fil(Sort), 3)
110.         FOR Searchmask = 0 TO UBOUND(listmask)
111.             IF UCASE$(ext$) = UCASE$(listmask(Searchmask)) THEN
112.                 REDIM _PRESERVE newfil(nn) AS STRING
113.                 newfil(nn) = fil(Sort): nn = nn + 1
114.             END IF
115.         NEXT
116.     NEXT
117.  
118.     'replace incomming array with filtered content:
119.     REDIM fil(nn - 1) AS STRING
120.     FOR rewr = 0 TO nn - 1
121.         fil(rewr) = newfil(rewr)
122.     NEXT rewr
123.     ERASE newfil
124.     ERASE listmask
125. END SUB
126.  

[johnno56]

Error on line: "FOR Dl = 0 TO UBOUND(directories)"

Subscipt out of range

The filelist.txt file is created. Screen clears and only "Directories List:" is displayed then the error appears.

[Petr]

That's weird. It seems that the program found nothing in the file. Try this, it write how much  directories and files he found in file. Please add the created filelist.txt file. Thank you.

Code: QB64: [Select]

1. IF INSTR(1, _OS$, "WINDOWS") THEN cmd$ = "DIR >filelist.txt": user = 0
2. IF INSTR(1, _OS$, "LINUX") THEN cmd$ = "ls -l -a *.* >filelist.txt": user = 1
3.  
4.  
5. 'user = 1
6.  
7. SHELL cmd$
8.  
9. IF _FILEEXISTS("filelist.txt") THEN
10.     SELECT CASE user
11.         CASE 0 '                                                 windows
12.             F = FREEFILE
13.             OPEN "filelist.txt" FOR INPUT AS #F
14.  
15.             DO WHILE NOT EOF(F)
16.                 LINE INPUT #F, value$
17.                 infilePos = infilePos + 1
18.                 IF infilePos > 4 THEN
19.                     IF INSTR(1, value$, "<DIR>") THEN
20.                         REDIM _PRESERVE Directories(D) AS STRING:
21.                         Directories(D) = MID$(value$, 36, LEN(value$) - 35) 'every windows language version have set this differently. So if you see nonsense, modify this 36 and 35 numbers.
22.                         D = D + 1
23.                     ELSE
24.                         REDIM _PRESERVE Filess(Fi) AS STRING:
25.                         Filess(Fi) = MID$(value$, 36, LEN(value$) - 35)
26.                         Fi = Fi + 1
27.                     END IF
28.                 END IF
29.             LOOP
30.             REDIM _PRESERVE Filess(Fi - 3) AS STRING 'delete 3 last records, because this are not files but summary in file
31.  
32.         CASE 1 '                                                 linux
33.  
34.             F = FREEFILE
35.             OPEN "filelist.txt" FOR INPUT AS #F
36.  
37.             DO WHILE NOT EOF(F)
38.                 LINE INPUT #F, value$
39.                 infilePos = infilePos + 1
40.                 IF infilePos > 1 THEN '                                 first line cotains "total...."
41.                     IF LEFT$(value$, 1) = "d" THEN
42.                         REDIM _PRESERVE Directories(D) AS STRING:
43.                         Directories(D) = MID$(value$, 46, LEN(value$) - 45)
44.                         D = D + 1
45.                     ELSE
46.                         REDIM _PRESERVE Filess(Fi) AS STRING:
47.                         Filess(Fi) = MID$(value$, 46, LEN(value$) - 45)
48.                         Fi = Fi + 1
49.                     END IF
50.                 END IF
51.             LOOP
52.             REDIM _PRESERVE Filess(Fi - 1) AS STRING 'last record is empty line in Linux
53.  
54.         CASE ELSE
55.             BEEP: PRINT "OS error": SLEEP 2: END
56.     END SELECT
57. ELSE BEEP: PRINT "Error: filelist.txt file not found"
58.  
59. END IF
60.  
61. Filter Filess(), "BMP JPG GIF PNG"
62.  
63. COLOR 14: PRINT "Directories list:": COLOR 7
64. PRINT "Found directories:"; D - 1: SLEEP 2
65.  
66. FOR Dl = 0 TO UBOUND(directories)
67.     PRINT Directories(Dl)
68.     IF Dl MOD 21 = 0 AND Dl > 0 THEN SLEEP: CLS: COLOR 14: PRINT "Directories list:": COLOR 7
69. NEXT Dl
70.  
71. COLOR 14: PRINT "Files list:": COLOR 7
72. PRINT "Found files:"; Fi - 1: SLEEP 2 ' return total files, not files using correct mask
73. FOR Dl = 0 TO UBOUND(filess)
74.     PRINT Filess(Dl)
75.     IF Dl MOD 21 = 0 AND Dl > 0 THEN SLEEP: CLS: COLOR 14: PRINT "Files list:": COLOR 7
76. NEXT Dl
77.  
78.  
79.  
80.  
81.  
82.  
83.  
84.  
85.  
86.  
87.  
88.  
89.  
90.  
91. SUB Filter (fil() AS STRING, mask AS STRING)
92.     FOR S = 1 TO LEN(mask$)
93.         N = INSTR(S, mask$, " ")
94.         oldmask$ = newmask$
95.         newmask$ = MID$(mask$, N + 1, 3)
96.         IF newmask$ <> oldmask$ THEN
97.             REDIM _PRESERVE listmask(li) AS STRING
98.             listmask(li) = newmask$
99.             li = li + 1
100.         END IF
101.     NEXT S
102.  
103.     'sort files in array by mask:
104.     DIM newfil(0) AS STRING
105.     FOR Sort = 0 TO UBOUND(fil)
106.         ext$ = RIGHT$(fil(Sort), 3)
107.         FOR Searchmask = 0 TO UBOUND(listmask)
108.             IF UCASE$(ext$) = UCASE$(listmask(Searchmask)) THEN
109.                 REDIM _PRESERVE newfil(nn) AS STRING
110.                 newfil(nn) = fil(Sort): nn = nn + 1
111.             END IF
112.         NEXT
113.     NEXT
114.  
115.     'replace incomming array with filtered content:
116.     REDIM fil(nn - 1) AS STRING
117.     FOR rewr = 0 TO nn - 1
118.         fil(rewr) = newfil(rewr)
119.     NEXT rewr
120.     ERASE newfil
121.     ERASE listmask
122. END SUB
123.  

[johnno56]

This time a window popped displaying;
Directories list:
Found Directories:-1

Moments later an error:
Unhandled error #9
Line: 66 (in main module)
Subscipt out of range
Continue?
Yes No

[Petr]

Good. File size fileslist.txt is not 0 bytes? Please try this again.

Code: QB64: [Select]

1. IF INSTR(1, _OS$, "WINDOWS") THEN cmd$ = "DIR >filelist.txt": user = 0
2. IF INSTR(1, _OS$, "LINUX") THEN cmd$ = "ls -l -a *.* >filelist.txt": user = 1
3.  
4.  
5. 'user = 1
6.  
7. SHELL cmd$
8. _DELAY 1
9. IF _FILEEXISTS("filelist.txt") THEN
10.     SELECT CASE user
11.         CASE 0 '                                                 windows
12.             F = FREEFILE
13.             OPEN "filelist.txt" FOR INPUT AS #F
14.  
15.             DO WHILE NOT EOF(F)
16.                 LINE INPUT #F, value$
17.                 infilePos = infilePos + 1
18.                 IF infilePos > 4 THEN
19.                     IF INSTR(1, value$, "<DIR>") THEN
20.                         REDIM _PRESERVE Directories(D) AS STRING:
21.                         Directories(D) = MID$(value$, 36, LEN(value$) - 35) 'every windows language version have set this differently. So if you see nonsense, modify this 36 and 35 numbers.
22.                         D = D + 1
23.                     ELSE
24.                         REDIM _PRESERVE Filess(Fi) AS STRING
25.                         Filess(Fi) = MID$(value$, 36, LEN(value$) - 35)
26.                         Fi = Fi + 1
27.                     END IF
28.                 END IF
29.             LOOP
30.  
31.             REDIM _PRESERVE Filess(Fi - 3) AS STRING 'delete 3 last records, because this are not files but summary in file
32.             n:
33.         CASE 1 '                                                 linux
34.  
35.             F = FREEFILE
36.             OPEN "filelist.txt" FOR INPUT AS #F
37.             IF LOF(F) = 0 THEN BEEP: PRINT "Invalid file format. O bytes size found": END
38.             DO WHILE NOT EOF(F)
39.                 LINE INPUT #F, value$
40.                 infilePos = infilePos + 1
41.                 IF infilePos > 1 THEN '                                 first line cotains "total...."
42.                     IF LEFT$(value$, 1) = "d" THEN
43.                         REDIM _PRESERVE Directories(D) AS STRING
44.                         Directories(D) = MID$(value$, 46, LEN(value$) - 45)
45.                         D = D + 1
46.                     ELSE
47.                         REDIM _PRESERVE Filess(Fi) AS STRING
48.                         Filess(Fi) = MID$(value$, 46, LEN(value$) - 45)
49.                         Fi = Fi + 1
50.                     END IF
51.                 END IF
52.             LOOP
53.             REDIM _PRESERVE Filess(Fi - 1) AS STRING 'last record is empty line in Linux
54.  
55.         CASE ELSE
56.             BEEP: PRINT "OS error": SLEEP 2: END
57.     END SELECT
58. ELSE BEEP: PRINT "Error: filelist.txt file not found"
59.  
60. END IF
61.  
62. Filter Filess(), "BMP JPG GIF PNG", numfiles
63.  
64. COLOR 14: PRINT "Directories list:": COLOR 7
65. PRINT "Found directories:": SLEEP 2
66.  
67. IF D > 0 THEN
68.     FOR Dl = 0 TO UBOUND(directories)
69.         PRINT Directories(Dl)
70.         IF Dl MOD 21 = 0 AND Dl > 0 THEN SLEEP: CLS: COLOR 14: PRINT "Directories list:": COLOR 7
71.     NEXT Dl
72. ELSE PRINT "No directories found"
73. END IF
74.  
75. IF numfiles > 0 THEN
76.     COLOR 14: PRINT "Files list:": COLOR 7
77.     PRINT "Found files:"; numfiles: SLEEP 2 ' return total files, not files using correct mask
78.     FOR Dl = 0 TO UBOUND(filess)
79.         PRINT Filess(Dl)
80.         IF Dl MOD 21 = 0 AND Dl > 0 THEN SLEEP: CLS: COLOR 14: PRINT "Files list:": COLOR 7
81.     NEXT Dl
82. ELSE PRINT "No files found."
83. END IF
84. SLEEP 2
85.  
86. 'text file test:
87. PRINT "test created file:"
88. PRINT "file lenght is"; LOF(F)
89. CLOSE #F
90. OPEN "filelist.txt" FOR INPUT AS #1
91. PRINT "in file is writed:"; SEEK(1)
92. DO WHILE NOT EOF(1)
93.     LINE INPUT #1, ff$
94.     PRINT ff$
95. LOOP
96. CLOSE
97.  
98.  
99.  
100.  
101.  
102.  
103.  
104.  
105.  
106.  
107.  
108.  
109.  
110.  
111. SUB Filter (fil() AS STRING, mask AS STRING, nn)
112.     FOR S = 1 TO LEN(mask$)
113.         n = INSTR(S, mask$, " ")
114.         oldmask$ = newmask$
115.         newmask$ = MID$(mask$, n + 1, 3)
116.         IF newmask$ <> oldmask$ THEN
117.             REDIM _PRESERVE listmask(li) AS STRING
118.             listmask(li) = newmask$
119.             li = li + 1
120.         END IF
121.     NEXT S
122.  
123.     'sort files in array by mask:
124.     DIM newfil(0) AS STRING
125.     FOR Sort = 0 TO UBOUND(fil)
126.         ext$ = RIGHT$(fil(Sort), 3)
127.         FOR Searchmask = 0 TO UBOUND(listmask)
128.             IF UCASE$(ext$) = UCASE$(listmask(Searchmask)) THEN
129.                 REDIM _PRESERVE newfil(nn) AS STRING
130.                 newfil(nn) = fil(Sort): nn = nn + 1
131.             END IF
132.         NEXT
133.     NEXT
134.  
135.     'replace incomming array with filtered content:
136.     REDIM fil(nn - 1) AS STRING
137.     FOR rewr = 0 TO nn - 1
138.         fil(rewr) = newfil(rewr)
139.     NEXT rewr
140.     ERASE newfil
141.     ERASE listmask
142. END SUB
143.  

[Petr]

Maybe i found it.... add space on line 2:

Code: QB64: [Select]

1. IF INSTR(1, _OS$, "LINUX") THEN cmd$ = "ls -l -a *.* > filelist.txt": user = 1
2.  

maybe this is the problem, bacause i write it without space between > and filelist.txt

[johnno56]

That seems to have done the trick. No errors that time!

It said that it found directories but did not display them.
Found 8 files and displayed various graphics files of different formats.
Then displayed the filelist.

Maybe the list I provided is not what is needed. I will attach the "ls" command manual for you to read... It's not really a manual... That is what Linux calls it. It's about 2 or 3 pages long. Perhaps you can make some sense of it all... I'm getting too tired to think straight...

J

[bplus]

This app might be suited for InForm. Is there an example of with InForm catching mouse clicks over a picture box?

I know the Load button could made into a drop down list box when you guys manage to get files data from OS.

[bplus]

Another way to go for getting a pathed filename (to load):

Open a file explorer in your favorite OS

Then copy/paste a file name from clipboard Or just type the dang thing out.     I hear Linux users love to type. ;-))

[bplus]

Modify

More thoughts on using InForm:

Instead of loading a limited color palette, you could use 3 slider bars for RGB and create custom colors on the fly!

Think of all the code that could be slashed from the Sprite Editor with just that one move!

[bplus]

Modify

Hmm... I wonder about reversing that process, click a point from the blown up image and set color selector to that color (along with the slider bars).

[FellippeHeitor]

All of that sounds very possible with InForm indeed. Here's a sample that catches clicks on a picturebox control: https://www.qb64.org/forum/index.php?topic=254.0