Re: Re converting from XyWrite to Word

[Xywrite3plus@xxxxxxxx]

In a message dated 10/27/2004 6:25:08 PM Eastern Daylight Time,
pmgodfrey@xxxxxxxx writes:
Perhaps somebody who uses
Xy3 more than I do can figure out a fix?
What I do may be programatically clumsy, but it works well enough, and I use
it
a lot:

Basically, I use Carl's Clip program, modified for Xy 3+, and a program for
storing the name of my file (which I want to bring over into the name I use
for
the Word file).

Note that Carl's program requires a call to the filters.

nn=bc,r,u,n, ,c,:,\,r,o,u,t,i,n,e,s,\,c,l,i,p,m,o,d,.,p,r,g,xc,bc,r,u,n,
,c,:,\,r,o,u,t,i,n,e,s,\,f,i,l,e,n,a,m,e,.,p,r,g,xc
;runs Carl DiStephano's
;conversion from Xy to RTF, then copies the filename to
;the file 1file; for further importing into Windows
;apps, use Alt-shft-v

c:\routines\clipmod.prg
is Carl's program, slightly modified by me at its beginning.

c:\routines\filename.prg
is my program

I then switch out of XyWrite and into Windows, and run a keyboard macro
program
in Windows (called Macro Express), which I assign to a Windows keystroke se-
quence. You can do this by hand, of course. Basically you do what the remarks
(REM:) in the following program listing tell you to do.

Run Macro Express program:
Assigned to key=Alt+shft-v:


oc:\p\1wordtmp.rtf






Finally, in Word, I run a Word macro that fixes the header and formats the
body
copy the way I want it.

It sounds complicated, but running it is a keystroke in Xy, an Alt+tab to get
out of Xy and into Windows, a keystroke in Windows, and a keystroke (for the
final Word macro) in Word.

For those who want to play with this (and, I would hope, improve it), I'm at-
taching the Xy side of this; I include the following files:

filename.prg
clipmod.prg

You'll also need two executables, the filters referred to in other messages
from
this thread:

w4w17f.exe
w4w19t.exe

I won't include them in the zip file, since (named as the executables they
are)
they'll probably set off alarms on your server. (How to get them has been
mentioned in this thread many times.).

If you don't want to open the zip file, here are the encoded file listings:

clipmod.prg:

XPLeNCODE v2.0
b-gin [UNTITLED]
[BC_]erase c:\p\tmp[XC_][BC_]erase c:\p\print.tmp[XC_][BC_]er
ase c:\p\1mail.tmp[XC_][BC_]erase c:\p\1file[XC_][BC_]erase c
:\p\1tmp.wpd[XC_][BC_]erase c:\p\1wordtmp.doc[XC_][BC_]erase{32}
c:\p\1wordtmp.rtf[XC_][BC_]erase c:\p\tmp.tx[XC_]{<}GLa{>}[cr
|lf]CLIP3.PGM -- CLD rev. 5/11/00[cr|lf]Export current file o
r DeFined block into Wordpad as an .RTF file[cr|lf]T.Baehr's{32}
CLIP.PGM Adapted for Xy3[cr|lf][cr|lf]User Variables (2 - Bot
h Required!): Edit in eXPanded view[cr|lf]-------------------
---------------------------------------[cr|lf]{<}LBa{>}{<}SV0
1,C:\xy\{>}{<}GLb{>} <== Location of Word for Word filters[cr
|lf]           e.g., {<}SV01,C:\XY\{>}[cr|lf]  {32}
              Final backslash {24} required![cr|
lf][cr|lf]{<}LBb{>}{<}SV02,C:\PROGRA1\micros1\office\winwor
d.EXE{>}{<}GLc{>} <== Path and filename for Windows word-proc
essor[cr|lf]          e.g., {<}SV02,C:\PROGRA1\ACCE
SS1\WORDPAD.EXE{>}[cr|lf][cr|lf]{<}LBc{>}{<}IF@siz({<}IS01{>
})<1{>}{<}PRSpecify location of filters in User Var 01{>}{<}E
X{>}{<}EI{>}{<}SX03,{<}VA$WS{>}{>}{<}IF{<}PV03{>}<>1{>}{<}PRN
o file is open{>}{<}EX{>}{<}EI{>}{<}SX03,{<}VADR{>}{>}{<}SV04
,{>}{<}SX05,{<}VA$DF{>}{>}{<}IF{<}PV05{>}>0{>}{<}SV04,d{>}{<}
EI{>}[BC_]exist {<}PV03{>}w4wtmp.tmp[XC_]{<}IF@not({<}ER{>}){
>}[BC_]ernv {<}PV03{>}w4wtmp.tmp[XC_][BC_]wait[cr|lf]{<}EI{>}
[BC_]sa{<}PV04{>} {<}PV03{>}w4wtmp.tmp[XC_][BC_]wait[cr|lf][B
C_]dos /c {<}PV01{>}w4w17f.exe {<}PV03{>}w4wtmp.tmp /N /V1[XC
_][BC_]wait[cr|lf][BC_]wait[cr|lf][BC_]wait[cr|lf]{<}SV04,1wo
rdtmp.RTF{>}[BC_]dos /c {<}PV01{>}w4w19t {<}PV03{>}{<}PV04{>}
 /N /V0p[XC_][BC_]wait[cr|lf][BC_]ernv {<}PV03{>}w4wtmp.tmp[X
C_][BC_]wait[cr|lf][BC_]dos /c {<}PV02{>} {<}PV03{>}{<}PV04{>
}[XC_][BC_]wait[cr|lf][BC_][GT_]{<}PRDone{>}{<}EX{>}
-nd
XPLeNCODE
;;

filename.prg:

XPLeNCODE v2.0
b-gin [UNTITLED]
{<}LBThis program, when run with a file open on the screen, p
laces the *name* of the open file into a new file called 1fil
e. The period in that name is then changed to an underline, a
nd the name is made all lower case, for insertion into a Wind
ows app.[cr|lf][cr|lf]{>}{<}SX08,{<}VA$FI{>}{>}[BC_]erase c:\
p\1file[XC_][BC_]ne c:\p\1file[XC_]{<}GT08{>}[TF_][DL_][BC_]l
c[XC_][TF_][XD_][BC_]ci /./_/[XC_][BC_]sa[XC_][BC_]ab[XC_]
-nd
XPLeNCODE


Peter Brown
xywrite3@xxxxxxxx
Attachment:
xy2word.zip

Description: Zip archive