Question : Script Trouble

Not really sure how to title this... here's a little background.

I play this online baseball game and after each 2/3/4 game series I have to send data files, renamed and compressed, to the members of my league.  Typically, this has been done manually.  But there's no good reason I can think of that won't allow me to script it - only I'm lacking a certain degree of understanding in a key area and need some help (figuring SteveGTR, sirbounty, or DrWarezz are my best hopes, but anyone is welcome to comment).

In any case, note the script I have so far (lots of comments explaining what I need/am trying to do).

-------------------pack.cmd-------------------------------
@echo off
setlocal ENABLEDELAYEDEXPANSION

REM Check for the existance of %1
if "%1" == "" Goto ErrNoTeam

REM Set the visitor to env. var. to %1 (should be a 3 letter code)
REM For testing any 3 letter code will do, but BKA is the first I'm using myself.
set visitor=%1

REM Set my home team env. var. to my 3 letter code.
set home=SUN

REM Define the initial zip filename
set zipfile=%visitor%@%home%.ZIP

REM Change to directory with the data files
cd /d c:\cdrombb\export

REM Zip the data files into the zip file using InfoZip Command line.
zip -9 "%zipfile%" 2005WB*.*

REM Check for the existance of the packed directory - if not there, create it.
If Not Exist .\packed md .\packed

REM Move the previously zipped data files to the packed directory so they are
REM not referenced again.
move 2005wb*.* .\packed

REM Move the zipfile to the print directory containing the text files
move "%zipfile%" ..\print\2005wb

REM Change into the print directory.
cd ..\print\2005wb

REM Get a list of all boxscore print (box*.prt) files - each must be renamed
REM based on information found within the file.  I order from newest to oldest
REM because the oldest should be the first game and the zip file must be
REM renamed one more time to oldestgame %zipfile% - so in theory, the last
REM %gamedate% set should be the oldest date.
for /f "tokens=1 delims=" %%a in ('dir /o-d /b box*.prt') Do Call :ProcessGames %%a

REM Rename the zipfile to the final filename.
ren "%zipfile%" "%GameDate% %zipfile%"

REM Script now complete.
Goto End

:ProcessGames
REM This is my biggest problem area.  I can't seem to get this part to work
REM right.  I've had it seemingly skip the first file then correctly process the
REM the second two, setting gamedate correctly on those.
REM
REM This needs to be run for each game.  It should find the line starting with
REM "]BOXSCORE: " in the file %1 and then set the GameDate env. var. to the
REM last 9 characters of the line. Ideally, it will also remove any leading
REM and trailing spaces.  Lastly, the GameDate needs to be in a mmddyy format
For /f "tokens=1 skip=2 delims=" %%m in ('find "]BOXSCORE: " %1') Do (
      Set GameDate=%%m
      Set GameDate=%GameDate:~-9%
      Ren "%1"
)
GOTO :EOF

Goto End
:ErrNoTeam
Echo.
Echo Error!
Echo.
Echo Could not complete packing - you did not specify your opponant!
Echo.
:End
Set hometeam=
SET zipfile=
Set GameDate=
-------------------pack.cmd-------------------------------

Now, for your sample box*.prt files, the line of data retrieved looks like this for each file:

C:\CDROMBB\Print\2005WB>find "BOXSCORE" BOX*.PRT

---------- BOX0069.PRT
[1]BOXSCORE: 2005 Brookhurst Spartans At 2005 Sunnydale Vengence Demon 4/16/2005


---------- BOX0070.PRT
[1]BOXSCORE: 2005 Brookhurst Spartans At 2005 Sunnydale Vengence Demon 4/17/2005


---------- BOX0071.PRT
[1]BOXSCORE: 2005 Brookhurst Spartans At 2005 Sunnydale Vengence Demon 4/18/2005

Also, file info:
C:\CDROMBB\Print\2005WB>dir box*.prt
 Volume in drive C has no label.
 Volume Serial Number is A816-3E28

 Directory of C:\CDROMBB\Print\2005WB

02/25/2005  04:34 AM             6,695 BOX0069.prt
02/25/2005  05:12 AM             8,946 BOX0070.prt
02/25/2005  05:44 AM             7,335 BOX0071.prt

The end result should be:
Old file name --> new file name through script
BOX0069.PRT --> 041605 [email protected]
BOX0070.PRT --> 041705 [email protected]
BOX0071.PRT --> 041805 [email protected]

The final zip file name should be:
041605 [email protected]

However you can get this working, I'll take it.  (It's gonna be run 50+ times by me in the next 6 months and MAYBE by 19 other guys too)  I figure most of it doesn't need to be edited, just that ProcessGames section.  Thanks all!

Answer : Script Trouble

I always have problems with the delayed expansion processing. Just when I think I have it down, I get it wrong. Luckly testing it out restores my knowledge --- at least for that day. Today is a good day and I got it right the first time:

For /f "tokens=1 skip=2 delims=" %%m in ('find "]BOXSCORE: " %1') Do (
     Set GameDate=%%m
     Set GameDate=!GameDate:~-9!
     Ren "%1"
)

This is the key line: Set GameDate=!GameDate:~-9!

Good Luck,
Steve
     
Random Solutions  
 
programming4us programming4us