中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 问一个有关文本内容的难题

‹ « [1] [2] [3] »

nbic
初级用户

积分 135
发帖 61
注册 2007-4-14
状态离线

『第 31 楼』:

Quote:

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

？？

听不大懂；

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

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

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

2007-5-24 09:17

terse
银牌会员

积分 2404
发帖 946
注册 2005-9-8
状态离线

『第 32 楼』:

Quote:

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="

2007-5-24 12:18

nbic
初级用户

积分 135
发帖 61
注册 2007-4-14
状态离线

『第 33 楼』:

Quote:

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楼的帖的内容吗？

2007-5-24 12:32

bjsh
银牌会员

积分 2000
发帖 621
注册 2007-1-1
状态离线

『第 34 楼』:

两者都有了;
开始先根据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 ]

2007-5-24 12:51

terse
银牌会员

积分 2404
发帖 946
注册 2005-9-8
状态离线

『第 35 楼』:

Quote:

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

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

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

2007-5-24 13:11

‹ « [1] [2] [3] »

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: