Development of a program for automatic search for music and movies

[Petr]

I'm very pleased. I am very pleased with your help. I'm completely lost in mine code. I have to say that you know recursion much better than I can. Now I'm trying to figure out why subdirectories are missing in the list of folders in the last two directories. In any case, your programs are much clearer than mine.

I didn't realize one thing. That I have written the full path in array. So I'm not going to go back one directory level, so I don't need to write down the current nesting level. Now, looking at the BPlus and Steve code, I've figured it out. It just occurred to me now. I did it absolutely wrong.

I think, maybe... see to BPlus source. To MakeTree SUB. If is this SUB recursive running, then source list of arrays is deleted in next step (in recursive call), or not?

[bplus]

I just tried modified version of @SpriggsySpriggs, very nice!

According to his version, we are shooting for 607 sub-dirs, so 125 is definitely falling short.

[bplus]

@Petr

Glad to have cleared the "big head", working on your code did inspire me to try the recursive tree making.

I think, maybe... see to BPlus source. To MakeTree SUB. If is this SUB recursive running, then source list of arrays is deleted in next step (in recursive call), or not?

In recursive call (when setup properly), every new call to sub makes it's own set of variables including arrays, be careful with the calling parameters sometimes making a copy of them helps in case they get altered by code. Hey... is that what I missed?

The calls go down and down and down until no more down, then up one level and finish laterally, then up next level and finish that. I learned this by watching recursive drawings.

[SpriggsySpriggs]

I just tried modified version of @SpriggsySpriggs, very nice!
According to his version, we are shooting for 607 sub-dirs, so 125 is definitely falling short.

@bplus Perhaps not, actually. That version might have been bugged. Try this one:

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE
3. Path$ = _STARTDIR$
4. SHELL _HIDE "PowerShell Get-ChildItem -Path \" + CHR$(34) + Path$ + "\" + CHR$(34) + " -Recurse -Directory -Force -ErrorAction SilentlyContinue | Select-Object -ExpandProperty FullName | Format-Table -AutoSize | Out-File -FilePath directorylist.txt -Encoding ASCII"
5. DIRECTORIES = FREEFILE
6. n = 0
7.  
8. DIM Dirs(n) AS STRING
9. OPEN "directorylist.txt" FOR BINARY AS #DIRECTORIES
10. DO
11.     LINE INPUT #DIRECTORIES, Directory$
12.     Directory$ = LTRIM$(RTRIM$(String.Remove(Directory$, CHR$(13))))
13.     n = n + 1
14.     REDIM _PRESERVE Dirs(n)
15.     Dirs(n) = Directory$
16. LOOP UNTIL EOF(DIRECTORIES)
17.  
18. FOR i = 1 TO UBOUND(Dirs)
19.     IF LEFT$(Dirs(i), _INSTRREV(Dirs(i), "\") - 1) <> LEFT$(Dirs(i - 1), _INSTRREV(Dirs(i - 1), "\") - 1) THEN
20.         h = h + 1
21.         a = Array_String.FirstOrDefault(Dirs(), LEFT$(Dirs(i), _INSTRREV(Dirs(i), "\") - 1), 1)
22.         PRINT h, Dirs(a)
23.     END IF
24. NEXT
25.  
26.  
27. FUNCTION String.Remove$ (a AS STRING, b AS STRING)
28.     DIM c AS STRING
29.     c = ""
30.     j = INSTR(a, b)
31.     IF j > 0 THEN
32.         r$ = LEFT$(a, j - 1) + c + String.Remove(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b)
33.     ELSE
34.         r$ = a
35.     END IF
36.     String.Remove = r$
37. END FUNCTION
38.  
39. FUNCTION Array_String.FirstOrDefault (SearchArray() AS STRING, SearchString AS STRING, contains AS INTEGER)
40.     FOR i = LBOUND(SearchArray) TO UBOUND(SearchArray)
41.         IF contains = 1 THEN
42.             IF INSTR(SearchArray(i), SearchString) THEN
43.                 Array_String.FirstOrDefault = i
44.                 EXIT FUNCTION
45.             END IF
46.         ELSEIF contains = 0 THEN
47.             IF SearchArray(i) = SearchString THEN
48.                 Array_String.FirstOrDefault = i
49.                 EXIT FUNCTION
50.             END IF
51.         END IF
52.     NEXT
53. END FUNCTION

[Petr]

Hi SpriggsySpriggs, your program create empty file directorylist.txt here.

Which PowerShell version is need? I use Win 7.

[SpriggsySpriggs]

Hi SpriggsySpriggs, your program create empty file directorylist.txt here.

That would probably be because your PowerShell failed and didn't create a file. Don't end the Path$ with a backslash. The backslash is an escape character to escape the quotes in the SHELL string and pass the quoted path. If you add a backslash it fails unless you add two.

[bplus]

@bplus Perhaps not, actually. That version might have been bugged. Try this one:

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE
3. Path$ = _STARTDIR$
4. SHELL _HIDE "PowerShell Get-ChildItem -Path \" + CHR$(34) + Path$ + "\" + CHR$(34) + " -Recurse -Directory -Force -ErrorAction SilentlyContinue | Select-Object -ExpandProperty FullName | Format-Table -AutoSize | Out-File -FilePath directorylist.txt -Encoding ASCII"
5. DIRECTORIES = FREEFILE
6. n = 0
7.  
8. DIM Dirs(n) AS STRING
9. OPEN "directorylist.txt" FOR BINARY AS #DIRECTORIES
10. DO
11.     LINE INPUT #DIRECTORIES, Directory$
12.     Directory$ = LTRIM$(RTRIM$(String.Remove(Directory$, CHR$(13))))
13.     n = n + 1
14.     REDIM _PRESERVE Dirs(n)
15.     Dirs(n) = Directory$
16. LOOP UNTIL EOF(DIRECTORIES)
17.  
18. FOR i = 1 TO UBOUND(Dirs)
19.     IF LEFT$(Dirs(i), _INSTRREV(Dirs(i), "\") - 1) <> LEFT$(Dirs(i - 1), _INSTRREV(Dirs(i - 1), "\") - 1) THEN
20.         h = h + 1
21.         a = Array_String.FirstOrDefault(Dirs(), LEFT$(Dirs(i), _INSTRREV(Dirs(i), "\") - 1), 1)
22.         PRINT h, Dirs(a)
23.     END IF
24. NEXT
25.  
26.  
27. FUNCTION String.Remove$ (a AS STRING, b AS STRING)
28.     DIM c AS STRING
29.     c = ""
30.     j = INSTR(a, b)
31.     IF j > 0 THEN
32.         r$ = LEFT$(a, j - 1) + c + String.Remove(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b)
33.     ELSE
34.         r$ = a
35.     END IF
36.     String.Remove = r$
37. END FUNCTION
38.  
39. FUNCTION Array_String.FirstOrDefault (SearchArray() AS STRING, SearchString AS STRING, contains AS INTEGER)
40.     FOR i = LBOUND(SearchArray) TO UBOUND(SearchArray)
41.         IF contains = 1 THEN
42.             IF INSTR(SearchArray(i), SearchString) THEN
43.                 Array_String.FirstOrDefault = i
44.                 EXIT FUNCTION
45.             END IF
46.         ELSEIF contains = 0 THEN
47.             IF SearchArray(i) = SearchString THEN
48.                 Array_String.FirstOrDefault = i
49.                 EXIT FUNCTION
50.             END IF
51.         END IF
52.     NEXT
53. END FUNCTION

This has obvious errors from get go InForm files. What did you think was buggy from first version?

[SpriggsySpriggs]

Well I was getting

This has obvious errors from get go InForm files. What did you think was buggy from first version?

I don't get two InForm folders when I run it. Did you change any of the logic unintentionally? From my first version I would get around 700 directories. This version gets around 200 on mine right now. That seems to be more consistent with what you and Petr found.
Oh crap, I think I see something wrong. Maybe permissions? Apologies, let me investigate further.

[SpriggsySpriggs]

Shoot, yeah there is something wrong. 700 folders actually is correct for what I should have on my PC. My logic is wrong in the loop. I'll post a different version later. So sorry!

[bplus]

@SpriggsySpriggs

I ran your 2nd version from a straight copy/paste from forum. It is possible the forum editor changed something.

BTW what determines the Console Width, man Spriggsy, yours looks to have acre's of room!

Don't go by my Tree, I was getting (125 sub-dirs), kind of fails to get more sub-Folders after License (that has no sub-dirs).

Time for an independent evaluation of QB64 folder, I am thinking your first was right. ;-) too!

[SpriggsySpriggs]

@SpriggsySpriggs

I ran your 2nd version from a straight copy/paste from forum. It is possible the forum editor changed something.

BTW what determines the Console Width, man Spriggsy, yours looks to have acre's of room!

Don't go by my Tree, I was getting (125 sub-dirs), kind of fails to get more sub-Folders after License (that has no sub-dirs).

Time for an independent evaluation of QB64 folder, I am thinking your first was right. ;-) too!

The first one was literally just reading in the file and then printing the results. It doesn't quite follow the tree structure, though. I'm going to have to see about how to make PowerShell organize it as such or how to sort the array (argh). So yeah, more work :( Thank you for catching that issue.

[SpriggsySpriggs]

@SpriggsySpriggs
I ran your 2nd version from a straight copy/paste from forum. It is possible the forum editor changed something.

@bplus It wasn't your fault at all. I neglected to sort the items. They were there all along! I sorted them using the SHELL with Sort-Object and now they are in the correct recursive order and with the 700~ directories. Check it out:

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE
3. Path$ = _STARTDIR$
4. SHELL _HIDE "PowerShell Get-ChildItem -Path \" + CHR$(34) + Path$ + "\" + CHR$(34) + " -Recurse -Directory -Force -ErrorAction SilentlyContinue | Select-Object -ExpandProperty FullName | Sort-Object | Format-Table -AutoSize | Out-File -FilePath directorylist.txt -Encoding ASCII"
5. DIRECTORIES = FREEFILE
6. n = 0
7.  
8. DIM Dirs(n) AS STRING
9. OPEN "directorylist.txt" FOR BINARY AS #DIRECTORIES
10. DO
11.     LINE INPUT #DIRECTORIES, Directory$
12.     Directory$ = LTRIM$(RTRIM$(STRING.Remove(Directory$, CHR$(13))))
13.     n = n + 1
14.     REDIM _PRESERVE Dirs(n)
15.     Dirs(n) = Directory$
16. LOOP UNTIL EOF(DIRECTORIES)
17. CLOSE #DIRECTORIES
18. FOR i = 1 TO UBOUND(Dirs)
19.     PRINT i, Dirs(i)
20. NEXT
21.  
22.  
23. FUNCTION STRING.Remove$ (a AS STRING, b AS STRING)
24.     DIM c AS STRING
25.     c = ""
26.     j = INSTR(a, b)
27.     IF j > 0 THEN
28.         r$ = LEFT$(a, j - 1) + c + STRING.Remove(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b)
29.     ELSE
30.         r$ = a
31.     END IF
32.     STRING.Remove = r$
33. END FUNCTION

[SpriggsySpriggs]

@SpriggsySpriggs
BTW what determines the Console Width, man Spriggsy, yours looks to have acre's of room!

I just maximized the console window. I'm on a 24 inch monitor so I guess that's why I have so much space.

[bplus]

Ah maximize window, yeah that helps, only one Directory doesn't fit on line then for me.

I get 607 folders. I don't think I've added any folders to QB64 folder, plenty of files but no folders. What is the difference I wonder. Update: oh I thought it was 700+ the first time, no, same as first 607. OK consistency is good!

I've been messing with my recursive thing, got the recursive up to 267 files was it? but forgot what I did.
Man I am making little changes to variables and getting differences in counts, but nothing like 600 listings.

Oh! I might be loosing folders with decimal points!

[SpriggsySpriggs]

Or, alternatively, this:

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE
3.  
4. Path$ = "C:\Program Files (x86)\Steam\steamapps\common"
5. SHELL _HIDE "PowerShell Tree \" + CHR$(34) + Path$ + "\" + CHR$(34) + " /a | Select-Object -Skip 2 | Set-Content tree.txt"
6. tree = FREEFILE
7. OPEN "tree.txt" FOR BINARY AS #tree
8. DO
9.     LINE INPUT #tree, branch$
10.     PRINT branch$
11. LOOP UNTIL EOF(tree)
12. CLOSE #tree
13. FUNCTION STRING.Remove$ (a AS STRING, b AS STRING)
14.     DIM c AS STRING
15.     c = ""
16.     j = INSTR(a, b)
17.     IF j > 0 THEN
18.         r$ = LEFT$(a, j - 1) + c + STRING.Remove(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b)
19.     ELSE
20.         r$ = a
21.     END IF
22.     STRING.Remove = r$
23. END FUNCTION

PowerShell has a built in function for displaying folders and files in a tree format