中国DOS联盟

问一下,如果要改,如
D 第一页A B2 C3 D4 E5 F6 4/19 最后一页S
E 第一页A C3 D4 E5 F6 G7 5/19 最后一页S
F 第一页A D4 E5 F6 G7 H8 6/19 最后一页S

改成:
D 第一页A B2 C3 当前页面:D4 E5 F6 4/19 最后一页S
E 第一页A C3 D4 当前页面:E5 F6 G7 5/19 最后一页S
F 第一页A D4 E5 当前页面:F6 G7 H8 6/19 最后一页S

可以改成这个样子的吗?就是在本页前加个 '当前页面',我曾试图改你上面的代码,但发现这是不可能的,除非要改个算法.

Originally posted by ganjie at 2009-2-4 03:17 AM:
谢谢netbenton还特意上传文件,偶自己认真的测试了,拖目录后批处理窗口一下子还是就消失了，里面的htm一个也没有内容变化，确实是没有什么反应!可以 ...

嘿嘿

找到这三个地方：
1. set xn=0
2. set/a ms+=1,mb+=1
3. if not defined fn%2 (set "pr=<td scope="col"><a href="!fn%1!">%1</a></td>"&!echo !pr!&set/a xn+=1)

改成：
1. set xn=0&set "dqym%%a=当前页面:"
2. set/a ms+=1,mb+=1&set dqym%%a=
3. if not defined fn%2 (set "pr=<td scope="col"><a href="!fn%1!">!dqym%1!%1</a></td>"&!echo !pr!&set/a xn+=1)

[ Last edited by netbenton on 2009-2-5 at 19:44 ]

原来是这样子改就行了，我本以为加入当前链接后，肯定要修改算法，这样我就可以自行修改当前页面这项了，
如C 文件的分页项如下：
<table widtd="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td scope="col"><a href="A.htm">第一页</a></td>
<td scope="col"><a href="B.htm">上一页</a></td>
<td scope="col"><a href="A.htm">1</a></td>
<td scope="col"><a href="B.htm">2</a></td>
<td scope="col"><a href="C.htm">3</a></td>
<td scope="col"><a href="D.htm">4</a></td>
<td scope="col"><a href="E.htm">5</a></td>
<td scope="col"><a href="F.htm">下一页</a></td>
<td scope="col">3/19</td>
<td scope="col"><a href="S.htm">最后一页</a></td>
</tr>
</table>
这样我就可以把当前页这段 <td scope="col"><a href="C.htm">3</a></td>
改为 <strong>3</strong> 这是为了css需要的，如何才改成这样子？

真希望楼主能把问题一次讲清楚。。。

再把第三行改成这样,就可以了。
if not defined fn%2 (
if defined dqym%1 (set "pr=<td scope="col"><strong>%1</strong></td>") else (set "pr=<td scope="col"><a href="!fn%1!">%1</a></td>")
echo !pr!&set/a xn+=1
)

不好意思，抱歉！我本来就已经早该完结了，可是为了更美观，就用上了css样式，所以……，费话少说，试验了一下，成功，谢谢，非常感谢！

楼主补充了新问题：

相互链接的文件由5个改为n个：

@echo off

::在 %1 指定要处理的目录，如果所给目录不存在或不指定，则处理当前目录。

if '%1'=='#benton#' goto :bengin

if not '%1==' pushd %1

for /f "tokens=* delims=" %%a in ('dir /ad /s /b^&cd') do (

        pushd %%a

        call %0 #benton#

        popd

)

if not '%test%=='t echo 目录"%cd%"下找不到任何*.htm文件

if not '%1==' popd

pause

goto :eof



:bengin

if not exist *.htm goto :eof

set test=t&echo.

if exist chmchm.abc echo 目录"%cd%"已有chm,本次跳过，&echo.如果要重加，请把该目录的chmchm.abc删除后，再试。&goto :eof

echo 目录%cd%

echo.>chmchm.abc

setlocal enabledelayedexpansion



set "num=7" 在这里定义项数,多少项都可以

set "fg=<td scope="col">.</td>" 这里定义分隔符





set/a n=0

for %%a in (*.htm) do (

        set /a n+=1

        set fn!n!=%%a

)



set "z1=<table widtd="500" border="0" align="center" cellpadding="0" cellspacing="0">"

set "z2=<tr>"

set "z3=<td scope="col"><a href="!fn1!">第一页</a></td>"

set "z8=<td scope="col"><a href="!fn%n%!">最后一页</a></td>"

set "z9=</tr>"

set "z10=</table>"



if !n! gtr 1 goto :noly



(echo !z1!&echo !z2!

set "z5=<td scope="col"><a href="!fn1!">1</a></td>"

set "z7=<td scope="col">1/1</td>"

echo !z5!&echo !z7!&echo !z9!&echo !z10!)>>!fn1!

goto :eof



:noly 不止一个文件

for /l %%a in (1,1,!n!) do (

    echo 正在写入文件： !fn%%a!

    set "z7=<td scope="col">%%a/!n!</td>"

	set/a pup=%%a-1,pdo=%%a+1

	(echo;!z1!&echo;!z2!&echo;!z3!



	call :save %%a



	echo;!z7!&echo;!z8!&echo;!z9!&echo;!z10!)>>!fn%%a!

)

endlocal

echo 写入完成

pause

goto :eof



:save

if defined fn%pup% set "z4=<td scope="col"><a href="!fn%pup%!">上一页</a></td>"&echo !z4!

echo !fg!

set/a sn=0,ms=%1-num,mb=%1+num-1,nun=num/2+1,mmm=0

for /l %%a in (!ms!,1,!mb!) do (

	set/a xn=%%a+num,mmm+=1

	

	set yy=

	if not defined fn!xn! (set yy=1) else (

		if !mmm! gtr !nun! set yy=1

	)

	

	if defined fn%%a (

        if defined yy (

			set "pr=<td scope="col"><a href="!fn%%a!">%%a</a></td>!fg!"

			

			if %%a equ %1 set "pr=<td >%%a</td>!fg!"

			rem 这句使当前项免去链接，如果不需要，可以删除。

			

			echo !pr!

			set/a sn+=1

		)

	)

	if !sn! equ !num! goto :ok

)

:ok

if defined fn%pdo% set "z6=<td scope="col"><a href="!fn%pdo%!">下一页</a></td>"&echo !z6!