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/
