中国DOS联盟

某目录下有若干文件夹

若03里有3个文件


小弟想用批处理读取文件名，然后生成如下形式，保存在相同文件名的文本中


1.txt 内容为： 01.jpg 02 下一张
2.txt 内容为：01 上一张 02.jpg 03 下一张
3.txt 内容为：02 上一张 03.jpg

若04文件中有4个文件

取文件名，然后生成如下形式，保存在相同文件名的文本中

1.txt 内容为： 01.jpg 02 下一张
2.txt 内容为：01 上一张 02.jpg 03 下一张
3.txt 内容为：02 上一张 03.jpg 04 下一张
4.txt 内容为：03 上一张 04.jpg

同理若只有两个文件时：
1.txt 内容为： 01.jpg 02 下一张
2.txt 内容为：01 上一张 02.jpg

只有一个文件时：
1.txt 内容为： 01.jpg
请论坛里的朋友们帮忙写个批，谢谢！

[ Last edited by ganjie on 2009-10-10 at 00:20 ]

问题描述清晰，加分

如果你是想在网页内切换显示图片，推荐内嵌js，这样就可以只使用一个网页文件。
没必要为每个图片生成一个网页文件。
你可以通过对网上chm电子书的反编译来看一下如何使用js切换显示内容、背景、模板等等的。

楼上的说得不错，我是要做个网页切换，JS相册幻灯片，我倒会弄，已经在蓝色经典论坛上找到了，但这个是帮我一个朋友做，他就要用这种网页来做，我以前倒懂一点批处理，现在好久不弄后，觉得好难。

@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%"下找不到任何*.jpg文件

if not '%1==' popd

pause

goto :eof



:bengin

if not exist *.JPG goto :eof

set test=t&echo.

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

echo 目录%cd%

setlocal enabledelayedexpansion





set/a n=0

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

        set /a n+=1

        set fn!n!=%%~na

)



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

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

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

	for /f "tokens=1-2" %%m in ("!pup! !pdo!") do (

		if defined fn%%m set "str=!fn%%m! 上一张"

		set "str=!str! !fn%%a!.jpg"

		if defined fn%%n set "str=!str! !fn%%n! 下一张"

	)

	echo;!str!>"!fn%%a!.txt"

)

endlocal

echo 写入完成

goto :eof

[ Last edited by netbenton on 2009-10-9 at 10:50 ]

谢谢netbenton，论坛高手很多，但像你这样有水平又乐于助人的不多，诚心的谢谢你，谢谢了！

论坛很多乐于解答的人的，只是不可能时时都在线，未能巧遇而已