Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
How to get a list of all AutoText files in the left pane
#4
@kevin

Thanks for your help, the code has been modified, but it is still not finished.

The following code, the current test is normal!  Smile

Missing 2nd, 3rd, 4th step code  Idea

Macro Add autotext
Trigger CSAa     Help - how to add the trigger to the macro
Code:
Copy      Help
str s.getsel

str s1 ;;string variable. If need numeric, replace str with int or double.
if(!inp(s1 "Enter AutoText Abbreviation" "" "text")) ret
str s2 ;;string variable. If need numeric, replace str with int or double.
if(!inp(s2 "Enter a phrase description" "" "description")) ret
;
;1.code:Get a list of all AutoText files, The code below is an example, Suppose there are four AutoText files.

QMITEM q; int i
ARRAY(str) atn
rep
,i=qmitem(-i 1|16 &q 1)
,if(i=0) break
,if q.itype=4
,,atn[]=q.name
_s=atn

int iSel=ListDialog(_s)
out atn[iSel]

TO_Fav "TO_Text" 0 0
int w1=act(win("Text" "#32770"))

;2.code:Open atn[iSel] file
;3.code:The cursor is positioned at the end of the last AutoText field

paste s
but id(6 w1) ;;check box 'Multiline'

;4.code:Replace the default Abbreviation with the variable s1, Add a description with the variable s2


Messages In This Thread
RE: How to get a list of all AutoText files in the left pane - by win - 03-26-2019, 01:12 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)