[Date Prev][Date Next][Subject Prev][Subject Next][
Date Index][
Subject Index]
HIDE problems
- Subject: HIDE problems
- From: Harry Binswanger hb@xxxxxxxx
- Date: Mon, 28 Mar 2005 02:27:01 -0500
As I mentioned, I have written my own version of AutoFile, but despite
doing HIDE:01-06 and UNHIDE:01-06 it's overwriting 06 (and maybe other s/gs).
But JuMping to AUTOHIDE paired with UNHIDE gives no problems. I can't
figure this one out.
Here is my routine:
XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5hbautsav,hb}} My version of AutoFile for HBL use[cr|lf]{0
02};*; for HBL: adaptation of U2 AutoFile routine; March 25,{032}
2005[cr|lf][XH_];*;[BX_]es 1[Q2_];*;[cr|lf]{<}SV01,C:\MAILHBL
\{>};*; path to save backups of xfr.mbx in[cr|lf]{<}SX02,{<}V
A$MT{>}{>};*; $tm is time[cr|lf]{<}SX02,"[BX_]d mt="+{<}IS02{
>}+"[Q2_]"{>}[BX_]d mt=1[Q2_];*; now have time in 24-hour for
m[cr|lf]{<}LBa{>};*;[cr|lf]{<}SX03,{<}VA$TM{>}{>};*; 03 = tim
e, e.g., 14:32[cr|lf]{<}SX04,{<}VAEU3{>}{>};*; have to do thi
s to get colon for parsing it out below[cr|lf]{<}XS03,04,05,,
06{>};*; now 05 = hour (14) and 06 = minute (32)[cr|lf]{<}SX0
3,{<}IS05{>}+"."+{<}IS06{>}{>};*; now 03 = e.g., 14.32 for hh
{046}mm in filename[cr|lf]{<}SX04,{<}VA$DAyymmdd{>}{>};*; 04 = da
te in yymmdd format[cr|lf]{<}IF{<}VA|03{>}<5{>}{<}SX03,"0"+{<
}IS03{>}{>}{<}EI{>};*; add leading 0 if necessary[cr|lf]{<}SX
01,{<}IS01{>}+{<}IS04{>}+{<}IS03{>}{>};*; now 01 = e.g., C:\
MAILHBL\05032413.32[cr|lf]{<}SV03,ABCDEFGHIJKLMNOPQRSTUVWXYZ0
123456789{>};*; for last char. of extension[cr|lf]{<}SV04,{02
7}X{>}{<}SV05,{>};*; 04 = wildcard [wX][cr|lf]{<}LBb{>};*;[cr
|lf]{<}IF{<}IS05{>}=="9"{>}{<}SX50,5{>}[JM_]2.sleep[Q2_]{<}GL
a{>};*; none left, wait then loop[cr|lf]{<}EI{>};*; below, 03
= ABCDEF ... table[cr|lf]{<}XS03,04,,05,06{>};*; parse table
with wildcard [wX] to get one character into 05[cr|lf]{<}SX0
3,{<}IS06{>}{>};*; chop table BCDEF ...[cr|lf]{<}SX06,{<}IS01
{>}+{<}IS05{>}{>};*; 06 = C:\MAILHBL\050324.32A[cr|lf][BX_]ex
ist {<}PV06{>}[Q2_]{<}IF@not({<}ER{>}){>}{<}GLb{>};*; if that
filename exists, loop[cr|lf]{<}EI{>};*; below here have vali
d filespec so rest is saving and prompting[cr|lf]{<}SV01,sa{>
}{<}SV03,Saved to {>}{<}IF{<}VA$WS{>}<1!{<}VA$WS{>}+{<}VA$XD{
>}>2{>}{<}SV01,ne{>}{<}SV03,Opened as {>}{<}EI{>};*;[cr|lf][B
X_]{<}PV01{>} {<}
PV06{>}[Q2_][BX_]wait[Q2_]{<}IF{<}ER{>}{>}{<}SX03,{<}VA$ER{>}
{>}{<}SX03,"{<}VA\"+{<}IS03{>}+"{>}"{>}{<}SX03,{<}PV03{>}{>}{
<}SV06,{>}{<}EI{>};*;[cr|lf][BX_]d mt=0[Q2_];*; reset time fo
rmat to AM/PM from 24-hour[cr|lf]{<}PV02{>}{<}SX01,{<}IS03{>}
+{<}IS06{>}{>}{<}PR@01{>}{002}[cr|lf]
-nd
XPLeNCODE
And here is the hide/unhide pair, including my added display of the
contents of 06:
XPLeNCODE v2.0
b-gin [UNTITLED]
[JM_]2.hide:01-06[Q2_][JM_]2.hb[Q2_][JM_]2.unhide:01-06[Q2_][
BC_]{<}PV06{>}{<}EX{>}
-nd
XPLeNCODE
Harry Binswanger
hb@xxxxxxxx