Thanks Dawn, Mike -- That should get me started this summer while I wait for Mike and/or Rafee to teach us more in the fall...
> -----Original Message----- > From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Dawn Oakes > Sent: Wednesday, June 29, 2005 11:34 AM > To: RBG7-L Mailing List > Subject: [RBG7-L] - Re: Locating files in a directory > > Claudine and others interested - > > In the meantime, I found this useful when I was trying my first stab at > scripting: > > http://www.microsoft.com/technet/scriptcenter/topics/beginner/firststeps > .mspx > > Dawn > -----Original Message----- > From: MikeB [mailto:[EMAIL PROTECTED] > Sent: Wednesday, June 29, 2005 12:27 PM > To: RBG7-L Mailing List > Subject: [RBG7-L] - Re: Locating files in a directory > > Actually, VbScript contains most of Full Visual Basic 5 functions and I > have it on Good Authority that Dr. R> Son is getting tuned up in VB.. > Maybe time for him to teach a bit as well... > > The scripting side of the vb language is devoid of any GUI, so allowing > as how most everyone in this forum is pretty well acquainted with > procedural language like native RBase and with 7.x, you are becoming > acclimated to Object Based concepts, it would be no stretch to think you > could grasp usage of VBScript pretty easy.. > > I have told Razzak, I am trying to work towards at least attending the > conference, but because of verrrry limited time, I am pretty certain I > won't be a presenter. I won't rule out doing a clinic on Basics of > VBScript, but I absolutely can't commit to that right at this particular > moment in time... > > > ----- Original Message ----- > From: "Claudine Robbins" <[EMAIL PROTECTED]> > To: "RBG7-L Mailing List" <[email protected]> > Sent: Wednesday, June 29, 2005 10:06 AM > Subject: [RBG7-L] - Re: Locating files in a directory > > > > Dawn -- What a wonderful idea! Couldn't have a more perfect teacher > than > > Mike... hint, hint <g> > > > >> -----Original Message----- > >> From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Dawn > Oakes > >> Sent: Wednesday, June 29, 2005 9:59 AM > >> To: RBG7-L Mailing List > >> Subject: [RBG7-L] - Re: Locating files in a directory > >> > >> Maybe a midnight session in Pennsylvania in October? > >> > >> -----Original Message----- > >> From: Claudine Robbins [mailto:[EMAIL PROTECTED] > >> Sent: Wednesday, June 29, 2005 10:52 AM > >> To: RBG7-L Mailing List > >> Subject: [RBG7-L] - Re: Locating files in a directory > >> > >> OK, I'm game. Where and/or how would one go about getting such > >> rudimentary skills? > >> > >> > -----Original Message----- > >> > From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of MikeB > >> > Sent: Wednesday, June 29, 2005 9:29 AM > >> > To: RBG7-L Mailing List > >> > Subject: [RBG7-L] - Re: Locating files in a directory > >> > > >> > Not to harp an old tune, but this is an example of why I encourage > >> > everyone to pick up on at least some rudimentary skill level using > >> > vbscript / jscript. > >> > > >> > This scenario is faced by IT personnel everyday and sometimes the > >> > scope of the problem can be larger than Chucks. Using the > >> > FileSystemObject and Regular Expressions, the rename of a group of > >> > files would be accomplished in probably twenty or so lines of > code.. > >> > > >> > Some of you were probably very adept DOS batch file users. > Scripting > >> > grew out of the shortcomings / limitations of that environment and > is > >> > quite powerful (you can write a pretty sophisticated application in > >> > scripting if you really wanted to do it) and using the RScripter > >> > plugin, these scripts can be incorporated seamlessly into the RBase > >> > environment.... > >> > > >> > ----- Original Message ----- > >> > From: "David M. Blocker" <[EMAIL PROTECTED]> > >> > To: "RBG7-L Mailing List" <[email protected]> > >> > Sent: Wednesday, June 29, 2005 8:39 AM > >> > Subject: [RBG7-L] - Re: Locating files in a directory > >> > > >> > > >> > > Chuck > >> > > > >> > > You could load the files into an R:Base table with two columns, > >> > OldFileName, > >> > > NewFileName > >> > > > >> > > Copy OldFileName into NewFileName > >> > > > >> > > Edit the ones you need to rename - I bet you could use the SRPL > >> > > function > >> > to > >> > > do it in quick steps > >> > > > >> > > Write a short cursor routine WHERE OldFileName <> NewFileName > >> > > > >> > > The routine RENAMES OldFileName NewFileName. > >> > > > >> > > David > >> > > > >> > > David Blocker > >> > > [EMAIL PROTECTED] > >> > > 781-784-1919 > >> > > Fax: 781-784-1860 > >> > > Cell: 339-206-0261 > >> > > ----- Original Message ----- > >> > > From: <[EMAIL PROTECTED]> > >> > > To: "RBG7-L Mailing List" <[email protected]> > >> > > Sent: Wednesday, June 29, 2005 6:02 AM > >> > > Subject: [RBG7-L] - Re: Locating files in a directory > >> > > > >> > > > >> > >> First, again thanks for your help. > >> > >> I have learned some additions insights into trying to select > files > >> > >> from > >> > a > >> > >> directory. > >> > >> First - don't use commas > >> > >> Second - no periods other the file ending (.mp3) I am not sure > >> > >> about other characters such - ( ) etc. > >> > >> The char(39) works very well in putting the quotes around the > name. > >> > >> Does anyone know of a good directory editor that would permit me > to > >> > > replace > >> > >> commas and periods. I have over 2000 files In the cd directory. > >> > >> Just has to be an easier way to change it. > >> > >> Thanks again. > >> > >> Chuck Conrad > >> > >> > >> > >> > >> > >> -----Original Message----- > >> > >> From: James Bentley [mailto:[EMAIL PROTECTED] > >> > >> Sent: Monday, 27 June, 2005 01:39 > >> > >> To: RBG7-L Mailing List > >> > >> Subject: [RBG7-L] - Re: Locating files in a directory > >> > >> > >> > >> 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 > >> > >> > >> > >> --- RBG7-L > >> > >> ================================================ > >> > >> TO POST A MESSAGE TO ALL MEMBERS: > >> > >> Send a plain text email to [email protected] > >> > >> > >> > >> (Don't use any of these words as your Subject: > >> > >> INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH, > >> > >> REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP) > >> > >> ================================================ > >> > >> TO SEE MESSAGE POSTING GUIDELINES: > >> > >> Send a plain text email to [email protected] > >> > >> In the message SUBJECT, put just one word: INTRO > >> > >> ================================================ > >> > >> TO UNSUBSCRIBE: > >> > >> Send a plain text email to [email protected] > >> > >> In the message SUBJECT, put just one word: UNSUBSCRIBE > >> > >> ================================================ > >> > >> TO SEARCH ARCHIVES: > >> > >> Send a plain text email to [email protected] > >> > >> In the message SUBJECT, put just one word: SEARCH-n > >> > >> (where n is the number of days). In the message body, > >> > >> place any > >> > >> text to search for. > >> > >> ================================================ > >> > >> > >> > >> > >> > >> > >> > > > >
