|
|
Post by xxgeek on Apr 3, 2023 21:00:52 GMT -5
Here is a simple search engine to search the Liberty Basic help files, and the Code Examples files for keywords.
Created to help the newer members find specific information and code to help with learning the ins and outs of Liberty Basic.
If you create the tkn, you can add it to your Liberty Basic IDE menu under Run as an "External Program"
see the top of the code for instructions on it's use.
If you find any dead links in the results, please let me know so I can fix them.
If any other issues present themselves, please report in this thread.
Hope this helps the new LB coders with some of their questions.
EDIT - WARNING - Since this app can open some of Liberty Basics example files, we must use caution if/when we edit, and save.
- Use "Save As" to avoid corrupting the original code file
'Title = Liberty Basic Help Search
'Purpose = Search the Liberty Basic help files, and the Example files for keyword(s)
'_
'Author = xxgeek
'Date April 3 2023
' Instructions
' Just type a keyword and hit [ENTER] - no character minimum (Using 2, 3 and 4 characters works well)
' In the resulting list, click on a title. The help file selected will open in your browser
' When selecting Examples checkbox, the resulting list is example code Titles.
'These Titles open in Liberty Basic IDE
'WARNING - IF / When editting these code examples use "Save As" to avoid corrupting original files
'Help file results start with H_ for Help
'Example results start with CE for Code Example
'The + and the - are for adjusting font size (made for old guys like me)
'If you find any dead links in the results, please let me know so I can fix them.
'First we need the users home path
call getUserPath
'make sure Liberty Basic v4.5.1 is installed
if Version$ <> "4.5.1" then notice "Liberty BASIC 4.5.1 required" : end
WindowWidth = 228 : WindowHeight = 560
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
dim searchList$(2500), info$(0,0), oneOf$(2500)
global lbPath$, helpFilePath$, fontsize, q$, upath$, temp$
lbPath$ = "c:\Program Files (x86)\Liberty Basic v4.5.1"
lbexe$ = lbPath$;"\liberty.exe"
helpFilePath$ = lbPath$;"\lb4help\LibertyBASIC_4_web"
uAppPath$ = upath$;"\AppData\Roaming\Liberty Basic v4.5.1"
q$ = chr$(34)
'if not exist, copy the users 'lbasic451.ini' file to DefaultDir$ (the dir this file is running from)
'This is done to prevent the "World of Liberty Basic" window, with all the Links from opening
'when a Code file Example is opened in LB the IDE
if fileExists(uAppPath$, "lbasic451.ini") then
if fileExists(DefaultDir$, "lbasic451.ini") = 0 then
open uAppPath$;"\lbasic451.ini" for input as #1
open DefaultDir$;"\lbasic451.ini" for output as #2
#2 input$(#1, lof(#1)) : close #1 : close #2
end if
else
notice "Can't find the lbasic451.ini file = minor problem - continue on" : goto [checkpoint]
end if
[checkpoint]
'Check for lb help files existence - end program if false
if fileExists(helpFilePath$, helpFileMenu$)=0 then notice "Program Terminated";chr$(13) ; "Couldn't find the help files" : end
nomainwin
'Create the form - open the window
textbox #main.keyword 5, 0, 150, 20
listbox #main.resultsList, searchList$(, [openFile], 0, 23, 229, 440
checkbox #main.lbHelp, "LB-Help", [lbHelp], [nolbHelp], 20, 470, 70, 20
checkbox #main.lbexamples, "LB-Examples", [lbexamples], [nolbexamples], 100, 470, 120, 20
button #main.incFont, "&+", [incFont], UL, 80, 505, 20, 20
button #main.defFont, " &l ", [defFont], UL, 100, 505, 20, 20
button #main.decFont, "&-", [decFont], UL, 120, 505, 20, 20
button #main.default, "Search", [startSearching], UL, 160, 0, 55, 20
open "Search" for dialog_nf as #main
#main "trapclose [quit]"
#main "font Arial 10"
#main.resultsList "singleclickselect"
fontsize = 10
lbHelp = 1 : #main.lbHelp, "set"
wait
'set and reset checkboxes for search categories
[lbHelp] lbHelp = 1 : goto [search]
[nolbHelp] lbHelp = 0 : goto [search]
[lbexamples] lbexamples = 1 : goto [search]
[nolbexamples] lbexamples = 0 : goto [search]
'resize window font - sets all Listbox fonts equal
[incFont]
fontsize = fontsize + 1 : #main.resultsList "font Arial ";fontsize : goto [search]
[decFont]
fontsize = fontsize - 1 : #main.resultsList "font Arial ";fontsize : goto [search]
[defFont]
fontsize = 10 : #main.resultsList "font Arial ";fontsize : goto [search]
'The [Search] button was pressed, or after searching/changing font size etc, the program was directed back here.
[search]
#main.keyword "!enable" : #main.keyword "!selectall" : #main.keyword "!setfocus"
redim searchList$(2500)
redim oneOf$(2500)
searchFor$ = ""
done = 0
#main.keyword "!contents? searchFor$"
wait
[startSearching]
#main.keyword "!disable"
redim searchList$(15)
#main.keyword "!contents? searchFor$"
if searchFor$ = "" then [search]
searchList$(0) = " "
searchList$(1) = " "
searchList$(2) = " Searching"
searchList$(3) = " "
searchList$(4) = " Liberty Basic v4.5.1 Help"
searchList$(5) = " "
searchList$(6) =" For Files Containing "
searchList$(7) = " "
searchList$(8) = " "
searchList$(9) = " "
searchList$(10) = " ";upper$(searchFor$)
searchList$(11) =" "
searchList$(12) = " "
searchList$(13) = " "
searchList$(14) = " P L E A S E W A I T"
#main.resultsList "reload"
searchFor$=trim$(searchFor$)
count = 3
'search Liberty Basic help files
if lbHelp = 1 then
redim searchList$(2500)
files helpFilePath$;"\html", info$()
numFiles = val(info$(0,0 ))
for i = 1 to numFiles
fileToOpen$ = info$(i, 0)
open helpFilePath$;"\html\"; fileToOpen$ for input as #2
contents$ = input$(#2, lof(#2)) : close #2
if instr(lower$(contents$), lower$(searchFor$)) then
x = 1
if lower$(searchFor$) = "and" then oneOf$(count) = "H_AND" : count = count + 1
if lower$(searchFor$) = "not" then oneOf$(count) = "H_NOT" : count = count + 1
if lower$(searchFor$) = "xor" then oneOf$(count) = "H_XOR" : count = count + 1
if lower$(searchFor$) = "or" then oneOf$(count) = "H_OR" : count = count + 1
listName$ = helpFilePath$;"\html\"; fileToOpen$
open listName$ for input as #1 : isOpen = 1
while not(eof(#1))
scan
line input #1, name$
if x = 5 and lower$(left$(name$, 7)) = lower$("<TITLE>") then
name3$ = mid$(name$, 8, len(name$)-15) : if right$(name3$, 4) = "Etc." then name3$ = left$(name3$, len(name3$) - 1)
oneOf$(count) = "H_";name3$ : count = count + 1
end if'
if x = 8 and left$(lower$(name$), 7) = lower$("<TITLE>") then
name5$ = mid$(name$, 8, len(name$)-15)
oneOf$(count) = "H_";name5$ : count = count + 1
end if
if x = 12 and left$(name$ , 5) = "<P><A" then
name8$ = word$(name$, 2, "</A><B>") : name8$ = left$(name8$, len(name8$)-8)
oneOf$(count) = "H_";name8$ : count = count + 1
end if
if x = 14 and left$(name$ , 3) = "<P>" then
name7$ = mid$(name$, 4, len(name$)-7)
oneOf$(count) = "H_";name7$ : count = count + 1
end if
if x = 15 and right$(name$, 8) = "</B></P>" then
name11$ =word$(name$, 2, "B>") : name11$ = left$(name11$, len(name11$)-2)
oneOf$(count) = "H_";name11$ : count = count + 1
exit while
end if
if x = 15 then exit while
x = x + 1
wend
if isOpen = 1 then close #1 : isOpen = 0
end if
next i
end if
'Search the Liberty Basic Code Examples Files
if lbexamples = 1 then
files uAppPath$, "*.bas", info$()
numFiles = val(info$(0,0 ))
for i = 1 to numFiles
fileToOpen$ = info$(i, 0)
open uAppPath$;"\";fileToOpen$ for input as #2
contents$ = input$(#2, lof(#2)) : close #2
if instr(lower$(contents$), lower$(searchFor$)) then
name$ = upper$(fileToOpen$)
name$ = left$(name$, len(name$)-4)
oneOf$(count) = "CE_";name$ : count = count + 1
end if
next i
end if
'if no search results found
if count - 3 = 0 then
redim searchList$ (12)
searchList$(1) = " "
searchList$(2) = " Nothing found for:"
searchList$(3) = " "
searchList$(4) = " ";upper$(searchFor$)
searchList$(5) = " "
searchList$(6) = " "
searchList$(7) = " "
if lbexamples = 0 then searchList$(8) = " Try adding LB Examples"
searchList$(9) = " "
if lbexamples = 0 then searchList$(10) = " To the Search Engine"
searchList$(11) = " "
searchList$(12) = " "
#main.resultsList "reload"
cursor normal
goto [doneSearching]
end if
'sort the list of possible results
sort oneOf$(), 3, count
dim b$(count+1)
happened$="|"
K = 0
'filter out the false Titles (Due to differences in html help pages source code - Title not on same line in all files)
for i = 0 to count
name$ = oneOf$(i)
if right$(name$, 1) = ">" or right$(name$, 6) = "window" or left$(name$, 5) = "H_ame" or right$(name$, 8) = "position"_
or left$(name$, 5) = "H_GCO" or right$(name$, 1) = ":" or left$(name$, 3) = "H_<" _
or left$(name$, 3) = "H_"+chr$(39) or right$(name$, 1) = "." or right$(name$, 1) = " " or right$(name$, 8) = "[branch]"_
or right$(name$, 3) = "] )" or right$(name$, 3) = "] ]" or right$(name$, 6) = "items)" or name$ = "H_WHILE...WEND"_
or right$(name$, 5) = "size)" or right$(name$, 1) = ";" or right$(name$, 5) = "LEN=n" or right$(name$, 7) = "number)" _
or right$(name$, 7) = "#handle" or right$(name$, 4) = "varN" or right$(name$, 4) = "...)" or right$(name$, 2) = "];" _
or right$(name$, 1) = "v" or right$(name$, 8) = "fontSpec" or right$(name$, 7) = "expr2 )" or right$(name$, 2) = "))"_
or right$(name$, 12) = "variableName" or right$(name$, 4) = "num2"or right$(name$, 5) = ".bmp"+chr$(34)_
or right$(name$, 2) = chr$(34)+")" or right$(name$, 4) = "var"+chr$(36) or right$(name$, 4) = ",n])"_
or right$(name$, 4) = "expr" or right$(name$, 4) = "num2" or right$(name$, 9) = chr$(34)+"refresh"+chr$(34)_
or right$(name$, 3) = "g])" or right$(name$, 6) = "Label]" or right$(name$, 8) = "#handle)" or right$(name$, 9) = "String$ )"_
or right$(name$, 11) = "Expression)" or right$(name$, 10) = "expression" or right$(name$, 9) = "[number])"_
or right$(name$, 7) = "struct)" or right$(name$, 7) = "comment" or right$(name$, 12) = "recordNumber"_
or right$(name$, 5) = "size)" or right$(name$, 6) = "follow" or right$(name$, 6) = "mode ]" or right$(name$, 8) = "number )"_
or right$(name$, 8) = "[column]" or right$(name$, 10) = "#handle, n" or right$(name$, 2) = " 1" or right$((left$(name$, 7)), 5) = chr$(34)+"Font"_
or right$(name$, 9) = "{LEN = n}" or right$(name$, 5) = "Expr2" or right$(name$, 6) = "length"or word$(name$,2) = "stands"_
or right$(name$, 10) = "#newHandle" or right$(name$, 12) = "columns rows" or right$(name$, 5) = "Expr$"_
or left$(name$, 4) = "var =" or right$(name$, 6) = "xpr2 )" or left$(name$, 3) = "H_(" or right$(name$, 6) = chr$(34)+"name"+chr$(34) _
or right$(name$, 4) = "#h )" or right$(name$, 9) = "#handle )" or right$(name$, 1) = "€" or right$(name$, 1) = "."_
or name$ = "H_DO LOOP" or name$ = "H_FOR...NEXT" or name$ = "H_IF...THEN" or name$ = "H_Winstring" or right$(name$, 8) = "value"+chr$(34)+" )"_
or right$(name$,1) = "?" or right$(name$,3) = "c$)" or right$(name$,8) = "Keywords" or name$ ="H_BOOLEAN"_
or left$(name$, 3) = "H_&" or word$(name$, 2) = "number" or left$(name$, 11) = "H_Uninstall" or name$ = "H_"_
or name$ = "H_StartupDir" or name$ = "H_EVAL" or name$ = "H_EVAL$" or right$(name$, 4) = "face"_
or name$ = "H_REPLSTR" or name$ = "H_UPPER$(s)" or name$ = "H_LOWER$(s$)" or word$(name$,2) = "name," or word$(name$,2) = "#handle," then
oneOf$(i) = ""
end if
'remove any duplicates from search list (Thanks to tsh73)
if lower$(nameLast$) = lower$(name$) then oneOf$(i) = ""
if instr(happened$, "|";oneOf$(i);"|")=0 then
happened$=happened$;oneOf$(i);"|"
K=K+1: b$(K)=oneOf$(i)
end if
nameLast$ = name$
next i
'Create final list of search results
for x = 0 to K
if lower$(word$(b$(x), 2, "_")) = lower$(searchFor$) then match$ = b$(x)
if instr(lower$(b$(x)), lower$(searchFor$)) _
and lower$(mid$(b$(x), 3, len(searchFor$))) = lower$(searchFor$)_
or lower$(mid$(b$(x), 4, len(searchFor$))) = lower$(searchFor$) then_
searchList$(u+3) = b$(x) : u = u+1
next x
for t = 0 to K
if instr(lower$(b$(t)), lower$(searchFor$)) then
if lower$(mid$(b$(t), 3, len(searchFor$))) <> lower$(searchFor$)_
and lower$(mid$(b$(t), 4, len(searchFor$))) <> lower$(searchFor$) then
searchList$(u+v+10) = b$(t) : v = v+1
end if
end if
next t
for a = 0 to K
if not(instr(lower$(b$(a)), lower$(searchFor$))) then_
searchList$(u+v+w+17) = b$(a) : w = w+1
next a
'manage the headers
if u+v <> 0 then searchList$(0) = u+v;" Titles Containing ";q$;upper$(searchFor$);q$
if u+v = 0 then searchList$(0) = " No Titles Found for ";q$;upper$(searchFor$);q$';" Found"
searchList$(1) = " "
if v <> 0 then searchList$(2) = " ";u;" Top Picks For ";q$;upper$(searchFor$);q$
searchList$(u+5) =" "
if v <> 0 then searchList$(u+6) = " ";v;" Remaining Titles "'
if v <> 0 then searchList$(u+7) =" "
if v <> 0 then searchList$(v+u+13) = " "
if w-2 <> 0 then searchList$(v+u+14) = " ";w-2;" Other Pages "
if u+v = 0 then searchList$(v+u+14) = " ";w-2;" Pages Containing ";upper$(searchFor$)
searchList$(v+u+15) = " "
searchList$(v+u+w+29) = " "
searchList$(v+u+w+30) = " If you need more information "
searchList$(v+u+w+31) = " on "
searchList$(v+u+w+32) = " Liberty Basic v4.5.1 Coding "
searchList$(v+u+w+33) = " Please Visit"
searchList$(v+u+w+34) = " The Liberty Basic Forums "
searchList$(v+u+w+35) = " @ "
searchList$(v+u+w+36) = "https://libertybasiccom.proboards.com/"
searchList$(v+u+w+37) = " "
searchList$(v+u+w+38) = " "
'if there is a match with the search result
if match$ <> "" then searchList$(1) = " 1 Match "
#main.resultsList "reload"
'finished displaying results - reset variables - cursor back to normal
[doneSearching]
u = 0 : v = 0 : w = 0 : match$ = ""
cursor normal
goto [search]
'One of the Help Search results was Selected - Open the Help File in user's default browser
[openFile]
if lbHelp = 1 then
#main.resultsList "selection? selectionH$"
selectionH$ = right$(selectionH$, len(selectionH$) - 2)
if selectionH$ = "XOR" or selectionH$ = "AND" or selectionH$ = "NOT" or selectionH$ = "OR" then
run "explorer.exe ";helpFilePath$;"\html\libe0azy.htm"
goto [search]
end if
if left$(selectionH$, 5) = "Purch" then
run "explorer https://www.libertybasic.com/"
goto [search]
end if
files helpFilePath$;"\html", info$()
numFiles = val(info$(0,0 ))
for i = 1 to numFiles
fileToOpen$ = info$(i, 0)
open helpFilePath$;"\html\";fileToOpen$ for input as #3
contents$ = input$(#3, lof(#3)) : close #3
if instr(lower$(contents$), lower$("<title>";selectionH$;"</TITLE>")) then
if fileToOpen$ = "idecode451.html" then fileToOpen$ = "libe0ze8.htm"
run "explorer.exe ";helpFilePath$;"\html\";fileToOpen$ : done = 1
if done = 1 then exit for
else
if done = 1 then goto [search]
if instr(lower$(contents$), lower$("</A><B>";selectionH$;"</B></P>")) then
run "explorer.exe ";helpFilePath$;"\html\";fileToOpen$ : done = 1
if done = 1 then exit for
end if
end if
next i
if done = 1 then done = 0 : goto [search]
end if
'if a Code Example file was selected
if lbexamples = 1 then
#main.resultsList "selection? selectionCE$"
selectionCE$ = right$(selectionCE$, len(selectionCE$) - 3)
if fileExists(uAppPath$, selectionCE$;".bas") then
run lbexe$;" ";uAppPath$;"\";selectionCE$;".bas" : goto [search]
end if
end if
#main.resultsList "selection? selection$"
if selection$ = "https://libertybasiccom.proboards.com/" then run "explorer ";selection$ : goto [search]
wait
[quit]
close #main
end
'get users homepath = aka %userprofile% = "c:\users\xxxxx" (5 characters long normally Win 10)
sub getUserPath
run "cmd.exe /c echo %userprofile% >UserHomePath.txt", HIDE
do
scan
loop until fileExists(DefaultDir$, "UserHomePath.txt")
open "UserHomePath.txt" for input as #1
upath$ = input$(#1, lof(#1))
close #1
if upath$ = "" then notice "Sorry, can't find user path " : end
kill DefaultDir$;"\UserHomePath.txt"
end sub
'create a pause subroutine
sub pause mil
t=time$("ms")+mil
while time$("ms")<t
scan
wend
end sub
'Verify file existence function
function fileExists(path$, filename$)
dim fileExistsInfo$(0,0)
files path$, filename$, fileExistsInfo$()
fileExists = val(fileExistsInfo$(0, 0)) 'non zero is true
end function
|
|
|
|
Post by Brandon Parker on Apr 3, 2023 22:41:29 GMT -5
This does not work for me. The program just sits there spinning its wheels in the following loop withing the getUserPath subroutine. run "cmd.exe /c echo %userprofile% >UserHomePath.txt", HIDE
do
scan
loop until fileExists(DefaultDir$, "UserHomePath.txt")My %userprofile% used by CMD during the run was "C:\Users\xxxxx\OneDrive\Desktop" not "C:\Users\xxxxx" ... Also, my DefaultDir$ during the run was "C:\Users\xxxxx\AppData\Roaming\Liberty BASIC v4.5.1" ... The UserHomePath.txt file is created in one place and checked for in another. As you can see, the code is just hanging because it has been directed to check for the existence of a file based on presumptions that may/may not be true for every system. Also, check out the GetSpecialFolderPathA function on MSDN. It is extremely useful for finding "special" folder paths in Windows without resorting to CMD'ing out behind the scenes. CSIDL.PROFILE = 40
Print GetSpecialFolder$(CSIDL.PROFILE)
End
Function GetSpecialFolder$(CSIDL)
S.OK = NULL
GetSpecialFolder$ = "Operation Failed"
pszPath$ = Space$(_MAX_PATH);chr$(0)
CallDLL #shell32, "SHGetFolderPathA", _NULL As ulong, _ 'hWnd is RESERVED
CSIDL As long, _ 'CSIDL value
_NULL As ulong, _ 'hToken is set to NULL to check the current token
0 As ulong, _ 'dwFlags is set to NULL to represent SHGFP_TYPE_CURRENT
pszPath$ As ptr, _ 'pszPath is where the path string will be stored upon return
ret As long
If (ret = S.OK) Then GetSpecialFolder$ = Trim$(pszPath$)
End FunctionAlso, using the Windows API for checking whether a folder exists eliminates any need for writing a file to that folder and then checking its existence and/or contents. That is the first issue that I ran into. Try sorting that out such that any/all users can run the program and then we can move on to fixing any further issues. {:0) Brandon Parker |
|
|
|
Post by Brandon Parker on Apr 3, 2023 23:02:33 GMT -5
Here is an image of an awesome LB Help Search Utility that was spawned by the LB Help Search Challenge on the previous forum, years ago.  {:0) Brandon Parker |
|
|
|
Post by xxgeek on Apr 3, 2023 23:39:14 GMT -5
Thanks Brandon, I appreciate the feedback.
I have that older (more advanced) version, but the intro says I can't redistribute it without major changes, so instead of getting in trouble I edited a version I created for JB.
The main problem is it needs to be saved to a file, in a folder of it's own with write permission, before running it. I forgot to mention that, as I usually save any files before running them if the code was copied from the forum. Also, I don't have Liberty Basic, I only have the pro version license.
Thanks for the code to do a better job and remove the cmd sub. Saved me a lot of time.
Here's the corrected code
'Title = Liberty Basic Help Search
'Purpose = Search the Liberty Basic help files, and the Example files for keyword(s)
'_
'Author = xxgeek
'Date April 3 2023
' Instructions
'IMPORTANT - Before running this code, save it to a folder of it's own, with write permission.
' Just type a keyword and hit [ENTER] - no character minimum (Using 2, 3 and 4 characters works well)
' In the resulting list, click on a title. The help file selected will open in your browser
' When selecting Examples checkbox, the resulting list is example code Titles.
'These Titles open in Liberty Basic IDE
'WARNING - IF / When editting these code examples use "Save As" to avoid corrupting original files
'Help file results start with H_ for Help
'Example results start with CE for Code Example
'The + and the - are for adjusting font size (made for old guys like me)
lbPath$ = "c:\Program Files (x86)\Liberty Basic v4.5.1"
'check Liberty Basic v4.5.1 Default Install Dir for existence
'if Liberty Basic v4.5.1 is NOT installed to it's Default Install Dir, get Path from User using folder dialog
if pathExists(lbPath$) then [go]
'get users saved LB install path from ini file if it exists
if fileExists(DefaultDir$, "lhs.ini") then
open "lhs.ini" for input as #1
lbPath$ = input$(#1,lof(#1))
lbPath$ = trim$(lbPath$)
close #1
goto [go]
end if
'if folder path chosen by user for Just Basic install is wrong catch error later with check for jbrun2.exe
a$ = FolderDialog$("Select Your Liberty Basic Pro v4.5.1 Install Folder")
if a$ = "" then notice chr$(13);"Liberty Basic Pro v4.5.1 must be installed to continue";chr$(13);chr$(13);"LB Pro Help Search will now close" : end
'create ini to hold users JB install dir path
lbPath$ = a$
open "lhs.ini" for output as #1
#1 a$ : close #1
[go]
'First we need the users home path
CSIDL.PROFILE = 40
upath$ = GetSpecialFolder$(CSIDL.PROFILE)
'make sure Liberty Basic v4.5.1 is installed
if Version$ <> "4.5.1" then notice "Liberty BASIC 4.5.1 required" : end
WindowWidth = 228 : WindowHeight = 560
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
dim searchList$(2500), info$(0,0), oneOf$(2500)
global lbPath$, helpFilePath$, fontsize, q$, upath$, temp$
lbPath$ = "c:\Program Files (x86)\Liberty Basic v4.5.1"
lbexe$ = lbPath$;"\liberty.exe"
helpFilePath$ = lbPath$;"\lb4help\LibertyBASIC_4_web"
helpFileMenu$ = "amber_menu.htm"
freeformPath$ = helpFilePath$;"\html\fformhelp"
uAppPath$ = upath$;"\AppData\Roaming\Liberty Basic v4.5.1"
q$ = chr$(34)
'if not exist, copy the users 'lbasic451.ini' file to DefaultDir$ (the dir this file is running from)
'This is done to prevent the "World of Liberty Basic" window, with all the Links from opening
'when a Code file Example is opened in LB the IDE
if fileExists(uAppPath$, "lbasic451.ini") then
if fileExists(DefaultDir$, "lbasic451.ini") = 0 then
open uAppPath$;"\lbasic451.ini" for input as #1
open DefaultDir$;"\lbasic451.ini" for output as #2
#2 input$(#1, lof(#1)) : close #1 : close #2
end if
else
notice "Can't find the lbasic451.ini file = minor problem - continue on" : goto [checkpoint]
end if
[checkpoint]
'Check for lb help files existence - end program if false
if fileExists(helpFilePath$, helpFileMenu$)=0 then notice "Program Terminated";chr$(13) ; "Couldn't find the help files" : end
nomainwin
'Create the form - open the window
textbox #main.keyword 5, 0, 150, 20
listbox #main.resultsList, searchList$(, [openFile], 0, 23, 229, 440
checkbox #main.lbHelp, "LB-Help", [lbHelp], [nolbHelp], 20, 470, 70, 20
checkbox #main.lbexamples, "LB-Examples", [lbexamples], [nolbexamples], 100, 470, 120, 20
button #main.incFont, "&+", [incFont], UL, 80, 505, 20, 20
button #main.defFont, " &l ", [defFont], UL, 100, 505, 20, 20
button #main.decFont, "&-", [decFont], UL, 120, 505, 20, 20
button #main.default, "Search", [startSearching], UL, 160, 0, 55, 20
open "Search" for dialog_nf as #main
#main "trapclose [quit]"
#main "font Arial 10"
#main.resultsList "singleclickselect"
fontsize = 10
lbHelp = 1 : #main.lbHelp, "set"
wait
'set and reset checkboxes for search categories
[lbHelp] lbHelp = 1 : goto [search]
[nolbHelp] lbHelp = 0 : goto [search]
[lbexamples] lbexamples = 1 : goto [search]
[nolbexamples] lbexamples = 0 : goto [search]
'resize window font - sets all Listbox fonts equal
[incFont]
fontsize = fontsize + 1 : #main.resultsList "font Arial ";fontsize : goto [search]
[decFont]
fontsize = fontsize - 1 : #main.resultsList "font Arial ";fontsize : goto [search]
[defFont]
fontsize = 10 : #main.resultsList "font Arial ";fontsize : goto [search]
'The [Search] button was pressed, or after searching/changing font size etc, the program was directed back here.
[search]
#main.keyword "!enable" : #main.keyword "!selectall" : #main.keyword "!setfocus"
redim searchList$(2500)
redim oneOf$(2500)
searchFor$ = ""
done = 0
#main.keyword "!contents? searchFor$"
wait
[startSearching]
#main.keyword "!disable"
redim searchList$(15)
#main.keyword "!contents? searchFor$"
if searchFor$ = "" then [search]
searchList$(0) = " "
searchList$(1) = " "
searchList$(2) = " Searching"
searchList$(3) = " "
searchList$(4) = " Liberty Basic v4.5.1 Help"
searchList$(5) = " "
searchList$(6) =" For Files Containing "
searchList$(7) = " "
searchList$(8) = " "
searchList$(9) = " "
searchList$(10) = " ";upper$(searchFor$)
searchList$(11) =" "
searchList$(12) = " "
searchList$(13) = " "
searchList$(14) = " P L E A S E W A I T"
#main.resultsList "reload"
searchFor$=trim$(searchFor$)
count = 3
'search Liberty Basic help files
if lbHelp = 1 then
redim searchList$(2500)
files helpFilePath$;"\html", info$()
numFiles = val(info$(0,0 ))
for i = 1 to numFiles
fileToOpen$ = info$(i, 0)
open helpFilePath$;"\html\"; fileToOpen$ for input as #2
contents$ = input$(#2, lof(#2)) : close #2
if instr(lower$(contents$), lower$(searchFor$)) then
x = 1
if lower$(searchFor$) = "and" then oneOf$(count) = "H_AND" : count = count + 1
if lower$(searchFor$) = "not" then oneOf$(count) = "H_NOT" : count = count + 1
if lower$(searchFor$) = "xor" then oneOf$(count) = "H_XOR" : count = count + 1
if lower$(searchFor$) = "or" then oneOf$(count) = "H_OR" : count = count + 1
listName$ = helpFilePath$;"\html\"; fileToOpen$
open listName$ for input as #1 : isOpen = 1
while not(eof(#1))
scan
line input #1, name$
if x = 5 and lower$(left$(name$, 7)) = lower$("<TITLE>") then
name3$ = mid$(name$, 8, len(name$)-15) : if right$(name3$, 4) = "Etc." then name3$ = left$(name3$, len(name3$) - 1)
oneOf$(count) = "H_";name3$ : count = count + 1
end if'
if x = 8 and left$(lower$(name$), 7) = lower$("<TITLE>") then
name5$ = mid$(name$, 8, len(name$)-15)
oneOf$(count) = "H_";name5$ : count = count + 1
end if
if x = 12 and left$(name$ , 5) = "<P><A" then
name8$ = word$(name$, 2, "</A><B>") : name8$ = left$(name8$, len(name8$)-8)
oneOf$(count) = "H_";name8$ : count = count + 1
end if
if x = 14 and left$(name$ , 3) = "<P>" then
name7$ = mid$(name$, 4, len(name$)-7)
oneOf$(count) = "H_";name7$ : count = count + 1
end if
if x = 15 and right$(name$, 8) = "</B></P>" then
name11$ =word$(name$, 2, "B>") : name11$ = left$(name11$, len(name11$)-2)
oneOf$(count) = "H_";name11$ : count = count + 1
exit while
end if
if x = 15 then exit while
x = x + 1
wend
if isOpen = 1 then close #1 : isOpen = 0
end if
next i
end if
'Search the Liberty Basic Code Examples Files
if lbexamples = 1 then
files uAppPath$, "*.bas", info$()
numFiles = val(info$(0,0 ))
for i = 1 to numFiles
fileToOpen$ = info$(i, 0)
open uAppPath$;"\";fileToOpen$ for input as #2
contents$ = input$(#2, lof(#2)) : close #2
if instr(lower$(contents$), lower$(searchFor$)) then
name$ = upper$(fileToOpen$)
name$ = left$(name$, len(name$)-4)
oneOf$(count) = "CE_";name$ : count = count + 1
end if
next i
end if
'if no search results found
if count - 3 = 0 then
redim searchList$ (12)
searchList$(1) = " "
searchList$(2) = " Nothing found for:"
searchList$(3) = " "
searchList$(4) = " ";upper$(searchFor$)
searchList$(5) = " "
searchList$(6) = " "
searchList$(7) = " "
if lbexamples = 0 then searchList$(8) = " Try adding LB Examples"
searchList$(9) = " "
if lbexamples = 0 then searchList$(10) = " To the Search Engine"
searchList$(11) = " "
searchList$(12) = " "
#main.resultsList "reload"
cursor normal
goto [doneSearching]
end if
'sort the list of possible results
sort oneOf$(), 3, count
dim b$(count+1)
happened$="|"
K = 0
'filter out the false Titles (Due to differences in html help pages source code - Title not on same line in all files)
for i = 0 to count
name$ = oneOf$(i)
if right$(name$, 1) = ">" or right$(name$, 6) = "window" or left$(name$, 5) = "H_ame" or right$(name$, 8) = "position"_
or left$(name$, 5) = "H_GCO" or right$(name$, 1) = ":" or left$(name$, 3) = "H_<" _
or left$(name$, 3) = "H_"+chr$(39) or right$(name$, 1) = "." or right$(name$, 1) = " " or right$(name$, 8) = "[branch]"_
or right$(name$, 3) = "] )" or right$(name$, 3) = "] ]" or right$(name$, 6) = "items)" or name$ = "H_WHILE...WEND"_
or right$(name$, 5) = "size)" or right$(name$, 1) = ";" or right$(name$, 5) = "LEN=n" or right$(name$, 7) = "number)" _
or right$(name$, 7) = "#handle" or right$(name$, 4) = "varN" or right$(name$, 4) = "...)" or right$(name$, 2) = "];" _
or right$(name$, 1) = "v" or right$(name$, 8) = "fontSpec" or right$(name$, 7) = "expr2 )" or right$(name$, 2) = "))"_
or right$(name$, 12) = "variableName" or right$(name$, 4) = "num2"or right$(name$, 5) = ".bmp"+chr$(34)_
or right$(name$, 2) = chr$(34)+")" or right$(name$, 4) = "var"+chr$(36) or right$(name$, 4) = ",n])"_
or right$(name$, 4) = "expr" or right$(name$, 4) = "num2" or right$(name$, 9) = chr$(34)+"refresh"+chr$(34)_
or right$(name$, 3) = "g])" or right$(name$, 6) = "Label]" or right$(name$, 8) = "#handle)" or right$(name$, 9) = "String$ )"_
or right$(name$, 11) = "Expression)" or right$(name$, 10) = "expression" or right$(name$, 9) = "[number])"_
or right$(name$, 7) = "struct)" or right$(name$, 7) = "comment" or right$(name$, 12) = "recordNumber"_
or right$(name$, 5) = "size)" or right$(name$, 6) = "follow" or right$(name$, 6) = "mode ]" or right$(name$, 8) = "number )"_
or right$(name$, 8) = "[column]" or right$(name$, 10) = "#handle, n" or right$(name$, 2) = " 1" or right$((left$(name$, 7)), 5) = chr$(34)+"Font"_
or right$(name$, 9) = "{LEN = n}" or right$(name$, 5) = "Expr2" or right$(name$, 6) = "length"or word$(name$,2) = "stands"_
or right$(name$, 10) = "#newHandle" or right$(name$, 12) = "columns rows" or right$(name$, 5) = "Expr$"_
or left$(name$, 4) = "var =" or right$(name$, 6) = "xpr2 )" or left$(name$, 3) = "H_(" or right$(name$, 6) = chr$(34)+"name"+chr$(34) _
or right$(name$, 4) = "#h )" or right$(name$, 9) = "#handle )" or right$(name$, 1) = "€" or right$(name$, 1) = "."_
or name$ = "H_DO LOOP" or name$ = "H_FOR...NEXT" or name$ = "H_IF...THEN" or name$ = "H_Winstring" or right$(name$, 8) = "value"+chr$(34)+" )"_
or right$(name$,1) = "?" or right$(name$,3) = "c$)" or right$(name$,8) = "Keywords" or name$ ="H_BOOLEAN"_
or left$(name$, 3) = "H_&" or word$(name$, 2) = "number" or left$(name$, 11) = "H_Uninstall" or name$ = "H_"_
or name$ = "H_StartupDir" or name$ = "H_EVAL" or name$ = "H_EVAL$" or right$(name$, 4) = "face"_
or name$ = "H_REPLSTR" or name$ = "H_UPPER$(s)" or name$ = "H_LOWER$(s$)" or word$(name$,2) = "name," or word$(name$,2) = "#handle," then
oneOf$(i) = ""
end if
'remove any duplicates from search list (Thanks to tsh73)
if lower$(nameLast$) = lower$(name$) then oneOf$(i) = ""
if instr(happened$, "|";oneOf$(i);"|")=0 then
happened$=happened$;oneOf$(i);"|"
K=K+1: b$(K)=oneOf$(i)
end if
nameLast$ = name$
next i
'Create final list of search results
for x = 0 to K
if lower$(word$(b$(x), 2, "_")) = lower$(searchFor$) then match$ = b$(x)
if instr(lower$(b$(x)), lower$(searchFor$)) _
and lower$(mid$(b$(x), 3, len(searchFor$))) = lower$(searchFor$)_
or lower$(mid$(b$(x), 4, len(searchFor$))) = lower$(searchFor$) then_
searchList$(u+3) = b$(x) : u = u+1
next x
for t = 0 to K
if instr(lower$(b$(t)), lower$(searchFor$)) then
if lower$(mid$(b$(t), 3, len(searchFor$))) <> lower$(searchFor$)_
and lower$(mid$(b$(t), 4, len(searchFor$))) <> lower$(searchFor$) then
searchList$(u+v+10) = b$(t) : v = v+1
end if
end if
next t
for a = 0 to K
if not(instr(lower$(b$(a)), lower$(searchFor$))) then_
searchList$(u+v+w+17) = b$(a) : w = w+1
next a
'manage the headers
if u+v <> 0 then searchList$(0) = u+v;" Titles Containing ";q$;upper$(searchFor$);q$
if u+v = 0 then searchList$(0) = " No Titles Found for ";q$;upper$(searchFor$);q$';" Found"
searchList$(1) = " "
if v <> 0 then searchList$(2) = " ";u;" Top Picks For ";q$;upper$(searchFor$);q$
searchList$(u+5) =" "
if v <> 0 then searchList$(u+6) = " ";v;" Remaining Titles "'
if v <> 0 then searchList$(u+7) =" "
if v <> 0 then searchList$(v+u+13) = " "
if w-2 <> 0 then searchList$(v+u+14) = " ";w-2;" Other Pages "
if u+v = 0 then searchList$(v+u+14) = " ";w-2;" Pages Containing ";upper$(searchFor$)
searchList$(v+u+15) = " "
searchList$(v+u+w+29) = " "
searchList$(v+u+w+30) = " If you need more information "
searchList$(v+u+w+31) = " on "
searchList$(v+u+w+32) = " Liberty Basic v4.5.1 Coding "
searchList$(v+u+w+33) = " Please Visit"
searchList$(v+u+w+34) = " The Liberty Basic Forums "
searchList$(v+u+w+35) = " @ "
searchList$(v+u+w+36) = "https://libertybasiccom.proboards.com/"
searchList$(v+u+w+37) = " "
searchList$(v+u+w+38) = " "
'if there is a match with the search result
if match$ <> "" then searchList$(1) = " 1 Match "
#main.resultsList "reload"
'finished displaying results - reset variables - cursor back to normal
[doneSearching]
u = 0 : v = 0 : w = 0 : match$ = ""
cursor normal
goto [search]
'One of the Help Search results was Selected - Open the Help File in user's default browser
[openFile]
if lbHelp = 1 then
#main.resultsList "selection? selectionH$"
selectionH$ = right$(selectionH$, len(selectionH$) - 2)
if selectionH$ = "XOR" or selectionH$ = "AND" or selectionH$ = "NOT" or selectionH$ = "OR" then
run "explorer.exe ";helpFilePath$;"\html\libe0azy.htm"
goto [search]
end if
if left$(selectionH$, 5) = "Purch" then
run "explorer https://www.libertybasic.com/"
goto [search]
end if
files helpFilePath$;"\html", info$()
numFiles = val(info$(0,0 ))
for i = 1 to numFiles
fileToOpen$ = info$(i, 0)
open helpFilePath$;"\html\";fileToOpen$ for input as #3
contents$ = input$(#3, lof(#3)) : close #3
if instr(lower$(contents$), lower$("<title>";selectionH$;"</TITLE>")) then
if fileToOpen$ = "idecode451.html" then fileToOpen$ = "libe0ze8.htm"
run "explorer.exe ";helpFilePath$;"\html\";fileToOpen$ : done = 1
if done = 1 then exit for
else
if done = 1 then goto [search]
if instr(lower$(contents$), lower$("</A><B>";selectionH$;"</B></P>")) then
run "explorer.exe ";helpFilePath$;"\html\";fileToOpen$ : done = 1
if done = 1 then exit for
end if
end if
next i
if done = 1 then done = 0 : goto [search]
end if
'if a Code Example file was selected
if lbexamples = 1 then
#main.resultsList "selection? selectionCE$"
selectionCE$ = right$(selectionCE$, len(selectionCE$) - 3)
if fileExists(uAppPath$, selectionCE$;".bas") then
run lbexe$;" ";uAppPath$;"\";selectionCE$;".bas" : goto [search]
end if
end if
#main.resultsList "selection? selection$"
if selection$ = "https://libertybasiccom.proboards.com/" then run "explorer ";selection$ : goto [search]
wait
[quit]
close #main
end
'create a pause subroutine
sub pause mil
t=time$("ms")+mil
while time$("ms")<t
scan
wend
end sub
'function for checking folder existence
function pathExists(path$)
pathExists = (mkdir(path$)=183)
end function
'Verify file existence function
function fileExists(path$, filename$)
dim fileExistsInfo$(0,0)
files path$, filename$, fileExistsInfo$()
fileExists = val(fileExistsInfo$(0, 0)) 'non zero is true
end function
Function GetSpecialFolder$(CSIDL)
S.OK = NULL
GetSpecialFolder$ = "Operation Failed"
pszPath$ = Space$(_MAX_PATH);chr$(0)
CallDLL #shell32, "SHGetFolderPathA", _NULL As ulong, _ 'hWnd is RESERVED
CSIDL As long, _ 'CSIDL value
_NULL As ulong, _ 'hToken is set to NULL to check the current token
0 As ulong, _ 'dwFlags is set to NULL to represent SHGFP_TYPE_CURRENT
pszPath$ As ptr, _ 'pszPath is where the path string will be stored upon return
ret As long
If (ret = S.OK) Then GetSpecialFolder$ = Trim$(pszPath$)
End Function
'functions for making the folder dialog window
function FolderDialog$(caption$)
WindowWidth = 600
WindowHeight = 370
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
BackgroundColor$ = "lightgray"
ForegroundColor$ = "black"
gosub [FolderDlgGetDrives]
statictext #folderdlg.S, "Note: - Only Drives and Folders Appear Below - No Files Appear", 125, 15, 550, 25
statictext #folderdlg.S, "Select a Drive or a Folder From the List", 205, 40, 300, 25
statictext #folderdlg.D, " (Single Click Drive Letters and Folders to Select or Navigate)", 145, 75, 395, 15
listbox #folderdlg.list, FolderList$(, [FolderDlgSelect], 22, 90, 550, 130
button #folderdlg.default, "Ok", [FolderDlgOk], UL, 190, 293, 85, 35
button #folderdlg.B, "Back", [FolderDlgBack], UL, 20, 40, 80, 30
button #folderdlg.C, "Cancel", [FolderDlgCancel], UL, 290, 293, 85, 35
textbox #folderdlg.text, 42, 225, 510, 25
statictext #folderdlg.path, "Selected Drive or Folder Path Appears Here", 130, 258, 400, 20
open caption$ for dialog_modal as #folderdlg
#folderdlg, "trapclose [FolderDlgCancel]"
#folderdlg.default, "!font Arial 8 bold"
#folderdlg, "font Arial 10 bold"
#folderdlg.S, "!font Arial 10 bold"
#folderdlg.path, "!font Arial 10 bold"
#folderdlg.list, "font Arial 10 bold"
#folderdlg.C, "!font Arial 10 bold"
#folderdlg.D, "!font Arial 8 bold"
#folderdlg.text, "!font Arial 10 bold"
#folderdlg.list "singleclickselect"
wait
[FolderDlgSelect]
#folderdlg.list, "selection? temp$"
if temp$ <> "" then
level = level+1
folder$ = folder$; temp$; "\"
#folderdlg.text, folder$
gosub [FolderDlgGetDir]
#folderdlg.list, "reload"
end if
wait
[FolderDlgBack]
if level > 0 then
level = level-1
if level = 0 then
folder$ = ""
gosub [FolderDlgGetDrives]
else
i = len(folder$)-1
while mid$(folder$, i, 1) <> "\" and mid$(folder$, i, 1) <> ""
i = i-1
wend
folder$ = left$(folder$, i)
gosub [FolderDlgGetDir]
end if
#folderdlg.text, folder$
#folderdlg.list, "reload"
end if
wait
[FolderDlgGetDrives]
c = 1
while word$(Drives$, c) <> ""
c = c+1
wend
redim FolderList$(c)
for i = 1 to c
FolderList$(i) = word$(Drives$, i)
next i
return
[FolderDlgGetDir]
files folder$, info$(
s = val(info$(0,0))
t = val(info$(0,1))
redim FolderList$(t)
for i = 1 to t
FolderList$(i) = info$(i+s, 1)
next i
return
[FolderDlgOk]
#folderdlg.text, "!contents? FolderDialog$"
If right$(FolderDialog$,1) = "\" then FolderDialog$ = left$(FolderDialog$, len(FolderDialog$) - 1)
[FolderDlgCancel]
close #folderdlg
end function
|
|
|
|
Post by xxgeek on Apr 3, 2023 23:41:32 GMT -5
Actually, my version of the older version may be different than what you posted a picture of.
Do you have the code for that version handy?
|
|
|
|
Post by xxgeek on Apr 4, 2023 3:21:26 GMT -5
Here is a version for Liberty Basic Pro.
It searches the Help files, the Tools Help, and the Examples Code files for keywords.
'Title = Liberty Basic Help Search
'Purpose = Search the Liberty Basic help files, and the Example files for keyword(s)
'_
'Author = xxgeek
'Date April 4 2023
' Instructions
'IMPORTANT - Before running this code, save it to a folder of it's own, with write permission.
' Just type a keyword and hit [ENTER] - no character minimum (Using 2, 3 and 4 characters works well)
' In the resulting list, click on a title. The help file selected will open in your browser
' When selecting Examples checkbox, the resulting list is example code Titles.
'These Titles open in Liberty Basic IDE
'WARNING - IF / When editting these code examples use "Save As" to avoid corrupting original files
'Help file results start with H_ for Help
'Example results start with CE for Code Example
'Tools Help start with T_ for Tools
'The + and the - are for adjusting font size (made for old guys like me)
[checkjbpath]
lbPath$ = "c:\Program Files (x86)\Liberty Basic Pro v4.5.1"
'check Liberty Basic Pro v4.5.1 Default Install Dir for existence
'if Liberty Basic Pro v4.5.1 is NOT installed to it's Default Install Dir, get Path from User using folder dialog
if pathExists(lbPath$) then [go]
'get users saved LB install path from ini file if it exists
if fileExists(DefaultDir$, "lhs.ini") then
open "lhs.ini" for input as #1
lbPath$ = input$(#1,lof(#1))
lbPath$ = trim$(lbPath$)
close #1
goto [go]
end if
'if folder path chosen by user for Just Basic install is wrong catch error later with check for jbrun2.exe
a$ = FolderDialog$("Select Your Liberty Basic Pro v4.5.1 Install Folder")
if a$ = "" then notice chr$(13);"Liberty Basic Pro v4.5.1 must be installed to continue";chr$(13);chr$(13);"LB Pro Help Search will now close" : end
'create ini to hold users JB install dir path
lbPath$ = a$
open "lhs.ini" for output as #1
#1 a$ : close #1
[go]
'First we need to get the users home path
CSIDL.PROFILE = 40 '- code Thanks to Brandon Parker
upath$ = GetSpecialFolder$(CSIDL.PROFILE)
WindowWidth = 228 : WindowHeight = 580
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
dim searchList$(2500), info$(0,0), oneOf$(2500)
global lbPath$, helpFilePath$, fontsize, q$, upath$, temp$
'lbPath$ = "c:\Program Files (x86)\Liberty Basic Pro v4.5.1"
lbexe$ = "lbpro.exe"
if not(fileExists(lbPath$, lbexe$)) then notice "Liberty BASIC Pro v4.5.1 required" : end
helpFilePath$ = lbPath$;"\lb4help\LibertyBASIC_4_web"
helpFileMenu$ = "amber_menu.htm"
freeformPath$ = helpFilePath$;"\html\fformhelp"
uAppPath$ = upath$;"\AppData\Roaming\Liberty Basic Pro v4.5.1"
lbProTools$ = lbPath$;"\toolsHelp"
q$ = chr$(34)
'if not exist, copy the users 'lbasic451.ini' file to DefaultDir$ (the dir this file is running from)
'This is done to prevent the "World of Liberty Basic" window, with all the Links from opening
'when a Code file Example is opened in LB the IDE
if fileExists(uAppPath$, "lbasic451.ini") then
if fileExists(DefaultDir$, "lbasic451.ini") = 0 then
open uAppPath$;"\lbasic451.ini" for input as #1
open DefaultDir$;"\lbasic451.ini" for output as #2
#2 input$(#1, lof(#1)) : close #1 : close #2
end if
else
notice "Can't find the lbasic451.ini file = minor problem - continue on" : goto [checkpoint]
end if
[checkpoint]
'Check for lb help files existence - end program if false
if fileExists(helpFilePath$, helpFileMenu$)=0 then notice "Program Terminated";chr$(13) ; "Couldn't find the help files" : end
nomainwin
'Create the form - open the window
textbox #main.keyword 5, 0, 150, 20
listbox #main.resultsList, searchList$(, [openFile], 0, 23, 229, 440
checkbox #main.lbHelp, "Help", [lbHelp], [nolbHelp], 20, 470, 70, 20
checkbox #main.lbexamples, "Code Examples", [lbexamples], [nolbexamples], 90, 470, 120, 20
checkbox #main.lbTools, "Tools", [lbTools], [nolbTools], 70, 495, 100, 20
button #main.incFont, "&+", [incFont], UL, 80, 525, 20, 20
button #main.defFont, " &l ", [defFont], UL, 100, 525, 20, 20
button #main.decFont, "&-", [decFont], UL, 120, 525, 20, 20
button #main.default, "Search", [startSearching], UL, 160, 0, 55, 20
open "Search" for dialog_nf as #main
#main "trapclose [quit]"
#main "font Arial 10"
#main.resultsList "singleclickselect"
fontsize = 10
lbHelp = 1 : #main.lbHelp, "set"
#main.keyword ""
wait
'set and reset checkboxes for search categories
[lbHelp] lbHelp = 1 : goto [search]
[nolbHelp] lbHelp = 0 : goto [search]
[lbexamples] lbexamples = 1 : goto [search]
[nolbexamples] lbexamples = 0 : goto [search]
[lbTools] lbtools = 1 : goto [search]
[nolbTools] lbtools = 0 : goto [search]
'resize window font - sets all Listbox fonts equal
[incFont]
fontsize = fontsize + 1 : #main.resultsList "font Arial ";fontsize : goto [search]
[decFont]
fontsize = fontsize - 1 : #main.resultsList "font Arial ";fontsize : goto [search]
[defFont]
fontsize = 10 : #main.resultsList "font Arial ";fontsize : goto [search]
'The [Search] button was pressed, or after searching/changing font size etc, the program was directed back here.
[search]
#main.keyword "!enable" : #main.keyword "!selectall" : #main.keyword "!setfocus"
redim searchList$(2500)
redim oneOf$(2500)
searchFor$ = ""
done = 0
#main.keyword "!contents? searchFor$"
wait
[startSearching]
#main.keyword "!disable"
redim searchList$(15)
#main.keyword "!contents? searchFor$"
if searchFor$ = "" then [search]
searchList$(0) = " "
searchList$(1) = " "
searchList$(2) = " Searching"
searchList$(3) = " "
searchList$(4) = " Liberty Basic v4.5.1 Help"
searchList$(5) = " "
searchList$(6) =" For Files Containing "
searchList$(7) = " "
searchList$(8) = " "
searchList$(9) = " "
searchList$(10) = " ";upper$(searchFor$)
searchList$(11) =" "
searchList$(12) = " "
searchList$(13) = " "
searchList$(14) = " P L E A S E W A I T"
#main.resultsList "reload"
searchFor$=trim$(searchFor$)
count = 3
redim searchList$(2500)
'search Liberty Basic help files
if lbHelp = 1 then
files helpFilePath$;"\html", info$()
numFiles = val(info$(0,0 ))
for i = 1 to numFiles
fileToOpen$ = info$(i, 0)
open helpFilePath$;"\html\"; fileToOpen$ for input as #2
contents$ = input$(#2, lof(#2)) : close #2
if instr(lower$(contents$), lower$(searchFor$)) then
x = 1
if lower$(searchFor$) = "and" then oneOf$(count) = "H_AND" : count = count + 1
if lower$(searchFor$) = "not" then oneOf$(count) = "H_NOT" : count = count + 1
if lower$(searchFor$) = "xor" then oneOf$(count) = "H_XOR" : count = count + 1
if lower$(searchFor$) = "or" then oneOf$(count) = "H_OR" : count = count + 1
listName$ = helpFilePath$;"\html\"; fileToOpen$
open listName$ for input as #1 : isOpen = 1
while not(eof(#1))
scan
line input #1, name$
if x = 5 and lower$(left$(name$, 7)) = lower$("<TITLE>") then
name3$ = mid$(name$, 8, len(name$)-15) : if right$(name3$, 4) = "Etc." then name3$ = left$(name3$, len(name3$) - 1)
oneOf$(count) = "H_";name3$ : count = count + 1
end if'
if x = 8 and left$(lower$(name$), 7) = lower$("<TITLE>") then
name5$ = mid$(name$, 8, len(name$)-15)
oneOf$(count) = "H_";name5$ : count = count + 1
end if
if x = 12 and left$(name$ , 5) = "<P><A" then
name8$ = word$(name$, 2, "</A><B>") : name8$ = left$(name8$, len(name8$)-8)
oneOf$(count) = "H_";name8$ : count = count + 1
end if
if x = 14 and left$(name$ , 3) = "<P>" then
name7$ = mid$(name$, 4, len(name$)-7)
oneOf$(count) = "H_";name7$ : count = count + 1
end if
if x = 15 and right$(name$, 8) = "</B></P>" then
name11$ =word$(name$, 2, "B>") : name11$ = left$(name11$, len(name11$)-2)
oneOf$(count) = "H_";name11$ : count = count + 1
exit while
end if
if x = 15 then exit while
x = x + 1
wend
if isOpen = 1 then close #1 : isOpen = 0
end if
next i
end if
'Search the Liberty Basic Code Examples Files
if lbexamples = 1 then
files uAppPath$, "*.bas", info$()
numFiles = val(info$(0,0 ))
for i = 1 to numFiles
fileToOpen$ = info$(i, 0)
open uAppPath$;"\";fileToOpen$ for input as #2
contents$ = input$(#2, lof(#2)) : close #2
if instr(lower$(contents$), lower$(searchFor$)) then
name$ = upper$(fileToOpen$)
name$ = left$(name$, len(name$)-4)
oneOf$(count) = "CE_";name$ : count = count + 1
end if
next i
end if
'Search the Liberty Basic Tools Help Files
if lbtools = 1 then
files lbProTools$, "*.html", info$()
numFiles = val(info$(0,0 )) : print numFiles
for i = 1 to numFiles
fileToOpen$ = info$(i, 0) : print fileToOpen$
open lbProTools$;"\";fileToOpen$ for input as #2
contents$ = input$(#2, lof(#2)) : close #2
if instr(lower$(contents$), lower$(searchFor$)) then
name$ = fileToOpen$
name$ = left$(name$, len(name$)-5)
oneOf$(count) = "T_";name$ : count = count + 1
end if
next i
end if
'if no search results found
if count - 3 = 0 then
redim searchList$ (12)
searchList$(1) = " "
searchList$(2) = " Nothing found for:"
searchList$(3) = " "
searchList$(4) = " ";upper$(searchFor$)
searchList$(5) = " "
searchList$(6) = " "
searchList$(7) = " "
if lbexamples = 0 then searchList$(8) = " Try adding LB Examples"
searchList$(9) = " "
if lbexamples = 0 then searchList$(10) = " To the Search Engine"
searchList$(11) = " "
searchList$(12) = " "
#main.resultsList "reload"
cursor normal
goto [doneSearching]
end if
'sort the list of possible results
sort oneOf$(), 3, count
dim b$(count+1)
happened$="|"
K = 0
'filter out the false Titles (Due to differences in html help pages source code - Title not on same line in all files)
for i = 0 to count
name$ = oneOf$(i)
if right$(name$, 1) = ">" or right$(name$, 6) = "window" or left$(name$, 5) = "H_ame" or right$(name$, 8) = "position"_
or left$(name$, 5) = "H_GCO" or right$(name$, 1) = ":" or left$(name$, 3) = "H_<" _
or left$(name$, 3) = "H_"+chr$(39) or right$(name$, 1) = "." or right$(name$, 1) = " " or right$(name$, 8) = "[branch]"_
or right$(name$, 3) = "] )" or right$(name$, 3) = "] ]" or right$(name$, 6) = "items)" or name$ = "H_WHILE...WEND"_
or right$(name$, 5) = "size)" or right$(name$, 1) = ";" or right$(name$, 5) = "LEN=n" or right$(name$, 7) = "number)" _
or right$(name$, 7) = "#handle" or right$(name$, 4) = "varN" or right$(name$, 4) = "...)" or right$(name$, 2) = "];" _
or right$(name$, 1) = "v" or right$(name$, 8) = "fontSpec" or right$(name$, 7) = "expr2 )" or right$(name$, 2) = "))"_
or right$(name$, 12) = "variableName" or right$(name$, 4) = "num2"or right$(name$, 5) = ".bmp"+chr$(34)_
or right$(name$, 2) = chr$(34)+")" or right$(name$, 4) = "var"+chr$(36) or right$(name$, 4) = ",n])"_
or right$(name$, 4) = "expr" or right$(name$, 4) = "num2" or right$(name$, 9) = chr$(34)+"refresh"+chr$(34)_
or right$(name$, 3) = "g])" or right$(name$, 6) = "Label]" or right$(name$, 8) = "#handle)" or right$(name$, 9) = "String$ )"_
or right$(name$, 11) = "Expression)" or right$(name$, 10) = "expression" or right$(name$, 9) = "[number])"_
or right$(name$, 7) = "struct)" or right$(name$, 7) = "comment" or right$(name$, 12) = "recordNumber"_
or right$(name$, 5) = "size)" or right$(name$, 6) = "follow" or right$(name$, 6) = "mode ]" or right$(name$, 8) = "number )"_
or right$(name$, 8) = "[column]" or right$(name$, 10) = "#handle, n" or right$(name$, 2) = " 1" or right$((left$(name$, 7)), 5) = chr$(34)+"Font"_
or right$(name$, 9) = "{LEN = n}" or right$(name$, 5) = "Expr2" or right$(name$, 6) = "length"or word$(name$,2) = "stands"_
or right$(name$, 10) = "#newHandle" or right$(name$, 12) = "columns rows" or right$(name$, 5) = "Expr$"_
or left$(name$, 4) = "var =" or right$(name$, 6) = "xpr2 )" or left$(name$, 3) = "H_(" or right$(name$, 6) = chr$(34)+"name"+chr$(34) _
or right$(name$, 4) = "#h )" or right$(name$, 9) = "#handle )" or right$(name$, 1) = "€" or right$(name$, 1) = "."_
or name$ = "H_DO LOOP" or name$ = "H_FOR...NEXT" or name$ = "H_IF...THEN" or name$ = "H_Winstring" or right$(name$, 8) = "value"+chr$(34)+" )"_
or right$(name$,1) = "?" or right$(name$,3) = "c$)" or right$(name$,8) = "Keywords" or name$ ="H_BOOLEAN"_
or left$(name$, 3) = "H_&" or word$(name$, 2) = "number" or left$(name$, 11) = "H_Uninstall" or name$ = "H_"_
or name$ = "H_StartupDir" or name$ = "H_EVAL" or name$ = "H_EVAL$" or right$(name$, 4) = "face"_
or name$ = "H_REPLSTR" or name$ = "H_UPPER$(s)" or name$ = "H_LOWER$(s$)" or word$(name$,2) = "name," or word$(name$,2) = "#handle," then
oneOf$(i) = ""
end if
'remove any duplicates from search list (Thanks to tsh73)
if lower$(nameLast$) = lower$(name$) then oneOf$(i) = ""
if instr(happened$, "|";oneOf$(i);"|")=0 then
happened$=happened$;oneOf$(i);"|"
K=K+1: b$(K)=oneOf$(i)
end if
nameLast$ = name$
next i
'Create final list of search results
for x = 0 to K
if lower$(word$(b$(x), 2, "_")) = lower$(searchFor$) then match$ = b$(x)
if instr(lower$(b$(x)), lower$(searchFor$)) _
and lower$(mid$(b$(x), 3, len(searchFor$))) = lower$(searchFor$)_
or lower$(mid$(b$(x), 4, len(searchFor$))) = lower$(searchFor$) then_
searchList$(u+3) = b$(x) : u = u+1
next x
for t = 0 to K
if instr(lower$(b$(t)), lower$(searchFor$)) then
if lower$(mid$(b$(t), 3, len(searchFor$))) <> lower$(searchFor$)_
and lower$(mid$(b$(t), 4, len(searchFor$))) <> lower$(searchFor$) then
searchList$(u+v+10) = b$(t) : v = v+1
end if
end if
next t
for a = 0 to K
if not(instr(lower$(b$(a)), lower$(searchFor$))) then_
searchList$(u+v+w+17) = b$(a) : w = w+1
next a
'manage the headers
if u+v <> 0 then searchList$(0) = u+v;" Titles Containing ";q$;upper$(searchFor$);q$
if u+v = 0 then searchList$(0) = " No Titles Found for ";q$;upper$(searchFor$);q$';" Found"
searchList$(1) = " "
if v <> 0 then searchList$(2) = " ";u;" Top Picks For ";q$;upper$(searchFor$);q$
searchList$(u+5) =" "
if v <> 0 then searchList$(u+6) = " ";v;" Remaining Titles "'
if v <> 0 then searchList$(u+7) =" "
if v <> 0 then searchList$(v+u+13) = " "
if w-2 <> 0 then searchList$(v+u+14) = " ";w-2;" Other Pages "
if u+v = 0 then searchList$(v+u+14) = " ";w-2;" Pages Containing ";upper$(searchFor$)
searchList$(v+u+15) = " "
searchList$(v+u+w+29) = " "
searchList$(v+u+w+30) = " If you need more information "
searchList$(v+u+w+31) = " on "
searchList$(v+u+w+32) = " Liberty Basic v4.5.1 Coding "
searchList$(v+u+w+33) = " Please Visit"
searchList$(v+u+w+34) = " The Liberty Basic Forums "
searchList$(v+u+w+35) = " @ "
searchList$(v+u+w+36) = "https://libertybasiccom.proboards.com/"
searchList$(v+u+w+37) = " "
searchList$(v+u+w+38) = " "
'if there is a match with the search result
if match$ <> "" then searchList$(1) = " 1 Match "
#main.resultsList "reload"
'finished displaying results - reset variables - cursor back to normal
[doneSearching]
u = 0 : v = 0 : w = 0 : match$ = ""
cursor normal
goto [search]
'One of the Help Search results was Selected - Open the Help File in user's default browser
[openFile]
if lbHelp = 1 then
#main.resultsList "selection? selectionH$"
selectionH$ = right$(selectionH$, len(selectionH$) - 2)
if selectionH$ = "XOR" or selectionH$ = "AND" or selectionH$ = "NOT" or selectionH$ = "OR" then
run "explorer.exe ";helpFilePath$;"\html\libe0azy.htm"
goto [search]
end if
if left$(selectionH$, 5) = "Purch" then
run "explorer https://www.libertybasic.com/"
goto [search]
end if
files helpFilePath$;"\html", info$()
numFiles = val(info$(0,0 ))
for i = 1 to numFiles
fileToOpen$ = info$(i, 0)
open helpFilePath$;"\html\";fileToOpen$ for input as #3
contents$ = input$(#3, lof(#3)) : close #3
if instr(lower$(contents$), lower$("<title>";selectionH$;"</TITLE>")) then
if fileToOpen$ = "idecode451.html" then fileToOpen$ = "libe0ze8.htm"
run "explorer.exe ";helpFilePath$;"\html\";fileToOpen$ : done = 1
if done = 1 then exit for
else
if done = 1 then goto [search]
if instr(lower$(contents$), lower$("</A><B>";selectionH$;"</B></P>")) then
run "explorer.exe ";helpFilePath$;"\html\";fileToOpen$ : done = 1
if done = 1 then exit for
end if
end if
next i
if done = 1 then done = 0 : goto [search]
end if
'if a Code Example file was selected
if lbexamples = 1 then
#main.resultsList "selection? selectionCE$"
selectionCE$ = right$(selectionCE$, len(selectionCE$) - 3)
if fileExists(uAppPath$, selectionCE$;".bas") then
run lbexe$;" ";uAppPath$;"\";selectionCE$;".bas" : goto [search]
end if
end if
#main.resultsList "selection? selection$"
if selection$ = "https://libertybasiccom.proboards.com/" then run "explorer ";selection$ : goto [search]
'if a ToolsHelp file was selected
if lbtools = 1 then
#main.resultsList "selection? selectionT$"
selectionT$ = right$(selectionT$, len(selectionT$) - 2)
if fileExists(lbProTools$, selectionT$;".html") then
run "explorer.exe ";lbProTools$;"\"; selectionT$;".html"
end if
end if
wait
[quit]
close #main
end
'create a pause subroutine
sub pause mil
t=time$("ms")+mil
while time$("ms")<t
scan
wend
end sub
'function for checking folder existence
function pathExists(path$)
pathExists = (mkdir(path$)=183)
end function
'Verify file existence function
function fileExists(path$, filename$)
dim fileExistsInfo$(0,0)
files path$, filename$, fileExistsInfo$()
fileExists = val(fileExistsInfo$(0, 0)) 'non zero is true
end function
Function GetSpecialFolder$(CSIDL) ' - code Thanks to Brandon Parker
S.OK = NULL
GetSpecialFolder$ = "Operation Failed"
pszPath$ = Space$(_MAX_PATH);chr$(0)
CallDLL #shell32, "SHGetFolderPathA", _NULL As ulong, _ 'hWnd is RESERVED
CSIDL As long, _ 'CSIDL value
_NULL As ulong, _ 'hToken is set to NULL to check the current token
0 As ulong, _ 'dwFlags is set to NULL to represent SHGFP_TYPE_CURRENT
pszPath$ As ptr, _ 'pszPath is where the path string will be stored upon return
ret As long
If (ret = S.OK) Then GetSpecialFolder$ = Trim$(pszPath$)
End Function
'functions for making the folder dialog window
function FolderDialog$(caption$)
WindowWidth = 600
WindowHeight = 370
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
BackgroundColor$ = "lightgray"
ForegroundColor$ = "black"
gosub [FolderDlgGetDrives]
statictext #folderdlg.S, "Note: - Only Drives and Folders Appear Below - No Files Appear", 125, 15, 550, 25
statictext #folderdlg.S, "Select a Drive or a Folder From the List", 205, 40, 300, 25
statictext #folderdlg.D, " (Single Click Drive Letters and Folders to Select or Navigate)", 145, 75, 395, 15
listbox #folderdlg.list, FolderList$(, [FolderDlgSelect], 22, 90, 550, 130
button #folderdlg.default, "Ok", [FolderDlgOk], UL, 190, 293, 85, 35
button #folderdlg.B, "Back", [FolderDlgBack], UL, 20, 40, 80, 30
button #folderdlg.C, "Cancel", [FolderDlgCancel], UL, 290, 293, 85, 35
textbox #folderdlg.text, 42, 225, 510, 25
statictext #folderdlg.path, "Selected Drive or Folder Path Appears Here", 130, 258, 400, 20
open caption$ for dialog_modal as #folderdlg
#folderdlg, "trapclose [FolderDlgCancel]"
#folderdlg.default, "!font Arial 8 bold"
#folderdlg, "font Arial 10 bold"
#folderdlg.S, "!font Arial 10 bold"
#folderdlg.path, "!font Arial 10 bold"
#folderdlg.list, "font Arial 10 bold"
#folderdlg.C, "!font Arial 10 bold"
#folderdlg.D, "!font Arial 8 bold"
#folderdlg.text, "!font Arial 10 bold"
#folderdlg.list "singleclickselect"
wait
[FolderDlgSelect]
#folderdlg.list, "selection? temp$"
if temp$ <> "" then
level = level+1
folder$ = folder$; temp$; "\"
#folderdlg.text, folder$
gosub [FolderDlgGetDir]
#folderdlg.list, "reload"
end if
wait
[FolderDlgBack]
if level > 0 then
level = level-1
if level = 0 then
folder$ = ""
gosub [FolderDlgGetDrives]
else
i = len(folder$)-1
while mid$(folder$, i, 1) <> "\" and mid$(folder$, i, 1) <> ""
i = i-1
wend
folder$ = left$(folder$, i)
gosub [FolderDlgGetDir]
end if
#folderdlg.text, folder$
#folderdlg.list, "reload"
end if
wait
[FolderDlgGetDrives]
c = 1
while word$(Drives$, c) <> ""
c = c+1
wend
redim FolderList$(c)
for i = 1 to c
FolderList$(i) = word$(Drives$, i)
next i
return
[FolderDlgGetDir]
files folder$, info$(
s = val(info$(0,0))
t = val(info$(0,1))
redim FolderList$(t)
for i = 1 to t
FolderList$(i) = info$(i+s, 1)
next i
return
[FolderDlgOk]
#folderdlg.text, "!contents? FolderDialog$"
If right$(FolderDialog$,1) = "\" then FolderDialog$ = left$(FolderDialog$, len(FolderDialog$) - 1)
[FolderDlgCancel]
close #folderdlg
end function
|
|
|
|
Post by Brandon Parker on Apr 4, 2023 9:36:21 GMT -5
First, Liberty BASIC and Liberty BASIC PRO have the same base with respect to the ability to run Liberty BASIC programs. LB PRO simply has some added features that are not available in the non-PRO version and its named folder structure should represent the name difference.
I will have to dig around and see if I have the code somewhere. I am fairly confident at least one person here will have it since it was part of the Help Search Challenge...
{:0)
Brandon Parker
|
|
|
|
Post by xxgeek on Apr 4, 2023 9:55:28 GMT -5
I have Edited both versions to support those who have installed to other than the default install dir.
Also Added checkbox to Pro version for searching the Tools help files.
Thanks again Brandon.
btw - Does the older advanced version search the Example Code files, and / or the Tools help.
|
|
|
|
Post by metro on Apr 4, 2023 19:03:11 GMT -5
I will have to dig around and see if I have the code somewhere. I am fairly confident at least one person here will have it since it was part of the Help Search Challenge... {:0) Brandon Parker Sorry, I did not save that specific code by the look of it.
|
|
|
|
Post by xxgeek on Apr 4, 2023 21:22:39 GMT -5
The version I have Looks very similar to the one Brandon posted. So similar it may be the same but with a couple aesthetic edits by the user. I'll try posting a picture created with Paint as a png. My pictures never turn out very well, so be nice. At the top of the code : ' LB Help Search Add-on.bas ' Author: Stefan Pendl ' Date: 24.04.11 ' ' Copyright 2011 by Stefan Pendl ' ' This code is free for personal use. ' You may not republish this code in its current form. ' You may modify this code for your personal use. ' You may publish a modified version of this code under these conditions: ' 1. You have made major changes to the code. ' 2. You give credit to the original author ![]()  Finally, a good picture  |
|
|
|
Post by Brandon Parker on Apr 8, 2023 9:27:02 GMT -5
The one I posted was created by jaba, but I cannot find the source code anywhere. I will keep searching when I get some time.
{:0)
Brandon Parker
|
|
|
|
Post by metro on Apr 8, 2023 20:16:08 GMT -5
jaba made 8 submissions to the Wiki Contest
his last is below, unfortunately I did not save "help_brown.bmp". Maybe you have that Brandon I have the notebook version too if anyone wants it.
' LB Help Search entry
' Author: jaba
' Date: May 5, 2011
'
' History:
' v1.0 May 6, 2011 Submitted
' v1.01 May 6, 2011 Added browser control
' v1.02 May 9, 2011 Added GetModuleFileName$() routine
' v1.03 May 12, 2011 Additional pages added to quick viewer
' Some names made more purpose-descriptive
'
' v1.03b May 13, 2011 Final Lite version
' v1.03d May 14, 2011 in progress...added 200px to width for index listbox (not using)
' v1.03e May 14, 2011 Alpha version with index listbox (not using)
' v1.03f May 15, 2011 rebuilt banner; added Help
' Submitted May 16, 2011
' v2.0 May 16, 2011 Submitted Assistant version (this version)
'
' things to do:
' add MRU list in combobox for Find textbox
' add Favorites
' decide best use for middle window
' options
'
' -- be sure to update ABOUT before Final submission --
'
' This code is free for personal use.
' To protect the rights of others whose code is included, please note following:
' You may not republish this code in its current form.
' You may modify this code for your personal use.
' You may publish a modified version of this code under these conditions:
' 1. You have made major changes to the code.
' 2. You give credit to the original authors
'
' Based on a framework provided by Alyce on LB forum.
'
' Some parts taken from entries by others, including
' Alyce, Janet, Stefan, and Gordon.
'
' Thanks to them and others.
'
' This version uses a built-in ATL.DLL browser control
' in addition to the user's default browser.
'
'
' Thanks to Stefan Pendl for API function method to obtain location of
' LB installation directory. This method is more reliable with systems
' running Vista/Win7 than is the StartupDir$ or DefaultDir$ method.
InstallDir$ = GetFolder$(GetModuleFileName$())
HelpDir$ = InstallDir$ + "lb4help\LibertyBASIC_4_web\HTML\"
HelpFileIndex$ = InstallDir$; "lb4help\"
ContentsFileName$ = "LibertyBASIC_4.html"
WdoTitle$ = "LB HTML SEARCH ASSISTANT"
'List of Quick View pages:
'Table of Contents = "libe3mnn.htm" 'amber_menu.htm
'Command Reference = "libe2co3.htm"
'Reserved Word List = "libe6ldg.htm"
'Text commands = "libe778l.htm"
'Graphic commands = "libe233p.htm"
Open "atl" For DLL As #atl
CallDLL #atl, "AtlAxWinInit", Ret As long
nomainwin
[setupGUIWdo]
WindowWidth = 925
WindowHeight = 730
UpperLeftX = DisplayWidth - WindowWidth
UpperLeftY = 40
'***banner
graphicbox #s.banner 1, 1, 735, 30
button #s.content "Open Default Browser", [openBrowser], UL, 734, 1, 154, 30
'***help button
'is there a bmp file for help?
if fileExists(DefaultDir$, "Help_brown.bmp") then
bmpbutton #s.hlp "Help_brown.bmp", [help], UL, 888, 1
else
button #s.hlp "?", [help], UL, 550, 10
end if
'***search
TextboxColor$ = "buttonface"
graphicbox #s.explorer 0, 30, 200, 25
' combobox #s.term mru$(), [mruList], 1, 55, 160, 25 '<---may try to use this
textbox #s.term 1, 55, 160, 25
button #s.default "Find", [findPages], UL, 160, 55, 40, 25
ListboxColor$ = "buttonface"
listbox #s.pages, found$(), [displaySelectedPage], 1, 80, 200, 160
checkbox #s.qvChkbx, "Check to open in Quick Viewer", [setChk], [resetChk], 10, 243, 190, 18
'***notes
TextboxColor$ = "buttonface"
graphicbox #s.notes 200, 30, 534, 25
stylebits #s.middle, _WS_VSCROLL OR _ES_MULTILINE, _ES_AUTOHSCROLL, 0, 0
textbox #s.middle 201, 55, 534, 210
'***index
graphicbox #s.indx 735, 30, 180, 25
ListboxColor$ = "buttonface"
stylebits #s.index, _WS_HSCROLL, 0, 0, 0
listbox #s.index, index$(), [pickBox], 735, 55, 179, 605
'***quick viewer
graphicbox #s.heading 0, 266, 200, 25
' button #s.quick "Quick Start Guide", [quickButton], UL, 200, 266, 100, 25 'points to libe3mnn.htm
button #s.toc "LB 4.04 Contents", [tocButton], UL, 200, 266, 100, 25 'points to libe3mnn.htm
button #s.commands "Command Reference", [commandsButton], UL, 300, 266, 115, 25 'points to libe2co3.htm
button #s.reserve "Reserved Words", [reservedButton], UL, 415, 266, 100, 25 'points to libe6ldg.htm
button #s.text "Text Commands", [textButton], UL, 515, 266, 100, 25 'points to libe778l.htm
button #s.graph "Graphics Commands", [graphicButton], UL, 615, 266, 115, 25 'points to libe233p.htm
graphicbox #s.resource 1, 290, 734, 370 'container for browser control
'***status bar
statictext #s.status, "Right-click browser window for BACK/FORWARD.", 10, 662, 210, 20
'comment out if color bar not wanted
gosub [defineColorBar]
[openGUIWdo]
open WdoTitle$ for dialog_nf as #s
#s "trapclose [quit]"
#s.index "singleclickselect"
#s.pages "singleclickselect"
#s.qvChkbx "set" :chkSet = 1
#s "font ms_sans_serif 9"
#s.content "!font ms_sans_serif 9"' bold"
#s.heading "font arial 9 bold"
#s.explorer "font arial 9 bold"
#s.notes "font arial 9 bold"
#s.indx "font arial 9 bold"
#s.status "!font arial 7"
#s.qvChkbx "font arial 7"
gosub [colorBar]
'color the banner
#s.banner "fill buttonface"
#s.banner "down; place 0 20; color black; backcolor buttonface"
#s.banner "\ LB Help Search Challenge"
#s.banner "flush"
#s.explorer "fill 88 66 55; color white; backcolor 88 66 55; down; place 0 15"
#s.explorer "\ Search results"
#s.explorer "flush"
#s.notes "fill 88 66 55; color white; backcolor 88 66 55; down; place 0 15"
#s.notes "\ Clipboard / Notes"
#s.notes "flush"
#s.indx "fill 88 66 55; color white; backcolor 88 66 55; down; place 0 15"
#s.indx "\ Index"
#s.indx "flush"
#s.heading "fill 88 66 55; color white; backcolor 88 66 55; down; place 0 15"
#s.heading "\ Quick Viewer"
#s.heading "flush"
'display table of contents in browse control
QuickViewPage$ = "libe3mnn.htm"
call createBrowseControl HelpFileIndex$, ContentsFileName$, hFlag
' #s.term " Type search term... "
#s.term "!setfocus"
#s.term "!selectall"
dim info$(10,10)
files HelpDir$, "*.htm", info$()
numFiles = val(info$(0,0))
'load index array
dim index$(numFiles)
scan
for i = 1 to numFiles
open HelpDir$ + info$(i,0) for input as #file
txt$ = INPUT$(#file, lof(#file))
index$(i) = GetTitle$(txt$); chr$(0); info$(i,0)
close #file
next i
sort index$(), 1, numFiles
#s.index "reload"
gosub [hint] '<--- Comment out when no longer needed.
#s.middle "* * * HINTS * * *";chr$(13);chr$(10);_
"A handy way to browse the results pages...";chr$(13);chr$(10);_
"Enter search term. Check the box to open in Quick Viewer. ";_
"Use the arrow keys to advance to the first or next page ";_
"in the listbox. Each highlighted page will display in the ";_
"Quick Viewer.";chr$(13);chr$(10);_
"With the checkbox cleared, doing the same thing will open ";_
"in a new tab in your browser. A ctrl-w will usually close the tab.";chr$(13);chr$(10);_
"";chr$(13);chr$(10);chr$(13);chr$(10);_
"This textbox space is a work in progress. Still working on ";_
"ideas for its use."
wait
[mruList]
wait
[dummy]
wait
[setChk]
#s.qvChkbx "set"
chkSet = 1
wait
[resetChk]
#s.qvChkbx "reset"
chkSet = 0
wait
[tocButton]
QuickViewPage$ = "libe3mnn.htm"
call createBrowseControl HelpFileIndex$, ContentsFileName$, hFlag
wait
[commandsButton]
QuickViewPage$ = "libe2co3.htm"
call createBrowseControl HelpDir$, QuickViewPage$, hFlag
wait
[reservedButton]
QuickViewPage$ = "libe6ldg.htm"
call createBrowseControl HelpDir$, QuickViewPage$, hFlag
wait
[textButton]
QuickViewPage$ = "libe778l.htm"
call createBrowseControl HelpDir$, QuickViewPage$, hFlag
wait
[graphicButton]
QuickViewPage$ = "libe233p.htm"
call createBrowseControl HelpDir$, QuickViewPage$, hFlag
wait
[findPages]
#s.term "!contents? term$"
if term$ = "" then
redim found$(1)
#s.pages "reload"
wait
end if
dim found$(numFiles)
for i = 1 to numFiles
open HelpDir$ + info$(i,0) for input as #file
txt$ = INPUT$(#file, lof(#file))
if instr(txt$, term$) >0 then
found$(i) = GetTitle$(txt$); chr$(0); info$(i,0)
#s.pages "reload"
end if
close #file
next
wait
[openBrowser]
'open user's default browser
run "rundll32.exe url.dll,FileProtocolHandler "; chr$(34); HelpFileIndex$ + ContentsFileName$; chr$(34)
wait
[displaySelectedPage]
#s.pages "selection? FileName$"
FileName$ = word$(FileName$, 2, chr$(0))
if chkSet = 0 then
'open in user's default browser or new tab
run "rundll32.exe url.dll,FileProtocolHandler "; chr$(34); HelpDir$; FileName$; chr$(34)
else
call createBrowseControl HelpDir$, FileName$, hFlag
end if
wait
[pickBox]
#s.index "selection? qvp$"
qvp$ = word$(qvp$, 2, chr$(0))
call createBrowseControl HelpDir$, qvp$, hFlag
wait
[help]
WindowWidth = 400
WindowHeight = 290
statictext #h.hlp "", 10, 10, 390, 280
open "How to use" for window as #h
#h "trapclose [noMoreh]"
hlpWdoOpen = 1
gosub [printHlp]
wait
[noMoreh]
close #h
hlpWdoOpen = 0
wait
[quit]
close #s
close #atl
if hlpWdoOpen = 1 then close #h :hlpWdoOpen = 0
end
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXSUBS AND FUNCTIONS
'credit: Alyce's entry.
'extract title from html text
function GetTitle$(s$)
marker1=instr(upper$(s$), "<A NAME=")
marker1=instr(upper$(s$), "<B>",marker1)+3
marker2=instr(upper$(s$), "</B>", marker1)
lenTitle=marker2-marker1
GetTitle$=mid$(s$,marker1,lenTitle)
end function
'borrowed from Stefan Pendl
'added 5/9/11
function GetModuleFileName$()
nSize = _MAX_PATH + 1
lpFilename$ = space$(nSize); CHR$(0)
calldll #kernel32, "GetModuleFileNameA",_
hModule as uLong,_
lpFilename$ as ptr,_
nSize as uLong,_
result as uLong
if result > 0 then GetModuleFileName$ = trim$(lpFilename$)
end function
function GetFolder$(Path$)
pos = 1
GetFolder$ = Path$
while pos > 0
pos = instr(Path$, "\", pos)
if pos > 0 then
GetFolder$ = left$(Path$, pos)
pos = pos + 1
end if
wend
end function
sub createBrowseControl D$, F$, byref hATL
if hATL then
CallDLL #user32, "DestroyWindow", _
hATL As ulong, _
result As long
hATL = 0
end if
hWndContainer = hWnd(#s.resource) 'graphicbox handle
callDLL #user32, "GetWindowLongA", _
hWndContainer as ulong, _
_GWL_HINSTANCE as long, _
hInst as ulong
ResName$ = D$ + F$ 'file to display
style = _WS_CHILD or _WS_VISIBLE or _WS_VSCROLL
CallDLL #user32, "CreateWindowExA", _
_WS_EX_STATICEDGE As long, _ 'extended type
"AtlAxWin" As ptr, _ 'class name
ResName$ As ptr, _ 'resource file name & path
style As long, _ 'window style
1 As long, _ 'left x pos
1 As long, _ 'top y pos
729 As long, _ 'width
366 As long, _ 'height
hWndContainer As ulong, _ 'handle of container
100 As long, _ 'handle to menu or child window ID
hInst As ulong, _ 'parent instance handle
0 As long, _ 'window creation data
hATL As ulong 'handle of active template library control
end sub
[printHlp]
' Help window contents
hlp$ = "Find button -";chr$(13);_
" Type search term into textbox. Results are shown in listbox below.";chr$(13);_
" Single-click a result to display the page in your default browser.";chr$(13);_
" Check the box to display results in the Quick Viewer window.";chr$(13);chr$(13);_
"Open Default Browser button -";chr$(13);_
" Click button to open your default browser to Table of Contents.";chr$(13);chr$(13);_
"Index -";chr$(13);_
" Single-click an Indexed item in listbox to view it in the Quick Viewer.";chr$(13);chr$(13);_
"Quick Viewer -";chr$(13);_
" Select from the 5 buttons to view a pre-selected help topic.";chr$(13);chr$(13);_
" ABOUT LB HELP SEARCH ASSISTANT";chr$(13);_
" Version 2.0";chr$(13);_
" May 15, 2011";chr$(13);_
" By: jaba"
print #h.hlp, hlp$
return
[hint]
notice "A handy way to browse the results pages...";chr$(13);_
"Enter search term. Check the box to open in Quick Viewer.";chr$(13);_
"Use the arrow keys to advance to the first or next page";chr$(13);_
"in the listbox. Each highlighted page will display in the";chr$(13);_
"Quick Viewer.";chr$(13);chr$(13);_
"With the checkbox cleared, doing the same thing will open";chr$(13);_
"in a new tab in your browser. A ctrl-w will usually close the tab."
return
function fileExists(path$, filename$)
files path$, filename$, info$()
fileExists = val(info$(0, 0))
end function
[defineColorBar]
graphicbox #s.c1 230, 677, 42, 15
statictext #s.l1 "yellow", 230, 662, 40, 15
graphicbox #s.c2 272, 677, 42, 15
statictext #s.l2 "brown", 272, 662, 40, 15
graphicbox #s.c3 314, 677, 42, 15
statictext #s.l3 "red", 314, 662, 40, 15
graphicbox #s.c4 356, 677, 42, 15
statictext #s.l4 "darkred", 356, 662, 40, 15
graphicbox #s.c5 398, 677, 42, 15
statictext #s.l5 "pink", 398, 662, 40, 15
graphicbox #s.c6 440, 677, 42, 15
statictext #s.l6 "darkpink", 440, 662, 40, 15
graphicbox #s.c7 482, 677, 42, 15
statictext #s.l7 "blue", 482, 662, 40, 15
graphicbox #s.c8 524, 677, 42, 15
statictext #s.l8 "darkblue", 524, 662, 40, 15
graphicbox #s.c9 566, 677, 42, 15
statictext #s.l9 "green", 566, 662, 40, 15
graphicbox #s.c10 608, 677, 42, 15
statictext #s.l10 "darkgreen", 608, 662, 40, 15
graphicbox #s.c11 650, 677, 42, 15
statictext #s.l11 "cyan", 650, 662, 40, 15
graphicbox #s.c12 692, 677, 42, 15
statictext #s.l12 "darkcyan", 692, 662, 40, 15
graphicbox #s.c13 734, 677, 42, 15
statictext #s.l13 "white", 734, 662, 40, 15
graphicbox #s.c14 776, 677, 42, 15
statictext #s.l14 "black", 776, 662, 40, 15
graphicbox #s.c15 818, 677, 42, 15
statictext #s.l15 "lightgray", 818, 662, 40, 15
graphicbox #s.c16 860, 677, 42, 15
statictext #s.l16 "darkgray", 860, 662, 40, 15
return
[colorBar]
#s.l1 "!font arial 7"
#s.l2 "!font arial 7"
#s.l3 "!font arial 7"
#s.l4 "!font arial 7"
#s.l5 "!font arial 7"
#s.l6 "!font arial 7"
#s.l7 "!font arial 7"
#s.l8 "!font arial 7"
#s.l9 "!font arial 7"
#s.l10 "!font arial 7"
#s.l11 "!font arial 7"
#s.l12 "!font arial 7"
#s.l13 "!font arial 7"
#s.l14 "!font arial 7"
#s.l15 "!font arial 7"
#s.l16 "!font arial 7"
#s.c1 "fill yellow; flush"
#s.c2 "fill brown; flush"
#s.c3 "fill red; flush"
#s.c4 "fill darkred; flush"
#s.c5 "fill pink; flush"
#s.c6 "fill darkpink; flush"
#s.c7 "fill blue; flush"
#s.c8 "fill darkblue; flush"
#s.c9 "fill green; flush"
#s.c10 "fill darkgreen; flush"
#s.c11 "fill cyan; flush"
#s.c12 "fill darkcyan; flush"
#s.c13 "fill white; flush"
#s.c14 "fill black; flush"
#s.c15 "fill lightgray; flush"
#s.c16 "fill darkgray; flush"
return
|
|
|
|
Post by xxgeek on Apr 9, 2023 13:39:19 GMT -5
@ metro Thanks for digging this up and posting it.
jaba wanted to "decide best use for middle window"
How about using it for tips as it already does, but shorten the width to make room for 2 listboxes.
One Listbox for search results of Liberty Examples Code.
And in a version for LB PRO with Listboxes of search results for Tools, and Code Examples.
Would anyone use it?
|
|
