增量部署代码利用批处理命令按原始结构复制指定的文件

@echo off&setlocal enabledelayedexpansion 

REM AUTHOR:黄洪波
REM DATE:20171027
REM Version:1.0
REM 根据自己的环境设置目标根目录和classes长度
REM v1.4 若objectlist.cfg包含目录，则copy该目录及其子目录下的所有文件
REM v1.5 设置需要需要排除的文件


REM 使用方法，在copy.bat同级目录下建立文件objectslist.cfg,将需要部署的文件的源文件(java,xml)按行放入cfg文件中
REM 本方法默认cfg中为文件列表，未处理文件夹的情况
REM 配合SVN使用，效果极好，SVN COMMIT,右键选择需要部署的文件，COPY FULL PATHS
REM 执行cpfile.bat命令

REM 获取当前日期 YYYYMMDD
set datestr=%date:~0,4%%date:~5,2%%date:~8,2%
rem echo !datestr!

rem 设置目标根目录
set tarpath=C:\Work\项目\部署\!datestr!\install\code\oafREM 根据自己的C:\JDeveloper\jdevhome\jdev\myclasses\，myclasses目录的路径长度进行设置
set lgth=38

rem 设置需要排除的文件，多个文件用空格分隔，如果不存在需要排除的文件，则用"*"
set execludestr="server.xml bc4j.xcfg"
REM set execludestr="*"

REM 全局变量
set len=
set splitstr=

set filecount=0
set copycount=0

rem 判断目标根目录是否存在
if not exist !tarpath! (
md !tarpath!
)


echo 正在复制...
rem 遍历cfg文件中的每一行
for /f "tokens=*" %%i in (objectslist.cfg)     do (
set str=%%i
call:openlist !str!
)

echo 执行检查...
rem 检查数量
call:checkfilecount

goto:eof


:openlist
set filestr=%~1
if exist !filestr!\ (
rem echo  dir !filestr!
rem 列出文件夹下所有子目录及文件，并排除server.xml bc4j.xcfg
rem dir /b/s/a/d 列出所有子目录及文件 
rem dir /b/s/a-d 仅列出当前目录及子目录的文件
for /f "delims=" %%b in (‘dir !filestr! /b/s/a-d ^| findstr /v !execludestr! ‘) do (   
rem echo %%b
call:openlist %%b
rem 输出至当前目录的t.txt文件中
rem echo %%b  >>t.txt
)  
rem call:openlist !filestr!
) else (
rem 文件路径直接copy
call:copyfile !filestr!
)
goto:eof

:copyfile
rem 遍历cfg文件中的每一行
rem cfg中的文件数量
set /a filecount=!filecount!+1
rem echo 获取行文本
set str=%~1
rem 替换行文本中的myprojects为myclasses
set temp=!str:myprojects=myclasses!
rem 替换行文本中的java为class
set temp1=!temp:java=class!
rem 设置class及xml文件完整文件路径
set classpath=%temp1%
rem echo !classpath!
rem 得到classpath的长度
call:length !classpath!
rem classpath的完整长度赋值给length1
set length1=!len!
rem echo length1 is !length1!

rem 获取以\拆分classpath,获取最后一个字符
call:splitstring !classpath!
rem echo splitstr is !splitstr!

rem 获取classpath中\后的字符长度
call:length !splitstr!
rem 将其赋值给length2
set length2=!len!
rem echo length2 is !length2!

rem 做减法运算
rem 此处的38需要根据本地的路径长度做调整
set /a leng=!length1!-!length2!-!lgth!
rem echo leng !leng!

rem 获取类路径
rem 此处的38需要根据本地的路径长度做调整
call set clapth=%%classpath:~!lgth!,!leng!%%
rem echo clapth !clapth!

set targetpath=!tarpath!!clapth!
rem echo targetpath !targetpath!

rem 判断目标根目录是否存在
rem 2>NUL 表示命令执行失败或否的时候 不显示
rem 1>NUL 表示命令执行正确或是的时候 不显示(同>NUL)
if not exist !targetpath! (
md !targetpath!
copy !classpath!  !targetpath! >nul
set /a copycount=!copycount!+1
) else (
rem 复制文件
copy !classpath!  !targetpath! >nul
set /a copycount=!copycount!+1
)


rem echo filecount !filecount!
rem echo copycount !copycount!
rem echo objectslist.cfg中的文件数量为!filecount!个，本次共成功导入!copycount!个。

goto:eof


rem 获取字符串长度
:length
set "str=%~1"
for /l %%i in (0,1,200) do if "!str:~%%i,1!"=="" set strlen=%%i && goto :end
:end 
rem echo 字符串长度为 %strlen% 
set len=%strlen%
rem echo 长度为 %len% 
goto:eof

rem 按\拆分字符串
:splitstring
set string=%~1
set split=
:split
for /f "tokens=1,* delims=\" %%i in ("%string%") do (
rem  echo %%i
  set string=%%j
  set split=%%i
)
if not "%string%"=="" goto split
rem echo split !split!
set splitstr=%split%
goto:eof


rem 检查文件数量
:checkfilecount

set notexistscount=0
set errorstr=

for /f "tokens=*" %%i in (objectslist.cfg)     do (
set sourcestr=%%i
set temp=!sourcestr:myprojects=myclasses!
rem 替换行文本中的java为class
set temp1=!temp:java=class!
rem 设置class及xml文件完整文件路径
set sourcepath=!temp1!

call set clapth=%%sourcepath:~!lgth!%%
set targetpath=!tarpath!!clapth!

rem echo sourcepath !sourcepath! targetpath !targetpath!

rem 源路径为文件夹
if exist !sourcepath!\ (
    set sourcecount=0
    rem 加入2^>nul解决目标文件夹中没有文件时，屏幕显示找不到文件的问题
    for /f "delims=" %%b in (‘dir !sourcepath! /b/s/a-d 2^>nul ^| findstr /v !execludestr! ‘ ) do ( 
        set /a sourcecount+=1
    )
    
    rem echo sourcepath !sourcepath! sourcecount !sourcecount!
    
    set targetcount=0
    rem 加入2^>nul解决目标文件夹中没有文件时，屏幕显示找不到文件的问题
    for /f "delims=" %%b in (‘dir !targetpath! /b/s/a-d 2^>nul ^| findstr /v !execludestr! ‘ ) do ( 
        set /a targetcount+=1
    )
    rem echo targetpath !targetpath! targetcount !targetcount!
    
    rem 等价
    rem if !sourcecount! == !targetcount!
    rem if !sourcecount! equ !targetcount! (
    rem     set notexistscount=0
    rem     echo 数量相等
    rem ) else (
    rem     echo 数量不相等
    rem )
    if !sourcecount! NEQ !targetcount! (
        rem echo errorstr !errorstr!
        set errorstr=!errorstr! !sourcepath!中有文件复制失败
    )
) else (
    rem echo file targetpath !targetpath!
    if not exist !targetpath! (
        rem echo errorstr !errorstr!
        set errorstr=!errorstr! !sourcepath!复制失败
    ) 
    rem else (
    rem     set errorstr=!errorstr! !sourcepath!复制失败
    rem )
)

)

rem echo errorstr !errorstr!
rem 
rem set lengtherrstr=0
rem set len=0
rem call:length !errorstr!
rem set lengtherrstr=!len!
rem echo lengtherrstr !lengtherrstr!
rem 
rem if lengtherrstr neq 0 (
rem     echo lengtherrstr is not null    
rem     echo lengtherrstr is !lengtherrstr!
rem     for %%i in (!errorstr!) do echo %%i
rem ) else (
rem     echo 经检查，已完整复制objectslist中的文件。
rem )

if "%errorstr%" =="" (
    echo 经检查，已完整复制objectslist中的文件至 !tarpath! 。
) else (
    for %%i in (!errorstr!) do echo %%i
)



goto:eof

@echo off&setlocal enabledelayedexpansion 

REM AUTHOR:黄洪波
REM DATE:20171027
REM Version:1.0
REM 根据自己的环境设置目标根目录和classes长度
rem v1.1 使用 /exclude:exclude.txt 来排除指定文件


REM 使用方法，在copy.bat同级目录下建立文件objectslist.cfg,将需要部署的文件的源文件(java,xml)按行放入cfg文件中
REM 本方法默认cfg中为文件列表，未处理文件夹的情况
REM 配合SVN使用，效果极好，SVN COMMIT,右键选择需要部署的文件，COPY FULL PATHS
REM 执行cpfile.bat命令
REM 使用xcopy配合参数来达到递归拷贝文件夹的目的
REM 需要排除的文件放入exclude.cfg中


REM 获取当前日期 YYYYMMDD
set datestr=%date:~0,4%%date:~5,2%%date:~8,2%
rem echo !datestr!

rem 设置目标根目录
set tarpath=C:\Work\项目\部署\!datestr!\install\code\oafREM 根据自己的C:\JDeveloper\jdevhome\jdev\myclasses\，myclasses目录的路径长度进行设置
set lgth=38

REM 全局变量
set len=
set splitstr=

set filecount=0
set copycount=0

rem 判断目标根目录是否存在
if not exist !tarpath! (
md !tarpath!
)

rem 将被排除的文件名称组成字符串，findstr加入""则是判断字符串，不加则是通过文件进行判断
set execludestr="
for /f "tokens=*" %%i in (exclude.cfg)     do (
set str=%%i
rem echo str !str!
set execludestr=!execludestr! !str!
)
set execludestr=!execludestr!"
rem echo execludestr !execludestr!



echo 正在复制...
call:xcpfile
echo 执行检查...
rem 检查数量
call:checkfilecount

goto:eof

:xcpfile
rem 遍历cfg文件中的每一行
for /f "tokens=*" %%i in (objectslist.cfg)     do (
rem cfg中的文件数量
set /a filecount=!filecount!+1
rem 获取行文本
set str=%%i
rem echo str !str!
rem 替换行文本中的myprojects为myclasses
set temp=!str:myprojects=myclasses!
rem echo temp !temp!
rem 替换行文本中的java为class
set temp1=!temp:java=class!
rem 设置class及xml文件完整文件路径
set classpath=!temp1!
rem echo classpath !classpath!

rem 得到classpath的长度
call:length !classpath!
rem classpath的完整长度赋值给length1
set length1=!len!
rem echo length1 is !length1!


rem 获取以\拆分classpath,获取最后一个字符
call:splitstring !classpath!
rem echo splitstr is !splitstr!

rem 获取classpath中\后的字符长度
call:length !splitstr!
rem 将其赋值给length2
set length2=!len!
rem echo length2 is !length2!

rem 判断是否为目录
if exist !classpath!\ (
rem echo !classpath! is dir
rem 获取类路径
call set clapth=%%classpath:~!lgth!%%
rem echo echo clapth dir !clapth!
) else (
rem echo !classpath! is file
rem 做减法运算
rem 此处的38需要根据本地的路径长度做调整
set /a leng=!length1!-!length2!-!lgth!
rem echo leng !leng!
rem 获取类路径
call set clapth=%%classpath:~!lgth!,!leng!%%
rem echo clapth !clapth!
)

set targetpath=!tarpath!!clapth!
rem echo targetpath !targetpath!

rem 判断目标根目录是否存在
if not exist !targetpath! (
md !targetpath!
rem copy !classpath!  !targetpath!
REM /S 不复制空目录
call xcopy /Y /Q /S /exclude:exclude.cfg !classpath!  !targetpath! >nul
set /a copycount=!copycount!+1
) else (
rem 复制文件
rem copy !classpath!  !targetpath!
xcopy /Y /Q /S /exclude:exclude.cfg !classpath!  !targetpath! >nul
set /a copycount=!copycount!+1
)

)
rem echo filecount !filecount!
rem echo copycount !copycount!
rem echo objectslist.cfg中的文件数量为!filecount!个，本次共成功导入!copycount!个。

goto:eof

rem 获取字符串长度
:length
set "str=%~1"
for /l %%i in (0,1,200) do if "!str:~%%i,1!"=="" set strlen=%%i && goto :end
:end 
rem echo 字符串长度为 %strlen% 
set len=%strlen%
rem echo 长度为 %len% 
goto:eof

rem 按\拆分字符串
:splitstring
set string=%~1
set split=
:split
for /f "tokens=1,* delims=\" %%i in ("%string%") do (
rem  echo %%i
  set string=%%j
  set split=%%i
)
if not "%string%"=="" goto split
rem echo split !split!
set splitstr=%split%
goto:eof




rem 检查文件数量
:checkfilecount

set notexistscount=0
set errorstr=

for /f "tokens=*" %%i in (objectslist.cfg)     do (
set sourcestr=%%i
set temp=!sourcestr:myprojects=myclasses!
rem 替换行文本中的java为class
set temp1=!temp:java=class!
rem 设置class及xml文件完整文件路径
set sourcepath=!temp1!

call set clapth=%%sourcepath:~!lgth!%%
set targetpath=!tarpath!!clapth!

rem echo sourcepath !sourcepath! targetpath !targetpath!

rem 源路径为文件夹
if exist !sourcepath!\ (
    set sourcecount=0
    rem 加入2^>nul解决目标文件夹中没有文件时，屏幕显示找不到文件的问题
    for /f "delims=" %%b in (‘dir !sourcepath! /b/s/a-d 2^>nul ^| findstr /v !execludestr! ‘ ) do ( 
        set /a sourcecount+=1
    )
    
    rem echo sourcepath !sourcepath! sourcecount !sourcecount!
    
    set targetcount=0
    rem 加入2^>nul解决目标文件夹中没有文件时，屏幕显示找不到文件的问题
    for /f "delims=" %%b in (‘dir !targetpath! /b/s/a-d 2^>nul ^| findstr /v !execludestr! ‘ ) do ( 
        set /a targetcount+=1
    )
    rem echo targetpath !targetpath! targetcount !targetcount!
    
    
    if !sourcecount! NEQ !targetcount! (
        rem echo errorstr !errorstr!
        set errorstr=!errorstr! !sourcepath!中有文件复制失败
    )
) else (
    rem echo file targetpath !targetpath!
    if not exist !targetpath! (
        rem echo errorstr !errorstr!
        set errorstr=!errorstr! !sourcepath!复制失败
    ) 
)

)

if "%errorstr%" =="" (
    echo 经检查，已完整复制objectslist中的文件至 !tarpath! 。
) else (
    for %%i in (!errorstr!) do echo %%i
)

goto:eof