Chuck,
Please note that you have an extra space between the
quote character and the equal sign when you reset the
QUOTES character after setting it to doublequote:
> set quotes ="
> set var voldname = ("'"+.vfilename+"'")
> set quotes = '
instead try replacing the above three lines with
set var voldname = (CHAR(39)+.vfilename+CHAR(39))
thus you don't haove to set and reset the quotes char
Jim Bentley
American Celiac Sodiety
[EMAIL PROTECTED]
--- Sami Aaron <[EMAIL PROTECTED]> wrote:
> Chuck -
>
> Use the following example to get the short file name
> and copy the file using
> that instead of the long file name.
>
> -- SELECT FILEname1 INTO VFILENAME FROM FILINFO
> WHERE FILENAME1 CONT
> .VCNT
> SET V vfilename = +
> '0000080 Bach Concerto No. 6 for Harpischord, 2
> Recorders, Strings, and
> Continuo in F Major, BWV 1057.MP3'
>
> SET ERROR MESSAGES 2038 OFF
> DROP TAB folderlist
> SET ERROR MESSAGES 2038 ON
>
> CREATE TEMP TABLE `FolderList` (`file_name` TEXT
> (8) , `FileExt` +
> TEXT (3) , `FileBytes` TEXT (10) ,
> `FileDate` +
> DATE , `FileTime` TIME , `FileextTxt`=
> (CTXT(fileext)) +
> TEXT (3) , `FileName_Ext`=
> (File_Name+'.'+FileExtTxt) +
> TEXT (12), `FileLongName` TEXT (200) )
>
> --Set up the file extensions you want in your list
> SET V vfullfile = ('*.mp3')
> SET V vfullfile2 = ((CHAR(39)) + .vfullfile +
> (CHAR(39)))
>
> --Get a unique file name for the temporary file
> SET V vfiledir = (FILENAME(0))
> OUTPUT .vfiledir
> DIR &vfullfile2
> OUTPUT SCREEN
>
> LOAD FolderList FROM .vfiledir +
> AS FORMATTED USING File_Name 1 8,FileExt 10
> 12,FileBytes 14 23,+
> FileDate 26 33, FileTime 36 41,FileLongName 43 242
>
> SET VAr vShortOldName TEXT = NULL
> SELECT FileName_Ext INTO vShortOldName FROM
> FolderList +
> WHERE FileLongName = .vFileName
>
> SET V vloc = 'Morning\'
> SET VAR vnewname = (SGET(.vFileName,7,1))
> SET VAR vnewname1 = (.vnewname + '.mp3')
> SET VAR vloc4 = (.vloc + .vnewname1)
> COPY &vShortOldName &vloc4
>
> Good luck with your presentation Monday!
> Sami
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Sami Aaron
> Software Management Specialists
> 913-915-1971
> [EMAIL PROTECTED]
>
>
>
> ________________________________
>
> From: [email protected] [mailto:[EMAIL PROTECTED] On
> Behalf Of
> [EMAIL PROTECTED]
> Sent: Saturday, June 25, 2005 7:08 PM
> To: RBG7-L Mailing List
> Subject: [RBG7-L] - Re: Locating files in a
> directory
>
>
> My objective is to copy a mp3 file from the
> c:\Musc\CDs directory to E:\
> 28June2005\Morning directory. The file gets renamed
> in the process for
> example 08-000080.mp3 from the original 0000080 Bach
> Concerto No. 6 for
> Harpischord, 2 Recorders, Strings, and Continuo in
> F Major, BWV 1057.MP3.
> I have copy text files to a table in my database
> which is exactly the same
> as the directory infornation. However, the program
> will not always select
> the file for transfer.
> Below is the code I am using.
> SET VAR vdate1 = (getdate('Select Date'))
> CHOOSE vwant FROM #LIST '1MP,2EP' AT
> CENTER,CENTER,TITLE 'Program Selection'
> SET VAR vloc1 = ('E:\CNJ\')
> IF vwant = '1MP' THEN
> SET VAR vloc3 = '\Morning\'
> ELSE
> SET VAR vloc3 = '\Evening\'
> ENDIF
> DIALOG 'Enter Directory for Program (XX Month YYYY)'
> vloc2=20 v1 1 AT
> CENTER,CENTER
> SET VAR vloc = (.vloc1+.vloc2+.vloc3)
> WHENEVER NOT FOUND GOTO errors
> DROP CURSOR cur1
> DECLARE cur1 CURSOR FOR SELECT selno, cntrl FROM
> music WHERE program =
> .vwant +
> AND playdate1 = .vdate1 AND selno EXISTS AND
> CNTRL EXISTS ORDER BY selno
> OPEN cur1
> FETCH cur1 INTO vsel INDV1, vcnt
> WHILE SQLCODE = 0 THEN
> iF vsel < 10 THEN
> IF SELNO < 6 THEN
> GOTO ENDSECT
> ENDIF
> SET VAR vseltext = ('0'+(CTXT(.vsel)) + '-')
> ELSE
> SET VAR vseltext = ((CTXT(.vsel)) +'-')
> ENDIF
> SET VAR vnum TEXT = (CTXT(.vcnt))
> SELECT FILEname1 INTO VFILENAME FROM FILINFO
> WHERE FILENAME1 CONT .VCNT
> set quotes ="
> set var voldname = ("'"+.vfilename+"'")
> set quotes = '
> SET VAR VNEWNAME = (SGET(.VFILENAME,7,1))
> set var vnewname1 = (.vseltext + .vnewname +
> '.mp3')
> SET VAR vloc4 = (.vloc + .vnewname1)
> cd cds
> COPY &voldname &vloc4
> cd ..
> LABEL ENDSECT
> FETCH cur1 INTO vsel INDV1,vcnt
> ENDWHILE
>
> Appreciate your input.
> Chuck
>
> ________________________________
>
> From: Bernard Lis [mailto:[EMAIL PROTECTED]
> Sent: Sunday, 26 June, 2005 06:58
> To: RBG7-L Mailing List
> Subject: [RBG7-L] - Re: Locating files in a
> directory
>
>
> Chuck,
> I'm not exactly clear about your final goal but, you
> could
> after selecting the id (000080), unload the data
> into an ascii file
> copy the file to the receiving directory and then
> .........
> Here I am lost! do you want to input it into another
> database or what will
> you do with it after copying it?
>
> Bernie Lis
>
> ----- Original Message -----
> From: [EMAIL PROTECTED]
> To: RBG7-L Mailing List <mailto:[email protected]>
> Sent: Saturday, June 25, 2005 7:34 PM
> Subject: [RBG7-L] - Locating files in a directory
>
> I know that you can use choose to select files from
> a directory. I
> have been trying to develop a system to
> automatically copy the file to
> another directory
> We have developed a program for automating
> classical music
> programming and each each in the directory is mark
> as follows:
>
> 0000080 Bach Concerto No. 6 for Harpischord, 2
> Recorders, Strings,
> and Continuo in F Major, BWV 1057.MP3
>
> In the data base we store the cd id as 000080 and
> right now I have
> set up a table with the file names from the
> directory. What I currently do
> is to put quotes
> '0000080 Bach Concerto No. 6 for Harpischord, 2
> Recorders, Strings,
> and Continuo in F Major, BWV 1057.MP3' around the
> title and use the copy
> command to transfer it to the receiveing directory.
> However, the program
> will sometimes select it but most of the time it
> will not. The copy command
> will not accept * in the transferring file name so I
> can not use this
> method.
> Is the a command similiar to the choose command
> that
=== message truncated ===
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
