Re: Using XyWrite file in Word and saving as text document

["Patricia M. Godfrey" priscamg@xxxxxxxx]

Carl Distefano wrote:
I've written a patch, below. To apply it, first issue
DECODE to decode the patch. Then DeFine the resulting
block of XPL code in its entirety and issue RUNCODE.
After that, SA/RTF should work with a DeFined block.

Well, sorry, it doesn't. In fact, it now doesn't work
with a whole file. When a block is defined, it Waits
(for some time) for xy42rtf.rtf, then reports
conversion failed. Same thing if one supplies a target
filename (e:\xyinfo\2006\test.rtf). And if one tries to
convert the whole file (i.e., no copy defined), the
target file is created, but it has nothing in it. Zip,
zilch, nada.
Then I thought to look at the patched version. I
observe that your patch was supposed to alter the last
revision date (about the only part of the code that I
could follow)--and it didn't. Here's how my SA/RTF now
reads:
XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5sa/rtf*,sa/htm*,sa/txt*,sa/xy*}} SAve file|DF block
as RT
F|HTML|TeXt|XY4 (Xy4DOS only; uses XyShell if
installed) [CLD
 Rev.1/22/06][cr|lf]{002}[XH_][BX_]es
1[Q2_]{<}SX01,{<}VA@50{
{062}}{>}{<}IF{<}VA$VE{>}>"V4.099"{>}{<}PRXyWrite 4
(DOS) only{>}
{<}EX{>}{<}EI{>}{<}IF"\"{238}{<}VAWW{>}<0{>}{<}SX02,"Set
DF W
W in
"+{<}VA$DL{>}{>}{<}PR@02{>}{<}EX{>}{<}EI{>}{<}IF{<}VA$WS
{>}<1{>}{<}PRNo
file{>}{<}EX{>}{<}EI{>};*;[cr|lf]{<}IF{<}VA$F
I{>}=="[UNTITLED]"{>}[BX_]sa/nv
UNTITLED.$FI[Q2_]{<}IF{<}ER{>
}{>}{<}SX02,{<}VA$ER{>}{>}{<}SX02,"{<}VA\"+{<}IS02{>}+"{>}"{>
}{<}SX02,{<}PV02{>}{>}{<}PR@02{>}{<}EX{>}{<}EI{>}[BX_]wait[Q2
_]{<}EI{>};*;[cr|lf][DZ_]{<}IF{<}VA$MO{>}>0&{<}VA$DE{>}<1{>}{
<}PRFile modified - SAve or ReCAll it before
conversion{>}{<}
EX{>}{<}EI{>}{<}SX02,{<}VA$WA{>}{>}{<}IF{<}PV02{>}<1{>}{<}PRN
o
window{>}{<}EX{>}{<}EI{>}{<}PRWorking...{>}{<}SX03,{<}VA$FP
{>}{>}{<}IF{<}VA$WS{>}>1{>}{<}SX03,{<}VA$DR{>}{>}{<}EI{>}{<}S
V04,{>}{<}SX05,@upr({<}VA$FR{>}){>}{<}SV06,{>}{<}IF{<}IS05{>}
{240}"/NV"{>}{<}SV06,!{>}{<}SV07,/NV{>}{<}SV08,{>}{<}XS05,07,
09,,08{>}{<}SX05,{<}IS09{>}+{<}IS08{>}{>}{<}EI{>}{<}SX05,{<}V
A@05/2{>}{>}{<}IF{<}VA|05{>}>3{>}{<}SV07,{027}X{027}X{027}X{>
}{<}XS05,07,,07,08{>}{<}SX05,{<}IS07{>}{>}{<}EI{>};*;[cr|lf]{
<}SX50,{<}VA$KB{>}{>}[JM_]2.GetPath[Q2_]{<}SX09,{<}IS50{>}{>}
;*;[cr|lf]{<}IF{<}VA$DE{>}>0{>}{<}SV04,TMP{>}{<}IF@siz({<}VA@
03.2{>})>0{>}{<}SX04,{<}VA@03.2{>}{>}{<}EI{>}{<}SX03,{<}IS09{
{062}}+"\SA!"+{<}IS05{>}+"."+{<}IS04{>}{>}[BX_]sad/nv
{<}PV03{>}[
Q2_][BX_]wait[Q2_]{<}SV04,!{>}{<}EI{>};*;[cr|lf]{<}SV07,17{>}
{<}SV08,2{>}{<}SV10,XY4{>};*; from Xy4 (or
TeXT)[cr|lf]{<}IF{
<}IS03{>}{240}".HTM"&{<}VA|06{>}<1{>}{<}SV07,108{>}{<}SV
08,0{>}{<}SV10,HTM{>}{<}EI{>};*; from
HTML[cr|lf]{<}IF{<}IS03
{>}{240}".RTF"&{<}VA|06{>}<1{>}{<}SV07,19{>}{<}SV08,0{>}{<}SV
10,RTF{>}{<}EI{>};*; from
RTF[cr|lf]{<}IF{<}VA$DE{>}<1&{<}VA$
WS{>}==1&{<}VA|06{>}<1{>}{<}SX50,{<}CP{>}{>}[TF_][BX_]se
 
ML>[wO][Q2_]{<}IF@not({<}ER{>}){>}[JM_]2.ReJuM
P[Q2_]{<}SV07,108{>}{<}SV08,0{>}{<}SV10,HTM{>}{<}EI{>};*;
fro
m
HTML[cr|lf]{<}IF{<}VA|06{>}<1{>}{<}SX50,{<}CP{>}{>}[TF_][BX
_]se
{\rtf[Q2_]{<}IF@not({<}ER{>}){>}[JM_]2.ReJuMP[Q2_]{<}SV
07,19{>}{<}SV08,0{>}{<}SV10,RTF{>}{<}EI{>}{<}EI{>}{<}EI{>};*;
 from RTF[cr|lf]{<}SV11,19{>}{<}SV12,0{>};*; to
RTF[cr|lf]{<}
IF{<}IS05{>}{240}"HTM"{>}{<}SV11,108{>}{<}GLa{>}{<}EI{>};*;
t
o
HTML[cr|lf]{<}IF{<}IS05{>}{240}"TXT"{>}{<}SV11,01{>}{<}GLa{
{062}}{<}EI{>};*; to
TeXT[cr|lf]{<}IF{<}IS05{>}{240}"XY"{>}{<}SV1
1,17{>}{<}SV12,2{>}{<}EI{>};*; to
Xy4[cr|lf]{<}LBa{>}{<}SX50,
@upr({<}IS01{>}){>}{<}IF{<}IS50{>}=="/NV"{>}{<}SV50,{>}{<}EI{
{062}}{<}IF{<}VA|50{>}<1{>}{<}SX50,{<}IS09{>}+"\"+{<}IS10{>}+"2"+
{<}IS05{>}+"."+{<}IS05{>}{>}{<}EI{>}{<}IF"."{238}{<}IS50{>}<0
{>}{<}SX50,{<}IS50{>}+"."+{<}IS05{>}{>}{<}EI{>};*;[cr|lf][BX_
]ernv
{<}PV50{>}[Q2_][BX_]wait[Q2_];*;[cr|lf][DX_][BX_]gofile

{<}PV50{>}[Q2_]{<}IF@not({<}ER{>}){>}[BX_]ab/nv[Q2_]{<}EI{>}
;*;[cr|lf][BX_]func
#{<}PV02{>}[Q2_];*;[cr|lf]{<}SX02,{<}IS09
{>}+"\W4WTEMP.BAT"{>}{<}SX09,"@echo
off[cr|lf]"+{<}VAWW{>}+"W
4W"+{<}IS07{>}+"F.EXE "+{<}IS03{>}+" /n
/v"+{<}IS08{>}+"[cr|l
f]"+{<}VAWW{>}+"W4W"+{<}IS11{>}+"T.EXE "+{<}IS50{>}+"
/n /v"+
{<}IS12{>}{>}[BX_]sa
%09,{<}PV02{>}[Q2_][BX_]wait[Q2_];*;[cr|
lf];*; Conversion: Use XyShell if installed (non-Win
OSes onl
y)[cr|lf]{<}SV99,XyShell_Installed_Y|N{>}[JM_]2.RegData/N[Q2_
]
{<}IF@upr({<}VA@99{>})=="Y"&"W"{238}{<}VA@652=2{>}<>0{>};*;[c
r|lf]{<}SX03,{<}IS50{>}{>}{<}SX50,{<}IS02{>}{>}[JM_]2.s2[Q2_]
[JM_]2.AwaitDel[Q2_];*;[cr|lf]{<}LBb{>}{<}IF{<}VA@04{>}=="!"{
{062}}[BX_]ernv
{<}PV03{>}[Q2_][BX_]wait[Q2_]{<}EI{>}{<}SX02,5000
0{>}{<}SX04,"Waiting for
"+{<}IS03{>}{>}{<}PR@04{>}{<}CUc,02{
{062}}[BX_]ca
{<}PV03{>}[Q2_]{<}IF@not({<}ER{>}){>}[JM_]2.reca[Q2
_]{<}PRSource file is in alternate
screen{>}{<}EX{>}{<}EI{>}{
<}LBc{>}{<}PR{012}Conversion
failed{>}{<}EX{>}{<}EI{>};*;[cr|
lf];*; Else shell to DOS to
convert[cr|lf][BX_]dos/nv/x/z /c{032}
{<}IF"W"{238}{<}VA@652=2{>}==0{>}kmd.exe /c
{<}EI{>}{<}PV02{>
}[Q2_][BX_]wait[Q2_];*;[cr|lf][BX_]p[Q2_][BX_]exist
{<}PV50{>
}[Q2_]{<}IF@not({<}ER{>}){>}{<}SX03,{<}IS50{>}{>}{<}GLb{>}{<}
EI{>}{<}GLc{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE
I copied and pasted using a third app, another
plain-text editor, for fear of Tbird's crashing on that
much code, so the line endings are probably skew-whiff.

--
Patricia M. Godfrey
PriscaMG@xxxxxxxx