中国DOS联盟论坛

中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --

联盟域名:cndos.rths.ml  论坛域名:cndos.rths.ml/forum

DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

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

 
« « 2021-7 » »
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31

栏目分类

最热的 5 篇文章

搜索网志文章


在线用户 : 9
0 位会员   9 位游客
[已解决] 求:多个html改名的批处理
在D:\文章\目录下有三百个htm文件 ,名字是1-300 想把他们改名,利用<title>公司新同事</title> 在标题里寻找如:“公司新同事”并用它命名。试了很久没能成功,请高手帮忙。先谢谢了


<html>
<head>
<title>爱在厨房</title>
就是想利用网页原代码中的:"爱在厨房"作为文件名,替换1.htm 。文件放在
d:\文章\

[ Last edited by xswdong on 2007-3-31 at 09:37 PM ]

评论
<<   [1] [2]  >>   >

提示:
for /f ......查找文件名,findstr "<title>"显示<title>一行,用for /f "tokens=1-3* delims=<>"截取需要的字符段

zh159 2007-3-31 11:05

我用for %%i in (*.htm) do type %%i|find /n "title">a.txt提取到了如 <title>公司新同事</title> 只是接下来不知如何写

xswdong 2007-3-31 11:36

for /f "tokens=1,2,4 delims=<>:" %a in ('findstr "<title> </title>" D:\1\*.htm') do ren "%a:%b" "%c.htm"

everest79 2007-3-31 12:43

虽然不太理解还是试了 不能运行 还是感谢zh159 和everest79
真的有这么难吗?

[ Last edited by xswdong on 2007-3-31 at 12:12 AM ]

xswdong 2007-3-31 13:10

不成功的提示是什么?

everest79 2007-3-31 13:38

什么提示也没有 我加pause 也一样 闪了一下就退出了

xswdong 2007-3-31 14:21

什么提示都没有 我加pause也一样 闪一下就退出了
"%a:%b" 是什么意思 能解释一下吗?

xswdong 2007-3-31 14:23



  Quote:
Originally posted by xswdong at 2007-3-31 01:21 AM:
什么提示也没有 我加pause 也一样 闪了一下就退出了

貌似编码问题,文件的编码不是ANSI?

dikex 2007-3-31 14:37

我还,会想心思。
呵呵。比我懒多了。
-------------------------------
好好努力学写脚本吧。。
这个东西写出来不难。。
只是调试又要花上大把时间。

另外提取出来的东西我在其他的帖子里已经有过类似的东西了。
你可以参考。

flyinspace 2007-3-31 16:19

@echo off & SETLOCAL EnableDelayedExpansion

set _TxtFile=1.txt
set _OutFile=2.txt
set _GetLine=init
set _GetChar=init

:main
        for /f "Tokens=* " %%i in (%_TxtFile%) do (
                set _GetLine=%%i
                call :READINFILE
                echo ^<!_OutLine!^>
                )
goto :END
:READINFILE
set ReadFlag=true
        for /l %%i in (0,1,255) do (
                set _GetChar=!_GetLine:~%%i,1!
                if "!_GetChar!"=="" goto :EOF
                if "!_GetChar!"=="<" set ReadFlag=false
                if "!ReadFlag!"=="true" set _OutLine=!_OutLine!!_GetChar!
                if "!_GetChar!"==">" set ReadFlag=true

                )
        goto :EOF
:END

pause

flyinspace 2007-3-31 16:20

上面的这个批处理。可以提出<title>flyinspace</title>里的flyinspace

应该符合你的要求了。

其他的。你自己拼吧:)这样可以提高你的动手能力。

flyinspace 2007-3-31 16:21

flyinspace兄写的有点复杂了吧

看看这个呢; 试试行不行

  Quote:

  1. @echo off
  2. for /f %%a in ('dir /b /a D:\文章\目录\*.htm') do set "old_name=%%a" & call :re_name
  3. goto exit
  4. :re_name
  5. for /f "tokens=2 delims=<>" %%b in ('findstr /b "<title>" D:\文章\目录\%old_name%') do set "new_name=%%b.htm"
  6. move %old_name% D:\文章\
  7. ren D:\文章\%old_name% %new_name%
  8. :exit
         BJSH发表于:  2007-03-31  10:26

[ Last edited by bjsh on 2007-3-31 at 11:20 AM ]

bjsh 2007-3-31 23:20

想来想去还是everest79 的代码高明简洁啊;
从他那学到不少;
给他的那句话改成批处理形式的再加上转移到d:\文章就成了下面的代码了

  Quote:

  1. @echo off
  2. for /f "tokens=1,2,4 delims=<>:" %%a in ('findstr /b "<title>" D:\文章\目录\*.htm') do ren "%%a:%%b" "%%c.htm"
  3. move d:\文章\目录\*.htm d:\文章\
         BJSH发表于:  2007-03-31  10:47



bjsh 2007-3-31 23:57

<html>
<head>
<title>爱在厨房</title>的话,skip掉2行。。。应该比findstr /b "<title>" 它快吧

slore 2007-4-1 00:17

发表评论
标题:   [可选]
选项:
 禁用 URL 识别
 禁用 Smilies
 禁用 Discuz! 代码
 使用个人签名
 接收新回复邮件通知

           
[完成后可按 Ctrl+Enter 发布]

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



[ 联系我们 - 中国DOS联盟 ]


Powered by Discuz! © 2001-2011