Jules worte on 29 Jan 2000 11:58:29 +0100
about [md-2] ReEditMD.mdrx
Hello All
And here's an update.
Version 1.3
Jules
---- 8< ---- ReEditMD.mdrx ---- 8< ----
/*
$VER: 1.3 ReEditMD.mdrx (01-02-2000)
$AUTHOR: by Jules (JA888)© 2000
$DESCRIPTION: Stop Microdot from breaking threads.
Create a button in your 'Message list window'
'Action' string, put the path of this script
*/
/*
The path to your editor. Example EDITO="SYS:TOOLS/EDITPAD"
*/
EDITO="SYS:TOOLS/EDITPAD"
/*
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
EXIT
