_src/Test/tools/T_ModuleAssort2/Install_Project1B.bat

   1 @echo off\r
   2 REM Character Encoding: "WHITE SQUARE" U+25A1 is □.\r
   3 call :SetVariables "%~0"\r
   4 set install_command=%not_close%  %cscript% //nologo "%vbslib_root%\_src\Test\tools\T_ModuleAssort2\T_ModuleAssort2.vbs"  ModuleAssort2_Installer\r
   5 \r
   6 \r
   7 %install_command%  1_Open\Test.xml.proja  Project-B\02\r
   8 \r
   9 \r
  10 goto :eof\r
  11 \r
  12 \r
  13 REM ********************************************************************\r
  14 REM  Function: SetVariables\r
  15 REM ********************************************************************\r
  16 :SetVariables\r
  17 if     "%ProgramFiles(x86)%" == ""  set cscript=cscript\r
  18 if not "%ProgramFiles(x86)%" == ""  set cscript=%windir%\SysWOW64\cscript.exe\r
  19 \r
  20 set close_at_end=\r
  21 set not_close=cmd.exe /K\r
  22 \r
  23 call :GetParentPath "%~1"\r
  24 call :GetParentPath "%ret%"\r
  25 call :GetParentPath "%ret%"\r
  26 call :GetParentPath "%ret%"\r
  27 call :GetParentPath "%ret%"\r
  28 set vbslib_root=%ret%\r
  29 \r
  30 goto :eof\r
  31 \r
  32 \r
  33 REM ********************************************************************\r
  34 REM  Function: GetParentPath\r
  35 REM ********************************************************************\r
  36 :GetParentPath\r
  37 set ret=%~dp1\r
  38 set ret=%ret:~0,-1%\r
  39 goto :eof\r
  40 \r
  41 \r
  42 <AR>\r
  43 あは\r
  44 </AR>\r