Hello All
To get over the problem of Microdot breaking threads after you have re-edited
a message.
You will need 'Snoopdos' in order to use this script.
--- 8< --- Cut --- AREXX --- Here --- 8< ---
/*
$VER: 1.31 ReEditMD.mdrx (09-02-2000)
$AUTHOR: by Jules (JA888)� 2000
$DESCRIPTION: Stop Microdot from breaking threads.
Create a button in your 'Message list window'
In the 'Action' string, put the path of this script.
Instructions
1) Enter the path to your text editor.
2) If 'Snoopdos' is not in your system path, enter the new path.
4) Open the 'Spool' directory, and select, but do not open
the message you wish to re-edit.
5) Run ReEditMD.mdrx, and wait for it to open editor.
! Warning ! Do not alter header information, unless
you know what you are doing.
6) 'Save' the message, and 'Close' the editor, when you have
finished your alterations.
7) Close and re-open the message, to view your new message.
*/
/*
The path to your editor. Example EDITO="SYS:TOOLS/EDITPAD"
*/
EDITO="BED:BED"
/*
And the path of Snoopdos. Example SNOOP="SYS:Tools/Snoopdos"
*/
SNOOP="SNOOPDOS"
/*
Check that Microdot is running
*/
IF ~SHOW('P','MD.1') THEN DO
EXIT
END
/*
Check if SnoopDos is running; if not, then start it
*/
SNOOPPATH="RUN >NIL: "||SNOOP||" HIDEMETHOD=TOOLSMENU HIDE"
IF ~SHOW('P','SNOOPDOS') THEN DO
ADDRESS COMMAND SNOOPPATH
ADDRESS COMMAND "WAITFORPORT SNOOPDOS"
END
/*
Set up Snoopdos
*/
ADDRESS SNOOPDOS ; CLEARBUFFER ; FORMAT "%50n"
/*
Read the message in MD-II
*/
ADDRESS MD.1 ; READSELECTEDMSGS ; ADDRESS COMMAND 'WAIT 1'
/*
Save the SnoopDos Buffer
*/
ADDRESS SNOOPDOS ; SAVEBUFFER "T:SnoopMD"
/*
Find the correct line.
*/
DETEC=0 ; PDRAW="" ; DFILE=""
CALL OPEN('MD','T:SnoopMD','R')
DO UNTIL DETEC>1 ; PDRAW=READLN('MD') ; DETEC=POS('DBX_',PDRAW) ; END
DFILE=READLN('MD')
CALL CLOSE('MD')
QUIT
/*
Give it a hair cut
*/
TARGETFILE=TRIM(PDRAW)||"/"||TRIM(DFILE)
/*
Send it to the editor
*/
ADDRESS COMMAND EDITO TARGETFILE
ADDRESS COMMAND 'DELETE T:SnoopMD QUIET'
EXIT
--- 8< --- Cut --- AREXX --- Here --- 8< ---
--
Regards
Jules
________________________________________________________________
MicroDot-II Mailing List - Info & Archive: http://www.vapor.com/
For Listserver Help: <[EMAIL PROTECTED]>, "HELP"
To Unsubscribe: <[EMAIL PROTECTED]>, "UNSUBSCRIBE"
