中国DOS联盟

Originally posted by bjsh at 2007-5-24 08:40 AM:
而且最初的那个操作a.xml文件的程序也出现问题

？？

听不大懂；

尽可能的把你的东西；只像a.xml这样的xml按照原来的目录层次结构打包上来;

通过完成a.xml 上面的操作程序，会生产一个AVP文件夹，AVP里面的每个子文件夹都有一个xml文件，我想完成的是，将每个xml文件都安照处理a.xml 的方式来操作。

问一下。论坛的附件无法直接上传哦。。？要先上传到文件上传系统。还得注册一下。。正在等验证。。

Originally posted by bjsh at 2007-5-24 06:20:
起初serverfolder取得的值为这种形式:
../../bases/info

我用%serverfolder:~6%获得bases/info去掉前面的省略号;

但是现在看来确实是多余的;
直接把'/'替换为'\'即可

去掉的 %serverfolder:~6%

@echo off
call :reset
for /f "tokens=2 delims==" %%a in ('findstr /i "serverfolder filename" a.xml') do (
if not defined serverfolder (set "serverfolder=%%~a") else (
if not defined filename set "filename=%%~a" & call :start
)
)
:start
set "serverfolder=%serverfolder:/=\%"
md %serverfolder%
copy %filename% %serverfolder%
:reset
set "serverfolder="
set "filename="

Originally posted by terse at 2007-5-24 12:18 PM:

去掉的 %serverfolder:~6%

@echo off
call :reset
for /f "tokens=2 delims==" %%a in ('findstr /i "serverfolder filename" a.xml') do (
if not defined serverfolder ...

这个我已经改了。。能帮忙参考一下我31楼的帖的内容吗？

两者都有了;
开始先根据c:\avp\index\6\a.xml把其他所需的xml找出来;
然后根据找出来的xml;再根据其内容把相关文件复制到相应文件夹;

@echo off & setlocal enabledelayedexpansion

call :reset
for /f "tokens=2 delims== " %%a in ('findstr /i "serverfolder filename" c:\avp\index\6\a.xml') do (
        if not defined serverfolder (set "serverfolder=%%~a") else (
                       if not defined filename set "filename=%%~a" & call :start1
        )
)

move c:\AVP\index\6\a.xml c:\

for /f %%l in ('dir /b /s c:\AVP\*.xml') do (
	call :reset
	for /f "tokens=1,2 delims== " %%a in ('findstr /i "serverfolder filename" %%l') do (
		set "var=%%a"
		if "!count!"=="1" if /i "!var:~-8!"=="filename" copy c:\1\!filename! %%~dpl & set "count="
	 	if /i "!var:~-8!"=="filename" set "filename=%%~b" & set /a count=1
		if /i "!var:~-12!"=="serverfolder"  set "serverfolder=%%~b"
		if defined serverfolder if defined filename call :start 
	)
	if defined filename copy c:\1\!filename! %%~dpl
)
move c:\a.xml c:\AVP\index\6\
copy c:\1\xml-0607g.pbv c:\avp\index\6\
copy c:\1\kl-0607g.pbv c:\avp\index\6\
rd /s /q c:\avp\7g.pbv
pause & goto :eof
:start1
set "serverfolder=%serverfolder:~6%"
:start
set "serverfolder=%serverfolder:/=\%"
md c:\AVP\%serverfolder%
copy c:\1\%filename% c:\AVP\%serverfolder%
:reset
set "serverfolder="
set "filename="
set "count="

Last edited by bjsh on 2007-5-24 at 05:36 PM ]

Originally posted by nbic at 2007-5-24 09:17:

通过完成a.xml 上面的操作程序，会生产一个AVP文件夹，AVP里面的每个子文件夹都有一个xml文件，我想完成的是，将每个xml文件都安照处理a.xml 的方式 ...

每个文件夹里都有xml文件？不会吧？