How to get a list of all AutoText files in the left pane

[win]

I finally got it. 

My programming level is limited and I can only use the most clumsy method.

I hope someone can provide a better way 

Thank you very much for the help of kevin. Without your help, this Function is impossible. 

 

Code:

Copy      Help

case 14 ;;Edit
_s.getwintext(id(5 hDlg))
str items=sub.gotoitemedit(_s)
items.findreplace(":sub." "     ")
items.findreplace(";;" "     ")
_i=ListDialog(items "Which item to Edit" "Select item")
if(_i=0) ret
mac+ _s
int c=GetQmCodeEditor
out _i

SendMessage(c SCI.SCI_GOTOLINE _i 0)
int cp=SendMessage(c SCI.SCI_GETCURRENTPOS 0 0)
cp+12
SendMessage(c SCI.SCI_GOTOPOS cp 0)

 

Code:

Copy      Help

#sub gotoitemedit
function~ ~name

str pattern="(?:.*\:sub.Sub\d.*)"

_s.getmacro(name 0)
str ss d
int i
ARRAY(str)+ aid_S
foreach ss _s
    findrx(ss pattern 0 4 aid_S)
    for i 0 aid_S.len
        d.formata("%s[]" aid_S[0 i])
ret d.trim