Clipit

This command file (for use inside Qedit) can put lines of text, source code, etc. into notepad. This is handy if you're inside a program and you'd like to have the contents of a $include file on your screen at the same time, etc.

You need to be using Reflection from WRQ in order for this to work.

Some examples:

List a copylib member...
clipit (dbmodes)

List the working storage

  /find "Working"
  /zz *
  /find "Procedure"
  /zz
  clipit zz

CLIPIT.CMD
----------
anyparm  qedit_list_cmd=""
option nolist
comment   echo usage:  clipit {qedit list command}
comment   echo
comment   echo   This command file will perform a qedit list to viewclip.
comment   echo
comment   echo   For example,
comment   echo
comment   echo   clipit "$include"  will list all of the lines that contain
comment   echo                      the string "$include" to a file and
comment   echo                      then start up viewclip to view the file.
comment   echo
comment   If you don't have Viewclip, then just change c:\robelle\viewclip to
comment   notepad, or whatever you'd like.
comment
setjcw cierror 0
comment  And now the undocumented qedit i/o fix...
option list
:purge cliptemp,temp > $null
:/verify list > oldlopts
/set list page off name off title off
:file lpb=cliptemp;temp;nocctl;dev=disc
:/lq $lpb !qedit_list_cmd
/useq  oldlopts
reflect receive c:\robelle\cliptemp.txt from cliptemp delete
reflect shell c:\robelle\viewclip c:\robelle\cliptemp.txt

Note: This command file uses ViewClip to display the downloaded text file. You can change the command file to use Notepad, or whatever Windows program you want to use that can edit or display files.

....Back to the Qedit Q&A Page