|
xswdong
中级用户
积分 216
发帖 129
注册 2007-2-14
状态 离线
|
『楼 主』:
[已解决] 求：多个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 ]
|
|
 2007-3-31 10:52 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
2 楼』:
提示：
for /f ......查找文件名，findstr "<title>"显示<title>一行，用for /f "tokens=1-3* delims=<>"截取需要的字符段
|
|
|
2007-3-31 11:05 |
|
|
xswdong
中级用户
积分 216
发帖 129
注册 2007-2-14
状态 离线
|
『第
3 楼』:
我用for %%i in (*.htm) do type %%i|find /n "title">a.txt提取到了如 <title>公司新同事</title> 只是接下来不知如何写
|
|
|
2007-3-31 11:36 |
|
|
everest79
金牌会员
一叶枝头，万树皆春
积分 2564
发帖 1127
注册 2006-12-25
状态 离线
|
『第
4 楼』:
for /f "tokens=1,2,4 delims=<>:" %a in ('findstr "<title> </title>" D:\1\*.htm') do ren "%a:%b" "%c.htm"
|
|
|
2007-3-31 12:43 |
|
|
xswdong
中级用户
积分 216
发帖 129
注册 2007-2-14
状态 离线
|
『第
5 楼』:
虽然不太理解还是试了 不能运行 还是感谢zh159 和everest79
真的有这么难吗？
[ Last edited by xswdong on 2007-3-31 at 12:12 AM ]
|
|
|
2007-3-31 13:10 |
|
|
everest79
金牌会员
一叶枝头，万树皆春
积分 2564
发帖 1127
注册 2006-12-25
状态 离线
|
|
|
2007-3-31 13:38 |
|
|
xswdong
中级用户
积分 216
发帖 129
注册 2007-2-14
状态 离线
|
『第
7 楼』:
什么提示也没有 我加pause 也一样 闪了一下就退出了
|
|
|
2007-3-31 14:21 |
|
|
xswdong
中级用户
积分 216
发帖 129
注册 2007-2-14
状态 离线
|
『第
8 楼』:
什么提示都没有 我加pause也一样 闪一下就退出了
"%a:%b" 是什么意思 能解释一下吗？
|
|
|
2007-3-31 14:23 |
|
|
dikex
高级用户
潜水修练批处理
积分 788
发帖 366
注册 2006-12-31
状态 离线
|
『第
9 楼』:
| Quote: | Originally posted by xswdong at 2007-3-31 01:21 AM:
什么提示也没有 我加pause 也一样 闪了一下就退出了 |
|
貌似编码问题，文件的编码不是ANSI？
|
|
|
2007-3-31 14:37 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『第
10 楼』:
我还，会想心思。
呵呵。比我懒多了。
-------------------------------
好好努力学写脚本吧。。
这个东西写出来不难。。
只是调试又要花上大把时间。
另外提取出来的东西我在其他的帖子里已经有过类似的东西了。
你可以参考。
|
知，不觉多。不知，乃求知 |
|
|
2007-3-31 16:19 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『第
11 楼』:
@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
|
知，不觉多。不知，乃求知 |
|
|
2007-3-31 16:20 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『第
12 楼』:
上面的这个批处理。可以提出<title>flyinspace</title>里的flyinspace
应该符合你的要求了。
其他的。你自己拼吧：）这样可以提高你的动手能力。
|
知，不觉多。不知，乃求知 |
|
|
2007-3-31 16:21 |
|
|
bjsh
银牌会员
积分 2000
发帖 621
注册 2007-1-1
状态 离线
|
『第
13 楼』:
flyinspace兄写的有点复杂了吧
看看这个呢; 试试行不行
| Quote: |
- @echo off
- for /f %%a in ('dir /b /a D:\文章\目录\*.htm') do set "old_name=%%a" & call :re_name
- goto exit
- :re_name
- for /f "tokens=2 delims=<>" %%b in ('findstr /b "<title>" D:\文章\目录\%old_name%') do set "new_name=%%b.htm"
- move %old_name% D:\文章\
- ren D:\文章\%old_name% %new_name%
- :exit
BJSH发表于： 2007-03-31 10:26 |
|
[ Last edited by bjsh on 2007-3-31 at 11:20 AM ]
|
|
|
2007-3-31 23:20 |
|
|
bjsh
银牌会员
积分 2000
发帖 621
注册 2007-1-1
状态 离线
|
『第
14 楼』:
想来想去还是everest79 的代码高明简洁啊;
从他那学到不少;
给他的那句话改成批处理形式的再加上转移到d:\文章就成了下面的代码了
| Quote: |
- @echo off
- for /f "tokens=1,2,4 delims=<>:" %%a in ('findstr /b "<title>" D:\文章\目录\*.htm') do ren "%%a:%%b" "%%c.htm"
- move d:\文章\目录\*.htm d:\文章\
BJSH发表于： 2007-03-31 10:47 |
|
|
|
|
2007-3-31 23:57 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
15 楼』:
<html>
<head>
<title>爱在厨房</title>的话，skip掉2行。。。应该比findstr /b "<title>" 它快吧
|
|
|
2007-4-1 00:17 |
|
