[Google Sketchup] .kmz create unique name in .dae, textures and materials

@echo off
setlocal enabledelayedexpansion

if not exist "%1" (echo this file does not exist...)&goto :eof

set /p findthis=find this text string:
set /p replacewith=and replace it with this:


for /f "tokens=*" %%a in (%1) do (

set write=%%a
if %%a==%findthis% set write=%replacewith%

echo !write! 
echo !write! >>%~n1.replaced%~x1
)

my_model
+-images
  +-texture1.jpg
  +-texture2.jpg
+-models
  +-my_model.dae

singleton TSShapeConstructor(MyModelDae)
{
   baseShape = "./my_model.dae";
   matNamePrefix = "my_model_";
};

function createModels()
{
   %modelArray[0,name] = "Bob";
   %modelArray[1,name] = "George";
   %modelArray[2,name] = "Henry";
   %modelArray[3,name] = "Calvin";
   %modelArray[4,name] = "Tom";
   %modelMax = 5;

   for (%i = 0; %i < %modelMax; %i++)
   {
      %modelArray[%i] = %modelArray[%1,name] @ %i;
      createSingletonModel(%modelArray[%i]);
   }

}

function createSingletonModel(%modelName)
{
   %baseShapePath = "./" @ %modelName @ ".dae";
   %matNamePrefix = %modelName @ "_";
   singleton TSShapeConstructor(%modelName)
   {
      baseShape = %baseShapePath;
      matNamePrefix = %matNamePrefix;
   };
}

setLocal

rem Expands %1 to a fuly qualified path name.
set Source = %~f1 

REM For all files in all folders after this one check it with function ProcessFile

for /R %%z in (%Source%*.*) do call :ProcessFile "%%z"
GOTO :eof

:ProcessFile
REM lets get the different parts of the file name / path / file / ext and set them to variables FP , FN, FE, FSP

set FP=%~1&set FN=%~n1&set FE=%~x1&set FSP=%~p1

REM IF /i insensative to case has a file extention of .kmz go to the function Process KMZ File otherwise goto function end of file EOF.

IF /I %FE% EQU .kmz (goto :ProcessKMZFile
) ELSE (
goto :eof
)

:ProcessKMZFile
ECHO The Folder name is %FSP%
ECHO Type in the folder name this file was found in

REM set the userInput to the userInput variable

SET /P userInput=

IF /I "%userInput%" EQU "%FN%" (
GOTO :EOF
) ELSE (
GOTO :ProcessZipFile
)


:ProcessZipFile
ECHO PROCESSZIPFILE
rename %FN%%FE% %FN%.ZIP
MD %FN%
Move %FN%.ZIP %FN%
CD %FN%

ECHO Two New Windows will open up with the contents of the zip file please Drag the models folder and texture folders to the other window 

EXPLORER /n,%FSP%%FN%
rundll32.exe zipfldr.dll,RouteTheCall %FN%.zip
PAUSE

GOTO :WriteCSFile

:WriteCSFile
ECHO singleton TSShapeConstructor(%FN%) 	>> %FN%.TXT
ECHO { 						>> %FN%.TXT
ECHO    baseShape = "./%FN%.dae"; 		>> %FN%.TXT
ECHO    matNamePrefix = "%FN%_"; 		>> %FN%.TXT
ECHO }; 					>> %FN%.TXT

RENAME %FN%.zip %FN%%FE%
RENAME %FN%.TXT %FN%.cs

MOVE %FN%.cs models

REM go back a directory to process the next .kmz file
CD..

:EOF
endLocal