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/
