Read & Print the Type from your bas source

[bplus]

Proof of concept, proved!

Code: QB64: [Select]

1. _Title "Read Type test" 'b+ 2022-01-09
2.  
3. Type ButtonData
4.     Caption As String
5.     Department As String
6.     Group As String
7.     Price As Integer
8.     TaxRate As Integer
9.     Printer As Integer
10.     Colour_Red As Integer
11.     Colour_Green As Integer
12.     Colour_Blue As Integer
13. End Type
14.  
15. Print myType$("Read Type test.bas")
16.  
17.  
18. Function myType$ (file$) ' for proof of concept assuming one type to get
19.     If _FileExists(file$) Then
20.         Open file$ For Input As #1
21.         While Not EOF(1)
22.             Line Input #1, fl$
23.             If Left$(fl$, 4) = "Type" Then
24.                 While Left$(fl$, 8) <> "End Type"
25.                     Line Input #1, fl$
26.                     If b$ = "" Then
27.                         b$ = _Trim$(Mid$(fl$, 1, InStr(fl$, " A"))) ' hmmm does trim$ do tabs?
28.                     Else
29.                         b$ = b$ + Chr$(10) + _Trim$(Mid$(fl$, 1, InStr(fl$, " A")))
30.                     End If
31.                 Wend
32.                 myType$ = b$
33.                 Close #1
34.                 Exit Function
35.             End If
36.         Wend
37.     End If
38. End Function
39.  

Remember to save this to disk before trying.

edit: add close #1
edit: exit function when you got what you came for