Searching scripts

[Gene FitzPatrick]

Another function that went away or maybe moved to a not-so-obvious place is the ability to search scripts. Of course I am not talking about the forum but rather A5 itself. Any of the searchers for functions of old here notice that as well? Or, perhaps know how to search scripts for a phrase these days?

[madtowng]

Hi Gene,

Please elaborate. I use search to find scripts and functions, and to find keywords in scripts and functions.

[johnkoh]

Are you looking for Using Global Search of Scripts and Functions?
https://documentation.alphasoftware....0Functions.xml

[Gene FitzPatrick]

I used to use that function a great deal from the code tab as you say John. However, my point is that the choice to search scripts and functions is no longer visible to me. I am asking why not and where was it moved to?

Thanks,

[Gene FitzPatrick]

I found it! From the code tab, choose view.code editor and then hit the F6 key. Obvious? I think not.

Gene

[Mike Wilson]

I wrote my own a while back and it is a call on my control panel toolbar. I use it ALL THE TIME!!! Here it is if anyone would like it. To access scripts with passwords, you have to put your password into the top line. The result of the search returns a dialog with the name of all the scripts found with the search term from which you can open the scripts for inspection and design. I couldn't develop without this. It searches through 1650 scripts in about a minute running remote from home.

dim global vproceed as C ="yes"

'set script password
dim vPW as C="YOURPASSWORDHERE"
dim vclip_YN as C="Y"

'get text to find
dim vfind_text as C=""
dim vnort as C=" Full Text Search"

'DIALOG STRUCTURE
dim dlg_title as C
dlg_title = "Script Text Search"
dim dlg_body as C
dim dlg_code as C
dim vR as C

'dialog field variables

'build dialog
dlg_body = <<%dlg%
{startup=init}{background=hsi gray}{xmargin=3,3}{ymargin=1,1}
{region1}{justify=right}<%T=Search;B=T;I=$$edit.search%4,1!continue>{sp=3}<%T=Close;B=T;I=$$generic.exit%4,1!exit>
{endregion1};

{justify=left}{font=arial,8,bi}{frame=1,3: Search }
{region2}{lf};
{sp=15}{font=Arial,9,b}(vnort: Name Only Search){sp=7}(vnort: Full Text Search);{lf};
{font=arial,9,bi}{sp=3}Find Text:{sp=2}{font=arial,10,b}[.55vfind_text]
<%O={J=C}{I:'$$mini.control.calendar'}{F=arial,10} Date ;OF={J=C}{C=white}{B=black}{I:'$$mini.control.calendar'}{F=Arial,10,bi} Date %18!calendar>
;
{endregion};{lf};
;{justify=right}{font=arial,4}<.1!dlg_script>
%dlg%

dlg_code=<<%code%
'INIT
IF a_dlg_button="init"
sys_send_keys("{HOME}")
a_dlg_button=""
END IF

'CALENDAR
IF a_dlg_button="calendar"
vfind_text="'Last Updated: "+format_data(date(),"9-")
a_dlg_button=""
END IF


'EXIT
if a_dlg_button="exit"
vproceed="no"
ui_modeless_dlg_close(dlg_title)
end if

%code%

vR=ui_dlg_box(dlg_title,dlg_body,dlg_code)
if vproceed="no"
end
end if

if vfind_text=""
end
end if

if vnort=" Name Only Search"
vnort="name"
else
vnort="all"
end if


' get list of scripts and UDFs
dim vudf_enum as C=""
vudf_enum=a5.UDF_enum(2)

dim vscr_enum as C
vscr_enum=a5.Script_Enum(2)

'add the counts of scripts and UDFs
dim vcycle as N=1
tcount = line_count(vudf_enum)+line_count(vscr_enum)
' lba("36 - Script Count","There are: "+(""+tcount)+" Scripts")
' if vproceed="no";end;end if

'start wait dialog
DIM GLOBAL pDlg1 as {waitdialog}
pDlg1.Set_Title("Please Wait")
pDlg1.Create(1,"Percent")
pDlg1.Set_Message("")
pDlg1.Set_Bottom_Message("")
pDlg1.Set_Percent(Var->vcycle,Var->tcount)

' loop through UDFs
dim cycle as n=1
dim vPW as C
dim vudfw as C
dim vscrw as C
dim with_text as C=""
dim with_text_show as C=""
for each foo in vudf_enum
foo=alltrim(foo)
if vnort="name"
if vfind_text $ foo
with_text=with_text+"U..."+foo+crlf()
end if
else
vudfw=UDF_load(foo,vPW)

if vfind_text $ vudfw
with_text=with_text+"U..."+foo+crlf()
end if
end if

vcycle=vcycle+1
pDlg1.Set_Percent(Var->vcycle,Var->tcount)
pDlg1.Set_Bottom_Message(foo)
next

'loop through SCRIPTS
for each foo in vscr_enum
foo=alltrim(foo)
if vnort="name"
if vfind_text $ foo
with_text=with_text+"S..."+foo+crlf()
end if
else
vudfw=UDF_load(foo,vPW)
if vfind_text $ vudfw
with_text=with_text+"S..."+foo+crlf()
end if
end if
vcycle=vcycle+1
pDlg1.Set_Percent(Var->vcycle,Var->tcount)
pDlg1.Set_Bottom_Message(foo)
next

pdlg1.close()

if vclip_YN="Y"
clipboard.Set_Data(sortsubstr(with_text,crlf()))
end if
' for each foo in with_text
' with_text_show=with_text_show+word(foo,1,"^^")+crlf()
' next
' with_text_show=sortsubstr(with_text_show,crlf())

'show in modeless dialog as checkbox list

dim d1 as C
dim d2 as C
dim dlg_body as C
dim dlg_code as C

d1=<<%dg1%
{position=11,.3}{lf};
{region}
{text=30,1vfind_text};
{endregion};
[.40,%dg1%

d2=<<%dg2%
vUK^#with_text!evuk_*]
{lf};
<Open> <Close>
%dg2%

dlg_code=<<%code%
if a_dlg_button="close"
ui_modeless_dlg_close("FOUND")
end if

if left(a_dlg_button,5)="evuk_"
if line_count(vUK)>1
ui_modeless_dlg_box("oops",<<%dlg%
{nocaption}{background=yellow}{font=arial,12,b}{position=10,.4}
{lf};
OOPS, One at a time!;
{lf};
%dlg%)
sleep(1.4)
ui_modeless_dlg_close("oops")
vUK=""
end if
'end if
a_dlg_button=""
end if

if a_dlg_button="Open"
a_dlg_button=""
dim vtype as C
'dim look as C
'look="..."+alltrim(vUK)
vtype=word(vUK,1,"...")
'msgbox("picked",look+crlf()+vtype)
vUK=alltrim(word(vUK,2,"..."))

if vtype="U"
scripteditor_open(vUK,"function")
else
scripteditor_open(vUK,"script")
end if

end if
%code%

dim xn as N
xn=line_count(with_text)*1.3
if xn>20
xn=20
end if
dlg_body=d1+alltrim(str(xn))+d2
'msgbox(dlg_body)

ui_modeless_dlg_box("FOUND",dlg_body,dlg_code)

END FUNCTION
script_text_search()

[Ronald Anusiewicz]

Gene, thank you so much for this post. I've been using Alpha since version 4.5 and I never knew this feature existed. What a time saver and valuable tool. This should be an icon in the toolbar.

[madtowng]

FYI...There's a search feature for desktop and web control panels.
Just right-click in the white-space and find the icon.

[Ted Giles]

Have a good look at A5doc. It's an add in.
A Documenter which is superb.

[madtowng]

I'm pretty sure it comes standard. Even works with Community Edition.

[Gene FitzPatrick]

A simple way to get there is to open the interactive window and hit the F6 key.