2010年11月28日日曜日

やっつけ仕事で、Excelのバージョンアップを自動で行うバッチファイルを作成しました。
以下覚書。

バージョン管理は、ローカルにver02.txt、サーバ側にver01.txtを置いて、その中身を比較。
ver01.txtに最新バージョンのバージョンNoを記載します。

rem ******************************************************************
rem 初期処理
rem ******************************************************************
:start
@echo off
setlocal enableextensions enabledelayedexpansion
set p=C:\hogehoge\
set ver01=0
set ver02=0

rem ******************************************************************
rem VerファイルGET
rem ******************************************************************
:verget
ftp -n -s:%p%param_01 > %p%LOG.TXT

rem ******************************************************************
rem Verファイルの内容を比較
rem ******************************************************************
:hikaku
for /F %%i in (%p%ver01.txt) do set ver01=%%i
for /F %%j in (%p%ver02.txt) do set ver02=%%j
if %ver01%==%ver02% goto excel

rem ******************************************************************
rem 最新版Excelダウンロード
rem ******************************************************************
:verup
ftp -n -s:%p%param_02 > LOG.TXT
copy %p%100.xls %p%hogehoge.xls
del %p%100.xls
IF not %ERRORLEVEL%==0 GOTO err

rem ******************************************************************
rem Excel起動
rem ******************************************************************
:excel
copy %p%ver01.txt %p%ver02.txt
start "hogehoge" %p%hogehoge.xls /max
if not %ERRORLEVEL%==0 GOTO err
rem ******************************************************************
rem 終了
rem ******************************************************************
:end
exit

rem ******************************************************************
rem エラー処理
rem ******************************************************************
:err
echo ******************************************************************
echo ******************異常終了****************************************
echo ******************************************************************
pause > null
exit