[Date Prev][Date Next][Subject Prev][Subject Next][
Date Index][
Subject Index]
Re: Variable ^MD
- Subject: Re: Variable ^MD
- From: "Robert Holmgren" holmgren@xxxxxxxx
- Date: Thu, 3 Nov 2005 14:58:12 -0500
** Reply to message from "Patricia M. Godfrey" on Thu, 03
Nov 2005 11:48:24 -0500
Here's how you transform a freestanding PM into a U2 frame. This was the
freestanding version:
XPLeNCODE v2.0
b-gin [UNTITLED]
{<}IF{<}VA$WA{>}<1{>}{<}PRNo window{>}{<}EX{>}{<}EI{>}{<}SX01
,{<}VA$XD{>}{>}[BX_]d XD=0[Q2_]{<}SX02,{<}VA$FP{>}{>}[BX_]dir
{<}PV02{>}[Q2_][DL_]{<}SV02{>}{<}SX03,{<}VA$WN{>}{>}[BX_]ab/
nv[Q2_]{<}IF{<}VA$WN{>}=={<}PV03{>}&{<}VA$WO{>}>1{>}[BX_]rs[Q
2_]{<}EI{>}[BX_]d XD={<}PV01{>}[Q2_]{<}SV01,{>}{<}SX03,29{>}{
<}CUA,03{>}{<}SX01,{<}IS01{>}+"{027}X"{>}{<}LBA{>}{<}XS02,01,
,01,01{>}{<}SV02, {>}{<}XS01,02,02,,03{>};*;[cr|lf]{<}PR@02{>
};*; Test it[cr|lf]{<}EX{>}
-nd
XPLeNCODE
Here it is, altered to actually put the date in text, and formatted for U2:
XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5GetFDate}} Get File Date RJH 11/2/05[cr|lf]{002}{<}IF{<}
VA$WA{>}<1{>}{<}PRNo window{>}{<}EX{>}{<}EI{>}{<}SX01,{<}VA$X
D{>}{>}[BX_]d XD=0[Q2_]{<}SX02,{<}VA$FP{>}{>}[BX_]dir {<}PV02
{>}[Q2_][DL_]{<}SV02{>}{<}SX03,{<}VA$WN{>}{>}[BX_]ab/nv[Q2_]{
<}IF{<}VA$WN{>}=={<}PV03{>}&{<}VA$WO{>}>1{>}[BX_]rs[Q2_]{<}EI
{>}[BX_]d XD={<}PV01{>}[Q2_]{<}SV01,{>}{<}SX03,29{>}{<}CUA,03
{>}{<}SX01,{<}IS01{>}+"{027}X"{>}{<}LBA{>}{<}XS02,01,,01,01{>
}{<}SV02, {>}{<}XS01,02,02,,03{>}[GT_]{<}GT02{>}{002}[cr|lf][
cr|lf]
-nd
XPLeNCODE
Compare the two. A very simple transformation, isn't it? Note that if we had
used the command at the end, you would need to check first whether you
are in Insert mode, in order not to overwrite existing text when putting the
date. But if we use , it inserts automatically, regardless of the
Insert/Overwrite state.
Command "GetFDate" to run the frame.
-----------------------------
Robert Holmgren
holmgren@xxxxxxxx
-----------------------------