标题: [已解决]读取文件名，按特定的格式保存在文本中 [打印本页]
作者: ganjie 时间: 2009-10-8 14:51 标题: [已解决]读取文件名，按特定的格式保存在文本中
某目录下有若干文件夹
若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 ]
作者: yishanju 时间: 2009-10-8 16:20
问题描述清晰，加分
作者: Hanyeguxing 时间: 2009-10-8 16:52
如果你是想在网页内切换显示图片，推荐内嵌js，这样就可以只使用一个网页文件。
没必要为每个图片生成一个网页文件。
你可以通过对网上chm电子书的反编译来看一下如何使用js切换显示内容、背景、模板等等的。
作者: ganjie 时间: 2009-10-8 17:48
楼上的说得不错，我是要做个网页切换，JS相册幻灯片，我倒会弄，已经在蓝色经典论坛上找到了，但这个是帮我一个朋友做，他就要用这种网页来做，我以前倒懂一点批处理，现在好久不弄后，觉得好难。
作者: netbenton 时间: 2009-10-8 23:05
@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 ]::在 %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
作者: ganjie 时间: 2009-10-9 12:27
谢谢netbenton，论坛高手很多，但像你这样有水平又乐于助人的不多，诚心的谢谢你，谢谢了！
作者: netbenton 时间: 2009-10-9 12:53
论坛很多乐于解答的人的，只是不可能时时都在线，未能巧遇而已