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/
