Conference 7.286::home_work

2051.0. "EXTRACT PROCEDURE FOR 1111.*" by 21568::BBARRY () Fri Nov 04 1988 13:51

IN the HOME_WORK discussion note, I said that someone could use the ext/keyword
command to extract notes to read.  After I entered the note I realized that 
something was wrong.  Ext/keyword/all only extracts the base notes and a few 
specifically marked replies.  The following command procedure extracts 
notes AND ALL REPLIES based on the keywords listing in 1111.*.
________________________________________________________________________________
$ !This is a command file to extract notes and replies based on keywords using 
$ !the keyword directory in the HOME_WORK note.  This procedure extracts the 
$ !directory(note_ext.com), edits the directory listing into a command 
$ !procedure, then executes it. 
$ !
$ !The edit commands:
$ !	- changes the note numbers to the form XXXX.* to include the base note 
$ !     and all replies.  The standard "extract/keyword=" command only will 
$ !	extract the base notes.
$ !     - inserts a "!" to comment out the extraneous information in the listing
$ !	- adds the extract prefix, and VMS commands
$ !This procedure creates two new files.  This procedure must be modified to
$ !to use names appropriate for your account:
$ !	- [bbarry.command]note_ext.com is the command procedure that extracts 
$ !	the notes
$ !	- [bbarry.notes]temp_extract.ext is the extracted notes listing
$ !To use this procedure first modify two lines to the keyword listing you want.
$ !In edt use "sub?1111.81?1111.xx? whole" where xx is the reply for the listing
$ !
$ !To use this procedure on another note "sub?home_work?OTHER_NOTE? whole" and
$ !"sub?1111.81?xxxx.xx? whole"  where xxxx.xx is the keyword listing 
$ !To use this procedure on another notes file that does not have a keyword note
$ !"sub?extract [bbarry.command]note_ext.com 1111.81?dir/keyword=XXXXX/output=
$ ![bbarry.command]note_ext.com? whole" and "sub?extract [bbarry.notes]temp_ext
$ !ract.ext 1111.81?dir/keyword=XXXXX/output=[bbarry.notes]temp_extract.ext? wh"
$ !
$ !Keyword extracts can be long, so please run this procedure after hours.
$ !To run it after hours use the following command where note_editor.com is this
$ !procedure
$ !	$submit/noprint/after="Today+1-1:00" note_editor
$ !Modify the 1:00 so we don't all attempt to hit the note at the same time
$ !
$note home_work/noauto
extract [bbarry.command]note_ext.com 1111.81
exit
$edit/edt/nocom [bbarry.command]note_ext.com
find=subextract
insert;SUB?1  ?1.* !? whole
insert;sub?   1?extract/append [bbarry.notes]temp_extract.ext 1? whole
insert;SUB?2  ?2.* !? whole
insert;sub?   2?extract/append [bbarry.notes]temp_extract.ext 2? whole
insert;SUB?3  ?3.* !? whole
insert;sub?   3?extract/append [bbarry.notes]temp_extract.ext 3? whole
insert;SUB?4  ?4.* !? whole
insert;sub?   4?extract/append [bbarry.notes]temp_extract.ext 4? whole
insert;SUB?5  ?5.* !? whole
insert;sub?   5?extract/append [bbarry.notes]temp_extract.ext 5? whole
insert;SUB?6  ?6.* !? whole
insert;sub?   6?extract/append [bbarry.notes]temp_extract.ext 6? whole
insert;SUB?7  ?7.* !? whole
insert;sub?   7?extract/append [bbarry.notes]temp_extract.ext 7? whole
insert;SUB?8  ?8.* !? whole
insert;sub?   8?extract/append [bbarry.notes]temp_extract.ext 8? whole
insert;SUB?9  ?9.* !? whole
insert;sub?   9?extract/append [bbarry.notes]temp_extract.ext 9? whole
insert;SUB?0  ?0.* !? whole
insert;sub?   0?extract/append [bbarry.notes]temp_extract.ext 0? whole
insert;sub?  1?extract/append [bbarry.notes]temp_extract.ext 1? whole
insert;sub?  2?extract/append [bbarry.notes]temp_extract.ext 2? whole
find=main "Topic  Author"
find +2
del before
define macro subextract
subextract
find end
insert;exit
insert;$purge [bbarry.command]note_ext.com
find 1
insert;$note home_work/noauto
insert;extract [bbarry.notes]temp_extract.ext 1111.81
exit
$@[bbarry.command]note_ext