I need some help to use the QEDIT3 macro command GetScrBuff.
I want to use the GetScrBuff from within a macro to select from
a list of Scratch Buffers, and use the stored string from the
selected Scratch Buffer as a search parameter in a Find command
search. A bookmark list is saved in Scratch Buffers, as in the
SET BOOKMARK macro below, each buffer named for its contents,
which produces a picklist menu of Scratch Buffers of all Named
Bookmarks set. That part works nicely.
It's the Retrieval part which I can't seem to understand. I want
to do something like this:
GetScrBuff DelLine Return * shows buffer list
Pause * select a named buffer
Cut Find Paste Return Return * Cut Name from page
* & Search for it in DOC
But from my tests so far, it appears that the macro won't pause
at the GetScrBuff dialog box, and although it allows me to
select a buffer which is copied at the cursor position, none of
the subsequent commands are executed (or rather, it appears that
QEDIT3 attempts to execute all of the subsequent commands in the
GetScrBuff dialog box, before the selected Scratch Buffer contents
are pasted into the edited document at the cursor).
I'm probably missing something really simple there, but any help
and advice would be much appreciated.
* =========== SET BOOKMARK - QEDIT3 Macro ==================
* @(enter) SET BOOKMARK With Named Extension at Current Line
* & Save Extension Name in Scratch Buffer for Later Search
* ----------------------------------------------------------
@enter macrobegin SaveSettings AltWordSet
insertline begline
GetScrBuff "c" Return EndLine CursorRight
* Buffer "c" Contains Pre-Loaded Marker Prefix from MAIN macro
* (eg. for .BAT files "c" == "rem ")
getscrbuff "e" return
* Buffer "e" Contains Last Marker Extension Used
* (which is now edited or replaced)
DropAnchor SetInsMode ToggleInsert
pause MarkWord JTrue NEXT
CursorLeft MarkWord
NEXT:
* Store Extension to buff "e" as a prompt to set Next Marker
* (eg. to keep track of sequential numbers)
storescrbuff "e" return
* Then Store Marker Extension in Buffer of Same Name
* (eg. buffer named "Para1" contains the string "Para1")
Copy MarkWord StoreScrBuff Paste Return
unmarkblock EndLine RestoreSettings
* ==========================================================
Thanks in advance,
---
* OLX 2.1 TD * Regards, Jim. [james.moats@canrem.com] TORONTO :1/229/15
--- QScan/PCB v1.17b / 01-0348
---------------
* Origin: FidoNet: CRS Online, Toronto, Ontario (1:229/15)
|