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. >> > >> ================================================ >> > >> >> > >> >> > >> >> > > >
