小说章节生成器

作者：追忆发布：2013-11-26 16:04 分类：网站技术阅读：8,440次抢沙发

以下代码保存为bat格式，运行即可按提示输入并生成。

@echo off
title 小说模板生成器
color 0a
 
::用户输入变量定义
 
set /p title=请输入小说名:
set /p z=请输入小说章节数:
set /p i=请输入目录首页编号:
set /p b=请输入正文首页编号:
 
::保存全局变量
 
set qz=%z%
set qi=%i%
set qb=%b%
 
::中间变量定义
set t=%i%
set /a j=%i%-1
set /a k=%i%+1
set n=1
set a=1
set q=1
 
::开始生成目录%i%
:begin
echo 开始生成目录%i%
 
>> "mulu%i%.htm" ECHO ^<html^>
>> "mulu%i%.htm" ECHO ^<head^>
>> "mulu%i%.htm" ECHO ^<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /^>
>> "mulu%i%.htm" ECHO ^<title^>%title%目录%q%^</title^>
>> "mulu%i%.htm" ECHO ^</head^>
>> "mulu%i%.htm" ECHO ^<body^>
>> "mulu%i%.htm" ECHO ^<p^>%title%目录%q%^</p^>
 
::判断是否为目录首页
if %i% equ %t% goto huanhang
>> "mulu%i%.htm" ECHO ^<p^>^<a href="mulu%j%.htm"^>上一页^</a^>^</p^>
 
:huanhang
>> "mulu%i%.htm" ECHO ^<p^>
 
::开始生成目录超链接部分
 
:mulu
 
>> "mulu%i%.htm" ECHO ^<a href="%b%.htm"^>%a%^</a^>^&nbsp;
 
set /a yyy=%a%%%50
if %a% equ %z% goto muluend
if %yyy% equ 0 goto endi
if %n% equ 5 goto n
 
set /a a=%a%+1
set /a b=%b%+1
set /a n=%n%+1
 
goto mulu
 
:n
 
>> "mulu%i%.htm" ECHO ^</p^>
>> "mulu%i%.htm" ECHO ^<p^>
set n=1
set /a a=%a%+1
set /a b=%b%+1
goto mulu
 
:endi
 
>> "mulu%i%.htm" ECHO ^</p^>
>> "mulu%i%.htm" ECHO ^<p^>^<a href="mulu%k%.htm"^>下一页^</a^>^</p^>
>> "mulu%i%.htm" ECHO ^<p^>^<a href="index.htm"^>返回首页^</a^>^</p^>
>> "mulu%i%.htm" ECHO ^</body^>
>> "mulu%i%.htm" ECHO ^</html^>
 
set /a j=%j%+1
set /a k=%k%+1
set /a i=%i%+1
set /a q=%q%+1
set /a a=%a%+1
set /a b=%b%+1
set n=1
goto begin
 
:muluend
 
>> "mulu%i%.htm" ECHO ^</p^>
>> "mulu%i%.htm" ECHO ^<p^>^<a href="index.htm"^>返回首页^</a^>^</p^>
>> "mulu%i%.htm" ECHO ^</body^>
>> "mulu%i%.htm" ECHO ^</html^>
 
echo 目录生成完毕
echo.
echo.
echo 目录生成完毕，开始生成正文...
 
::目录生成完毕，开始生成正文
 
::变量传递
set z=%qz%
set i=%qi%
set a=%qb%
 
 
set /a b=%a%-1
set /a c=%a%+1
set /a rz=%z%+1
set n=1
 
 
set t=%a%
set /a z=%z%+%a%
:zwbegin
echo 正在生成%a%.htm
>> "%a%.htm" ECHO ^<html^>
>> "%a%.htm" ECHO ^<head^>
>> "%a%.htm" ECHO ^<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /^>
>> "%a%.htm" ECHO ^<title^>%title%%n%^</title^>
>> "%a%.htm" ECHO ^</head^>
>> "%a%.htm" ECHO ^<body^>
 
if %a% equ %t% goto zwone
 
>> "%a%.htm" ECHO ^<p^>^<a href="%b%.htm"^>上一页^</a^>^</p^>
 
:zwone
 
>> "%a%.htm" ECHO ^<p^>^</p^>
 
if %a%==%z% goto zwz
 
>> "%a%.htm" ECHO ^<p^>^<a href="%c%.htm"^>下一页^</a^>^</p^>
 
:zwz
 
>> "%a%.htm" ECHO ^<p^>^<a href="mulu%i%.htm"^>返回目录^</a^>^</p^>
>> "%a%.htm" ECHO ^<p^>^<a href="index.htm"^>返回首页^</a^>^</p^>
>> "%a%.htm" ECHO ^</body^>
>> "%a%.htm" ECHO ^</html^>
 
 
set /a a=%a%+1
set /a b=%b%+1
set /a c=%c%+1
set /a n=%n%+1
if %n%==%rz% goto end
 
goto zwbegin
 
:end
echo 正文生成完成！
echo 网页模板生成完成！
pause>nul