Re: Strange SA/NV behavior--BK is culprit

[Carl Distefano cld@xxxxxxxx]

Reply to note from Paul Lagasse  Fri, 16 Oct
2009 16:46:52 -0400

Paul:

> if I read your SA routine correctly, you're attempting to
> accomplish something different from what I was after.
> ...
> but I copy the unedited version in the VA$FP directory to
> FILENAME.BAK (in the same directory), then save a copy of the
> open, edited version to the VA$FP directory, overwriting the
> VA$FP version.

True, there is that difference. My routine is easily modified so that
it backs up the last SAved version before SAving the edited version
(see frame BK below; obviously it can be renamed to whatever you
like). Note that this is *not* a replacement for your routine. It
still backs up the file with the original filename, not with a .BAK
extension, so does not address your issue of having multiple versions
of identically-named files in different directories. Just another
option, that's all.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5bk}} SAve after BacKing up last SAved version in {<}VADR{
{062}} [CLD rev. 10/16/09][cr|lf]{002}{<}IF{<}VA$WS{>}==1{>}[GT_]
{<}SX01,0{>}{<}SV02,{>}{<}GT02{>}{<}SX02,{<}VA$FI{>}{>}{<}SV0
3,{>}{<}IF"["{238}{<}IS02{>}==0{>}{<}SX02,{<}VA@02[;2{>}{>}{<
}SV03,!{>}{<}EI{>}{<}IF{<}IS02{>}{240}"]"{>}{<}SX02,{<}VA@02]
1{>}{>}{<}SV03,!{>}{<}EI{>}{<}SX04,{<}VABK{>}{>}{<}IF{<}PV04{
{062}}>0{>}[BX_]d bk=0[Q2_]{<}EI{>}{<}IF{<}IS02{>}=="UNTITLED"{>}
{<}SX02,{<}VA$WN{>}{>}{<}SX02,"UNTITLED."+{<}IS02{>}{>}{<}EI{
{062}}{<}SX02,{<}VADR{>}+{<}IS02{>}{>}{<}IF{<}IS02{>}<>{<}VA$FP{>
}{>}{<}SX01,{<}VA$FP{>}{>}[BX_]copy/nv {<}PV01{>} {<}PV02{>}[
Q2_]{<}SX01,0{>}{<}IF{<}ER{>}{>}{<}SX01,{<}VA$ER{>}{>}{<}EI{>
}[BX_]wt[Q2_]{<}EI{>}{<}IF{<}VA|50{>}>0!{<}VA|03{>}<1{>}[BX_]
sa{<}IF{<}VA|50{>}>0{>} {<}PV50{>}{<}EI{>}[Q2_]{<}IF{<}ER{>}{
{062}}{<}SX01,{<}VA$ER{>}{>}{<}EI{>}[BX_]wt[Q2_]{<}EI{>}{<}IF{<}P
V04{>}>0{>}[BX_]d bk=1[Q2_]{<}EI{>}{<}IF{<}PV01{>}>0{>}{<}PR\
@01{>}{<}EX{>}{<}EI{>}{<}PRSaved{>}{<}EX{>}{<}EI{>}{002}[cr|l
f][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx