Code: Select all
RunProgram("open", "https://world-weather.info/forecast/usa/everett/march-2023/", "")
WilliamL wrote: Thu Apr 11, 2024 3:31 am I was playing with RunProgram but couldn't get the right combination.
Code: Select all
#helppath$="/Applications/PureBasic.app/Contents/Resources/help/purebasic/"
Procedure.s sh(search$)
Protected Output$, shell
shell = RunProgram("/bin/sh","","",
#PB_Program_Open|#PB_Program_Write|#PB_Program_Read)
If shell
WriteProgramStringN(shell,search$)
WriteProgramData(shell,#PB_Program_Eof,0)
While ProgramRunning(shell)
If AvailableProgramOutput(shell)
Output$ + ReadProgramString(shell)
EndIf
Wend
CloseProgram(shell)
EndIf
ProcedureReturn Output$
EndProcedure
Procedure pbh(s.s)
s=#helppath$+sh("grep -i '"+s+"' "+#helppath$+~"index.xml | awk -F'\"' '{ print $(NF-1) }' | head -n 1")
if s <> #helppath$
sh( "open -a safari " + URLEncoder(s) )
EndIf
EndProcedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
pbh("runprogram") ; PB Help in Safari