Posts: 2,698
Threads: 327
Joined: Apr 2022
Reputation:
217
03-14-2024, 04:10 AM
(This post was last modified: 03-14-2024, 10:47 PM by SMcNeill .)
Code: (Select All)
Screen _NewImage 800 , 600 , 32 )'$Console:Only Type Name As String As String End Type ReDim Shared 10000 ) As ReDim Shared 10000 ) As Screen _NewImage 1280 , 720 , 32 )GetFontList GetMonoFontList -1 'number our quick list 20 'number of lines to print to the screen 50 'width to print to the screen Do Cls _Limit 30 _KeyHit Select Case Case 20480 : s = s + 1 : If UBound Then UBound Case 18432 : s = s - 1 : If 0 Then 0 End Select Locate 3 , 20 : Print "FONT NAME" Locate 3 , 70 : Print "FILE NAME" Locate 5 1 For To If Then LTrim$ Str$ ") " Locate 10 : Print Left$ Name Locate 70 : Print Left$ Next Locate 28 , 15 : Print "MONOSPACE FONT NAME" Locate 28 , 70 : Print "FILE NAME" Locate 30 For 0 To UBound If Then LTrim$ Str$ ") " Locate 10 : Print Left$ Name Locate 70 : Print Left$ Next _Display Loop Until 27 System Sub GetFontList Shell _Hide "Powershell -command " + Chr$ 34 ) + "$Host.UI.RawUI.BufferSize = New-Object Management.Automation.Host.Size (200, 50); Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts'|Out-File -Encoding Ascii 'temp_fontlist.txt'" + Chr$ 34 )If _FileExists "temp_fontlist.txt" ) Then FreeFile Open "temp_fontlist.txt" For Binary As Do Until EOF 1 )Line Input InStr ":" )_Trim$ Left$ 1 ))_Trim$ Mid$ 1 ))If "PSPath" Then If "" Then ' skip the blank space lines Name 1 End If Else Exit Do ' we can stop reading files at this point (according to my tests) End If Loop Close Kill "temp_fontlist.txt" ' clean up the file after we're done with parsing it. 1 ' adjust for that last count + 1, which we didn't use. ReDim _Preserve As 'a quick and simple combsort to make certain our list is in alphabetical order Do 10 * gap \ 13 If 1 Then 1 0 0 Do If Name Name Then Swap Name Name Swap -1 End If 1 Loop Until Loop Until 1 And 0 Else 'very poor error handling here Print "Powershell failed to create font list." Beep Sleep Exit Sub End If End Sub Sub GetMonoFontList UBound 0 _Font For 0 To If UCase$ Right$ 4 )) = ".FON" Then _Continue _LoadFont 12 )_Font 'no need to check all characters. I chose to just check the ones that tend to vary the greatest _PrintWidth "W" ): pw1 = _PrintWidth "l" )If Then _PrintWidth " " )If Then _PrintWidth "." )If Then Name Name 1 End If End If End If _Font _FreeFont Next 1 If 0 Then ReDim _Preserve As End Sub
The above will generate, sort, and display a list of all the fonts which is installed on an user's Windows PC. This gives you both the font name and style (such as "Courier New Bold"), as well as the filename ("courbd.ttf", in this case).
(Code updated to the latest version in this thread, which should have fixes for terminal vs console, and also for too small of a console/terminal size.)
Posts: 1,272
Threads: 119
Joined: Apr 2022
Reputation:
100
03-14-2024, 04:33 AM
(This post was last modified: 03-14-2024, 04:38 AM by TerryRitchie .)
Very useful! Thank you.
Attached Files temp.txt (Size: 411.58 KB / Downloads: 23)
New to QB64pe? Visit the QB64 tutorial to get started.
QB64 Tutorial
Posts: 2,698
Threads: 327
Joined: Apr 2022
Reputation:
217
03-14-2024, 04:47 AM
(This post was last modified: 03-14-2024, 04:49 AM by SMcNeill .)
Looks like you're getting wide text characters. Give this version a quick try:
Code: (Select All)
Type Name As String As String End Type ReDim Shared 10000 ) As Screen _NewImage 1280 , 720 , 32 )GetFontList For 0 To UBound Print Name Next Sub GetFontList Shell _Hide "Powershell Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts'|Out-File -Encoding Ascii 'temp_fontlist.txt'" FreeFile Open "temp_fontlist.txt" For Binary As Do Until EOF 1 )Line Input InStr ":" )_Trim$ Left$ 1 ))_Trim$ Mid$ 1 ))If "PSPath" Then Name 1 Else 1 Exit Do End If Loop Close Kill "temp_fontlist.txt" ReDim _Preserve As 'a quick and simple combsort to make certain our list is in alphabetical order Do 10 * gap \ 13 If 1 Then 1 0 0 Do If Name Name Then Swap Name Name Swap -1 End If 1 Loop Until Loop Until 1 And 0 End Sub
To give an idea of what the output should look like, it should resemble something similar to this:
Code: (Select All)
Arial (TrueType) : arial.ttf
Posts: 1,272
Threads: 119
Joined: Apr 2022
Reputation:
100
This one does not create the temp_fontlist.txt file on my drive.
New to QB64pe? Visit the QB64 tutorial to get started.
QB64 Tutorial
Posts: 2,698
Threads: 327
Joined: Apr 2022
Reputation:
217
03-14-2024, 05:12 AM
(This post was last modified: 03-14-2024, 05:14 AM by SMcNeill .)
A version with a scrollable listing. Just use arrow keys to scroll up and down.
Code: (Select All)
Type Name As String As String End Type ReDim Shared 10000 ) As Screen _NewImage 1280 , 720 , 32 )GetFontList -1 'number our quick list 20 'number to print to the screen 50 'width to print to the screen Do Cls _Limit 30 _KeyHit Select Case Case 20480 : s = s + 1 : If UBound Then UBound Case 18432 : s = s - 1 : If 0 Then 0 End Select Locate 10 1 For To If Then LTrim$ Str$ ") " Locate 10 : Print Left$ Name Locate 70 : Print Left$ Next _Display Loop Until 27 Sub GetFontList Shell _Hide "Powershell Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts'|Out-File -Encoding Ascii 'temp_fontlist.txt'" FreeFile Open "temp_fontlist.txt" For Binary As Do Until EOF 1 )Line Input InStr ":" )_Trim$ Left$ 1 ))_Trim$ Mid$ 1 ))If "PSPath" Then 'we can stop reading files at this point (according to my tests) If "" Then 'skip the blank space lines Name 1 End If Else 1 Exit Do End If Loop Close Kill "temp_fontlist.txt" ReDim _Preserve As 'a quick and simple combsort to make certain our list is in alphabetical order Do 10 * gap \ 13 If 1 Then 1 0 0 Do If Name Name Then Swap Name Name Swap -1 End If 1 Loop Until Loop Until 1 And 0 End Sub (03-14-2024, 04:54 AM) TerryRitchie Wrote:
What does this single line do when you run it from a command prompt?
Code: (Select All)
Powershell Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts'|Out-File -Encoding Ascii 'temp_fontlist.txt
This should create the temp_fontlist.txt file for you. If it doesn't, it might be a difference in powershell commands from windows 7 to windows 11? I'll have to dig deeper to see what may have changed with it over the various versions.
Posts: 1,272
Threads: 119
Joined: Apr 2022
Reputation:
100
03-14-2024, 05:15 AM
(This post was last modified: 03-14-2024, 05:19 AM by TerryRitchie .)
Still not creating the temp file for me. I also get subscript out of range in line 67 (due to no temp file to load from).
(03-14-2024, 05:12 AM) SMcNeill Wrote: Code: (Select All)
Powershell Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts'|Out-File -Encoding Ascii 'temp_fontlist.txt
See screen shot below.
Attached Files Image(s)
New to QB64pe? Visit the QB64 tutorial to get started.
QB64 Tutorial
Posts: 2,698
Threads: 327
Joined: Apr 2022
Reputation:
217
Last thing I can think of to check, at the moment, is: Does it have admin priveldges?
Posts: 1,272
Threads: 119
Joined: Apr 2022
Reputation:
100
(03-14-2024, 05:32 AM) SMcNeill Wrote:
Yep, it's an admin CMD prompt opened (caption in image above).
New to QB64pe? Visit the QB64 tutorial to get started.
QB64 Tutorial
Posts: 2,698
Threads: 327
Joined: Apr 2022
Reputation:
217
03-14-2024, 05:51 AM
(This post was last modified: 03-14-2024, 05:56 AM by SMcNeill .)
@TerryRitchie I think I've got it sorted out -- you're shelling out to command prompt and not terminal. Give this a run from the command line, like you did above, and see if you still get the error message:
Code: (Select All)
cmd "Powershell Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts'|Out-File -Encoding Ascii 'temp_fontlist.txt'"
(You can see the difference in the two methods above with command prompt. The first tosses the error like you're experiencing. The second runs with no issues.
)
so the change with the code I've been sharing should be just to make certain to add that "cmd" to the front of that shell statement, as we see above.
Posts: 2,698
Threads: 327
Joined: Apr 2022
Reputation:
217
Code: (Select All)
Type Name As String As String End Type ReDim Shared 10000 ) As Screen _NewImage 1280 , 720 , 32 )GetFontList -1 'number our quick list 20 'number to print to the screen 50 'width to print to the screen Do Cls _Limit 30 _KeyHit Select Case Case 20480 : s = s + 1 : If UBound Then UBound Case 18432 : s = s - 1 : If 0 Then 0 End Select Locate 10 1 For To If Then LTrim$ Str$ ") " Locate 10 : Print Left$ Name Locate 70 : Print Left$ Next _Display Loop Until 27 Sub GetFontList Shell _Hide "Powershell -command " + Chr$ 34 ) + "Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts'|Out-File -Encoding Ascii 'temp_fontlist.txt'" + Chr$ 34 )FreeFile Open "temp_fontlist.txt" For Binary As Do Until EOF 1 )Line Input InStr ":" )_Trim$ Left$ 1 ))_Trim$ Mid$ 1 ))If "PSPath" Then 'we can stop reading files at this point (according to my tests) If "" Then 'skip the blank space lines Name 1 End If Else 1 Exit Do End If Loop Close 'Kill "temp_fontlist.txt" ReDim _Preserve As 'a quick and simple combsort to make certain our list is in alphabetical order Do 10 * gap \ 13 If 1 Then 1 0 0 Do If Name Name Then Swap Name Name Swap -1 End If 1 Loop Until Loop Until 1 And 0 End Sub
I'm thinking the above version should work with either command prompt or terminal, with zero issues. Give it a try if you have a chance, and if it works as advertised this time, I'll go in and correct the original post and clean up the other versions from there to here, just to keep it from being confusing for others and hard to understand.
I honestly think, this whole time, the issue was nothing more than shelling out to CMD vs shelling out to Terminal, and the way they try and process the input.
)