I had been beginning to think the same way but I hadn't got around to doing
anything about it until the other day.
In the DOS version I used to default a time field to 0:00:00 and have a
playback file that moved the cursor to the point that I expected to want to
be - usually the middle zero - and then overtype using the right arrow key
to bypass the colon.
In the Windows version overtype doesn't work so I had the choice of setting
the time format to MM:SS or deleting the zeroes to be replaced by numbers or
taking out the default value altogether.
I don't like changing the format because if there's a crash it gets left at
the "wrong" value. I don't want to remove the default because it's so easy
to leave out the hour part and end up with hour and minutes rather than zero
hours with minutes and seconds.
I had expected there to a number of people suggesting something along the
lines of the following but, as there was nobody, I'm guessing that the
function is not widely known about. Certainly, it seems to me to have
appeared without much of a fanfare:
cls
set var vmins integer = null
set var vsecs integer = null
set var vtime time = 0:00:00
fillin vmins=2 using 'minutes:' red on white
set var vtime = (ADDMIN(.vTime, .vmins))
show var vtime
fillin vsecs=2 using 'seconds:' red on white
set var vtime = (ADDSEC(.vTime, .vsecs))
show var vtime
return
If you put more than 60 in the seconds the ADDSEC function converts it to
minutes and seconds and over sixty minutes in ADDMIN gets converted to
hours.
In my case I often have time up to 80 minutes and whatever seconds so this
is perfect for me.
Regards,
Alastair.
----- Original Message -----
From: "MikeB" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, June 13, 2002 12:56 AM
Subject: Re: #LFILES and Long File Names (was RE: How does Rbase look at
files in a folder)
> Seems like you could use Format just like you do for Phone#s etc, and an
> exit eep to place the TextBox value into a Variable for update of the
actual
> field (non editable so's to pass over it for data entry)
>
> ----- Original Message -----
> From: "Alastair Burr" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, June 12, 2002 4:09 PM
> Subject: Re: #LFILES and Long File Names (was RE: How does Rbase look at
> files in a folder)
>
>
> > It's funny, I've been trying to format time recently and failed. (I
should
> > be so bold - format time? Am I Doctor Who? <g>)
> >
> > Seriously though, dates can be formatted easily and neatly, why not
time?
> I
> > guess the most obvious use would be to drop the seconds or parts of
> seconds.
> >
> > The other thing to do with time that I've been looking at is the
physical
> > entry of the numbers. I find that having to type a colon between the
hours
> > and minutes and the minutes and seconds a pain and prone to getting a
> > semi-colon. I'm at the point of having three integer variables on a form
> and
> > combining them to enter into a time column. Is this what others do or is
> > there a better way?
> >
> > Thanks in advance for any suggestions,
> > Regards,
> > Alastair.
> >
> >
> > ----- Original Message -----
> > From: "Jim Limburg" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Wednesday, June 12, 2002 8:23 PM
> > Subject: Re: #LFILES and Long File Names (was RE: How does Rbase look at
> > files in a folder)
> >
> >
> > > And they say that things just can't get any better...
> > >
> > > I love it.. thank you... I like your style :}
> > >
> > > Thanks
> > > Jim Limburg
> > >
> > > --- "James (Jim) Bentley" <[EMAIL PROTECTED]> wrote:
> > > > Jim,
> > > > You might want to try the following expression as it can do it
> > > > all in one line:
> > > >
> > > > SET VAR VM_TS TEXT = (FORMAT(.#DATE,'_MM_DD_YYYY_') +
> > FORMAT(IHR(.#TIME),'+
> > > > [-]00_') + FORMAT(IMIN(.#TIME),'[-]00_' ) +
> > FORMAT(ISEC(.#TIME),'[-]00.OU+
> > > > T'))
> > > >
> > > > SET VAR vm_hdr = ('c:\dirout\h' + .VM_TS)
> > > > SET VAR vm_itm = ('c:\dirout\i' + .VM_TS)
> > > >
> > > > I tried to use (FORMAT(.#TIME,'HH_MM_SS.OUT')) but I could not
> > > > get that to work, hence the much longer expression above.
> > > > --
> > > > Jim Bentley
> > > > American Celiac Society
> > > > [EMAIL PROTECTED] - email
> > > > (973) 325-8837 voice
> > > > (973) 669-8808 Fax
> > > >
> > > >
> > > > ---- Jim Limburg <[EMAIL PROTECTED]> wrote:
> > > > > I am left DUMBfounded again.. How come every time I get in a
> > > > > pinch,
> > > > > you all are already working on a solution before I can get one
> > > > >
> > > > > pounded out. I have spent a couple of days writing a VB program
> > > > > to
> > > > > do directory reporting and I am probably about a couple days
> > > > > away
> > > > > from having it completed, and here you all are likely the same.
> > > > > ..
> > > > > Hmmm...
> > > > >
> > > > > I will submit a request to the RDCC for this patch to test and
> > > > > to
> > > > > help me through a crunch.. I appreciate this. When do you
anticipate
> > > > >
> > > > > this 855 in-line patch to out as in released? I am needing this
> > > > >
> > > > > because we want to use code like this:
> > > > >
> > > > > SET VAR vm_curdt TEXT = (CTXT((.#DATE)))
> > > > > SET VAR vm_curtm TEXT = (CTXT((.#TIME)))
> > > > >
> > > > > SET VAR vm_mo = (SGET(.vm_curdt,2,1))
> > > > > SET VAR vm_da = (SGET(.vm_curdt,2,4))
> > > > > SET VAR vm_yr = (SGET(.vm_curdt,2,7))
> > > > >
> > > > > SET VAR vm_colloc = (SLOC(.vm_curtm,':'))
> > > > > IF vm_colloc < 3 THEN
> > > > > SET VAR vm_hr = (SGET(.vm_curtm,1,1))
> > > > > SET VAR vm_hr = ('0' + .vm_hr)
> > > > > SET VAR vm_mn = (SGET(.vm_curtm,2,3))
> > > > > SET VAR vm_sc = (SGET(.vm_curtm,2,6))
> > > > > ELSE
> > > > > SET VAR vm_hr = (SGET(.vm_curtm,2,1))
> > > > > SET VAR vm_mn = (SGET(.vm_curtm,2,4))
> > > > > SET VAR vm_sc = (SGET(.vm_curtm,2,7))
> > > > > ENDIF
> > > > > SET VAR vm_hdr = ('c:\dirout\h_' + .vm_mo + .vm_da + .vm_yr
> > > > > + +
> > > > > '_' + .vm_hr + .vm_mn + .vm_sc + '.out')
> > > > > SET VAR vm_itm = ('c:\dirout\i_' + .vm_mo + .vm_da + .vm_yr
> > > > > + +
> > > > > '_' + .vm_hr + .vm_mn + .vm_sc + '.out')
> > > > >
> > > > > CLEAR VAR vm_%
> > > > > RETURN
> > > > >
> > > > > -- to create output files in a unique system, but I could not
> > > > > read the long file names back in so the user could pick the
> > > > > file names. This would be just the ticket... cool.
> > > > >
> > > > > Jim
> > > > >
> > > > >
> > > > > --- "A. Razzak Memon" <[EMAIL PROTECTED]> wrote:
> > > > > > At 01:40 PM 6/7/2002 -0700, Jim Limburg wrote:
> > > > > >
> > > > > > >To add the question...
> > > > > > >How do you get it to list long file names using this option???
> > > > > >
> > > > > >
> > > > > > Jim,
> > > > > >
> > > > > > How? ... Very simple!
> > > > > >
> > > > > > Using The Glorious R:BASE 2000 (ver 6.5++) for Windows, Inline
> > > > > Patch-3,
> > > > > > Build:1.855xRT03 (currently under beta testing):
> > > > > >
> > > > > > Scenario A:
> > > > > > To display all files in the current directory in a pop-up
> > > > > list, including
> > > > > > files
> > > > > > with long file names with long extensions. The chosen file
> > > > > name is stored
> > > > > > in the variable v1.
> > > > > >
> > > > > > CLS
> > > > > > SET RBGSIZE CENTER CENTER 800 600
> > > > > > SET CAPTION ' '
> > > > > > SET VAR v1 TEXT = NULL
> > > > > > CHOOSE v1 FROM #LFILES AT 10 30 TITLE 'Select File' CAPTION
> > > > > 'Check it out!'
> > > > > > FORMATTED
> > > > > >
> > > > > > Will display all files in the current directory in a pop-up
> > > > > list.
> > > > > >
> > > > > > Scenario B:
> > > > > > To display all files in the current directory in a pop-up
> > > > > list with HTML
> > > > > > extension.
> > > > > > R:BASE will display a pop-up list of all files in the specified
> > > > > directory
> > > > > > with the
> > > > > > .HTML extension. The chosen file name is stored in the variable
> > > > > v1.
> > > > > >
> > > > > > CLS
> > > > > > SET RBGSIZE CENTER CENTER 800 600
> > > > > > SET CAPTION ' '
> > > > > > SET VAR v1 TEXT = NULL
> > > > > > CHOOSE v1 FROM #LFILES IN *.HTML AT 10 30 TITLE 'Select File'
> > > > > CAPTION
> > > > > > 'Check it out!' FORMATTED
> > > > > >
> > > > > > Scenario C:
> > > > > >
> > > > > > To test it further (just for fun), create a long file name
> > > > > with long
> > > > > > extension and see what happens.
> > > > > >
> > > > > > At the mighty R> prompt:
> > > > > >
> > > > > > RBEdit LongFileName.LongExtension
> > > > > >
> > > > > > Type anything and then make sure to save the file.
> > > > > >
> > > > > > CLS
> > > > > > SET RBGSIZE CENTER CENTER 800 600
> > > > > > SET CAPTION ' '
> > > > > > SET VAR v1 TEXT = NULL
> > > > > > CHOOSE v1 FROM #LFILES AT 10 30 TITLE 'Select File' CAPTION
> > > > > 'Check it out!'
> > > > > > FORMATTED
> > > > > >
> > > > > > Will display LongFileName.LongExtensions in a pop-up list.
> > > > > >
> > > > > > If you would like to test the current inline patch-3 beta,
> > > > > you may submit
> > > > > > your request to:
> > > > > > mailto:[EMAIL PROTECTED]
> > > > > >
> > > > > > Enjoy and make sure to have fun!
> > > > > >
> > > > > > Very Best Regards,
> > > > > >
> > > > > > Razzak.
> > > > > >
> > > > > >
> > > > > >
> > > > > > ================================================
> > > > > > TO SEE MESSAGE POSTING GUIDELINES:
> > > > > > Send a plain text email to [EMAIL PROTECTED]
> > > > > > In the message body, put just two words: INTRO rbase-l
> > > > > > ================================================
> > > > > > TO UNSUBSCRIBE: send a plain text email to
[EMAIL PROTECTED]
> > > > > > In the message body, put just two words: UNSUBSCRIBE rbase-l
> > > > > > ================================================
> > > > > > TO SEARCH ARCHIVES:
> > > > > > http://www.mail-archive.com/rbase-l%40sonetmail.com/
> > > > >
> > > > >
> > > > > __________________________________________________
> > > > > Do You Yahoo!?
> > > > > Yahoo! - Official partner of 2002 FIFA World Cup
> > > > > http://fifaworldcup.yahoo.com
> > > > > ================================================
> > > > > TO SEE MESSAGE POSTING GUIDELINES:
> > > > > Send a plain text email to [EMAIL PROTECTED]
> > > > > In the message body, put just two words: INTRO rbase-l
> > > > > ================================================
> > > > > TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> > > > > In the message body, put just two words: UNSUBSCRIBE rbase-l
> > > > > ================================================
> > > > > TO SEARCH ARCHIVES:
> > > > > http://www.mail-archive.com/rbase-l%40sonetmail.com/
> > > > >
> > > > ================================================
> > > > TO SEE MESSAGE POSTING GUIDELINES:
> > > > Send a plain text email to [EMAIL PROTECTED]
> > > > In the message body, put just two words: INTRO rbase-l
> > > > ================================================
> > > > TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> > > > In the message body, put just two words: UNSUBSCRIBE rbase-l
> > > > ================================================
> > > > TO SEARCH ARCHIVES:
> > > > http://www.mail-archive.com/rbase-l%40sonetmail.com/
> > > === message truncated ===
> > >
> > >
> > > __________________________________________________
> > > Do You Yahoo!?
> > > Yahoo! - Official partner of 2002 FIFA World Cup
> > > http://fifaworldcup.yahoo.com
> > > ================================================
> > > TO SEE MESSAGE POSTING GUIDELINES:
> > > Send a plain text email to [EMAIL PROTECTED]
> > > In the message body, put just two words: INTRO rbase-l
> > > ================================================
> > > TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> > > In the message body, put just two words: UNSUBSCRIBE rbase-l
> > > ================================================
> > > TO SEARCH ARCHIVES:
> > > http://www.mail-archive.com/rbase-l%40sonetmail.com/
> >
> > ================================================
> > TO SEE MESSAGE POSTING GUIDELINES:
> > Send a plain text email to [EMAIL PROTECTED]
> > In the message body, put just two words: INTRO rbase-l
> > ================================================
> > TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> > In the message body, put just two words: UNSUBSCRIBE rbase-l
> > ================================================
> > TO SEARCH ARCHIVES:
> > http://www.mail-archive.com/rbase-l%40sonetmail.com/
> >
>
> ================================================
> TO SEE MESSAGE POSTING GUIDELINES:
> Send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: INTRO rbase-l
> ================================================
> TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: UNSUBSCRIBE rbase-l
> ================================================
> TO SEARCH ARCHIVES:
> http://www.mail-archive.com/rbase-l%40sonetmail.com/
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
