Re: U2 hide error

[Harry Binswanger hb@xxxxxxxx]

Robert wrote,
> Please show me the routine, or a snippet that demos this.
I was afraid you'd ask that. :) Please be gentle on my XPL, a modification
of U2's AUTOFILE.
> If you are doing XS
> parses, be aware that they are case-INsensitive, and you need to take extra
> measures to make sure that you snagged the correct needle from the haystack.
I do parses in the routine, but after leaving the U2 frame, and UNHIDEing,
I just tested to see if s/g 05 equalled "a" which it did going in but
didn't coming out: it was "A".

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
\TEMP\{>};*; path to save backups of xfr.mbx in[cr|lf]{<}SX02
,{<}VA$MT{>}{>};*; $tm is time[cr|lf]{<}SX02,"[BX_]d mt="+{<}
IS02{>}+"[Q2_]"{>}[BX_]d mt=1[Q2_];*; now have time in 24-hou
r form[cr|lf]{<}LBa{>};*;[cr|lf]{<}SX03,{<}VA$TM{>}{>};*; 03{032}
= time, e.g., 14:32[cr|lf]{<}SX04,{<}VAEU3{>}{>};*; have to d
o this to get colon for parsing it out below[cr|lf]{<}XS03,04
,05,,06{>};*; now 05 = hour (14) and 06 = minute (32)[cr|lf]{
<}SX03,{<}IS05{>}+"."+{<}IS06{>}{>};*; now 03 = e.g., 14.32 f
or hh.mm in filename[cr|lf]{<}SX04,{<}VA$DAyymmdd{>}{>};*; 04
 = date in yymmdd format[cr|lf]{<}IF{<}VA|03{>}<5{>}{<}SX03,"
0"+{<}IS03{>}{>}{<}EI{>};*; add leading 0 if necessary[cr|lf]
{<}SX01,{<}IS01{>}+{<}IS04{>}+{<}IS03{>}{>};*; now 01 = e.g.
, C:\MAILHBL\05032413.32[cr|lf]{<}SV03,ABCDEFGHIJKLMNOPQRSTUV
WXYZ0123456789{>};*; for last char. of extension[cr|lf]{<}SV0
4,{027}X{>}{<}SV05,{>};*; 04 = wildcard [wX][cr|lf]{<}LBb{>};
*;[cr|lf]{<}IF{<}IS05{>}=="9"{>}{<}SX50,5{>}[JM_]2.sleep[Q2_]
{<}GLa{>};*; none left, wait then loop[cr|lf]{<}EI{>};*; belo
w, 03 = ABCDEF ... table[cr|lf]{<}XS03,04,,05,06{>};*; parse{032}
table with wildcard [wX] to get one character into 05[cr|lf]{
<}SX03,{<}IS06{>}{>};*; chop table BCDEF ...[cr|lf]{<}SX06,{<
}IS01{>}+{<}IS05{>}{>};*; 06 = C:\MAILHBL\050324.32A[cr|lf][B
X_]exist {<}PV06{>}[Q2_]{<}IF@not({<}ER{>}){>}{<}GLb{>};*; if
 that filename exists, loop[cr|lf]{<}EI{>};*; below here have
 valid filespec so rest is saving and prompting[cr|lf]{<}SV01
,sa{>}{<}SV03,Saved to {>}{<}IF{<}VA$WS{>}<1!{<}VA$WS{>}+{<}V
A$XD{>}>2{>}{<}SV01,ne{>}{<}SV03,Opened as {>}{<}EI{>};*;[cr|
lf][BX_]{<}PV01{>}
 {<}PV06{>}[Q2_][BX_]wait[Q2_]{<}IF{<}ER{>}{>}{<}SX03,{<}VA$E
R{>}{>}{<}SX03,"{<}VA\"+{<}IS03{>}+"{>}"{>}{<}SX03,{<}PV03{>}
{>}{<}SV06,{>}{<}EI{>};*;[cr|lf][BX_]d mt=0[Q2_];*; reset tim
e format to AM/PM from 24-hour[cr|lf]{<}PV02{>}{<}SX01,{<}IS0
3{>}+{<}IS06{>}{>}{<}PR@01{>}{002}[cr|lf]
-nd
XPLeNCODE




Harry Binswanger
hb@xxxxxxxx