问一个有关文本内容的难题 - 中国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文件？不会吧？

第31楼　nbic	发表于 2007-05-24 09:17
初级用户　发帖 61　积分 135
Originally posted by bjsh at 2007-5-24 08:40 AM: 而且最初的那个操作a.xml文件的程序也出现问题？？听不大懂；尽可能的把你的东西；只像a.xml这样的xml按照原来的目录层次结构打包上来; 通过完成a.xml 上面的操作程序，会生产一个AVP文件夹，AVP里面的每个子文件夹都有一个xml文件，我想完成的是，将每个xml文件都安照处理a.xml 的方式来操作。问一下。论坛的附件无法直接上传哦。。？要先上传到文件上传系统。还得注册一下。。正在等验证。。

第32楼　terse	发表于 2007-05-24 12:18
银牌会员　发帖 946　积分 2,404
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="

第33楼　nbic	发表于 2007-05-24 12:32
初级用户　发帖 61　积分 135
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楼的帖的内容吗？

第34楼　bjsh	发表于 2007-05-24 12:51
银牌会员　发帖 621　积分 2,000
两者都有了; 开始先根据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* ]

第35楼　terse	发表于 2007-05-24 13:11
银牌会员　发帖 946　积分 2,404
Originally posted by nbic at 2007-5-24 09:17: 通过完成a.xml 上面的操作程序，会生产一个AVP文件夹，AVP里面的每个子文件夹都有一个xml文件，我想完成的是，将每个xml文件都安照处理a.xml 的方式 ... 每个文件夹里都有xml文件？不会吧？