Subj : XBOOT3.BTM
To   : Gerald Miller
From : Jasen Betts
Date : Sat Nov 09 2002 12:21 pm

Hi Gerald.

here's a solution to the date format problem.

what I do is set up a variable containing the conversion expression that
converts between date formats  then just use that variable to extract a
converted form of the date when reading the file... theat way the
conversion only needs to be figured out once and can be reused af often as
needed.


text>%tempfile
PATH\PROGRAM TO RUN                      ³AFTER³        ³        ³DAYS ³
                                         ³ DAYS³LAST RUN³NEXT RUN³ LEFT³ASK
endtext
echo ÄÄÄÄ %@format[03.3,%country] %@repeat[Ä,32]Å%=
ÄÄÄÄÄÅ%df%Å%df%ÅÄÄÄÄÄÅÄÄÄ >> %tempfile

set orig=%@instr[48,8,%@line[%bootfile,2]]

iff %orig == %df then
set dateconversion=%%date
else
:: build a date conversion expression in a variable...
set dateconversion=%=
%%@instr[%@index[%orig,%@instr[0,2,%df]],2,%%date]%@instr[2,1,%df]%=
%%@instr[%@index[%orig,%@instr[3,2,%df]],2,%%date]%@instr[5,1,%df]%=
%%@instr[%@index[%orig,%@instr[6,2,%df]],2,%%date]
:: aren't interpreted languages fun!
echo.
echo Converting date format from %orig to %df using expression:
set dateconversion
echo.
endiff
unset orig df

  do n=3 to %@lines[%bootfile]
    set prog=%@instr[0,41,%@line[%bootfile,%n]]
    set when=%@instr[42,5,%@line[%bootfile,%n]]

:: convert last to local format
    set date=%@instr[48,8,%@line[%bootfile,%n]]
    set last=%dateconversion

:: next is never used but I'll convert it too :)
    set date=%@instr[57,8,%@line[%bootfile,%n]]
    set next=%dateconversion

    set left=%@instr[66,5,%@line[%bootfile,%n]]
    set ask=%@instr[72,1,%@line[%bootfile,%n]]

 -=> Bye <=-

---
 * Origin: Green eggs and ham:  Environmentally sound produce. (3:640/531.42)

.