[文本处理] 批处理版新链接网页生成

hlzj88

不能称原创，因为核心代码网上都有，无非是各有用处不同罢了。
功能：将文件夹下的文件生成网页，版面新颖一些而已，分享了，
便于你将文件打包和管理调用。
源码见7楼

hlzj88

略做修改，添加文件类型选择

JoyChiu

这个不行的，文件类型太受限制了

hlzj88

要*.jpg 还是*.mp3。这样是单选，还是可以*.*的，就像是一楼的了，本意是能够链接需要的文件生成如歌曲.htm,文本.htm
或 图片.htm,如此分类方便专用。

[ 本帖最后由 hlzj88 于 2009-10-21 20:59 编辑 ]

plp626

我就崩溃了，在这样的论坛里不就为了交流吗，代码还 预处理“加密”

asnahu

楼主的的加密确实让人无奈：

::Ｃrypt by Ｓavage Ｓtudio | ＥM:log2.0@163.com | ＨomeＰage:savage100.xingkong.com | ＱQ:24807208::
@echo off & set _="U}'mf6jSb@HI3XW]5we?9:0Rs{il|KZn8T,<#qv[MNx>V*/DE(O\.`7k-Lt^u$oF)=G&aJh gyzp1!A+4BCrc2PQdY"
if 0 equ 9 pause&cls&exit
set _="+2DeY^gu8CfXx@H0O[P]#>/ZdB'FT)(&}zUi4yrmV?|67n*9l<jMsA1bN=QJR`wIG3,KL:$ESW5{qv\.k-toah p!c"
if 0 equ 9 pause&cls&exit
@echo off&&color 2e
mode con cols=52 lines=10
title 网页自动生成-新风格
echo   网页自动生成 快速文件链接 只对文件夹里的文件有效
>AUTOINDEXHY.htm echo ^<^!DOCTYPE HTML PUBLIC ^"-//W3C//DTD HTML 4.01//EN^"^>
>>AUTOINDEXHY.htm echo ^^
>>AUTOINDEXHY.htm echo ^%date:~0,10%-%time:~0,-3% AUTO MADE INDEX☆BY仰天长啸之批处理生成网页工具-QQ:584942304☆^
>>AUTOINDEXHY.htm echo ^
goto xt
:xtc1
ECHO.
echo    选择错误，重来！！！
:xt
ECHO.
echo    请选择是否要加背景图片  Y  或  N   回车确定!
SET Choice=
SET /P Choice=   默认为系统下bliss.bmp,链接自改
IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
IF /I '%Choice%'=='Y' GOTO tu
IF /I '%Choice%'=='n' GOTO ntu
GOTO xtc1
:tu
>>AUTOINDEXHY.htm echo ^^
:ntu
>>AUTOINDEXHY.htm echo ^
>>AUTOINDEXHY.htm echo ^>AUTOINDEXHY.htm echo function c(i^)
>>AUTOINDEXHY.htm echo ^{
>>AUTOINDEXHY.htm echo for(var j=1;j^>AUTOINDEXHY.htm echo if(i==j^)^{
>>AUTOINDEXHY.htm echo var ans = document.getElementById(^'q^'+i^);
>>AUTOINDEXHY.htm echo if(ans.style.display == ^'^'^)
>>AUTOINDEXHY.htm echo ans.style.display = ^'none^';
>>AUTOINDEXHY.htm echo else
>>AUTOINDEXHY.htm echo ans.style.display = ^'^';
>>AUTOINDEXHY.htm echo ^}else^{
>>AUTOINDEXHY.htm echo var ans = document.getElementById(^'q^'+j^);
>>AUTOINDEXHY.htm echo ^}
>>AUTOINDEXHY.htm echo ^}
>>AUTOINDEXHY.htm echo.
>>AUTOINDEXHY.htm echo ^}
>>AUTOINDEXHY.htm echo //--^>
>>AUTOINDEXHY.htm echo ^  
>>AUTOINDEXHY.htm echo ^
>>AUTOINDEXHY.htm echo ^
>>AUTOINDEXHY.htm echo ^>AUTOINDEXHY.htm echo .STYLE4 ^{color: #000000; font-weight: bold; ^}
>>AUTOINDEXHY.htm echo .STYLE5 ^{color: #000000;
>>AUTOINDEXHY.htm echo font-size: 12px;
>>AUTOINDEXHY.htm echo.
>>AUTOINDEXHY.htm echo ^}
>>AUTOINDEXHY.htm echo .STYLE6 ^{
>>AUTOINDEXHY.htm echo font-size: medium;
>>AUTOINDEXHY.htm echo font-weight: bold;
>>AUTOINDEXHY.htm echo ^}
>>AUTOINDEXHY.htm echo .STYLE7 ^{font-size: medium^}
>>AUTOINDEXHY.htm echo .STYLE9 ^{font-size: 12px; color: #000000 ^}
>>AUTOINDEXHY.htm echo body ^{
>>AUTOINDEXHY.htm echo margin-bottom: 0px;
>>AUTOINDEXHY.htm echo ^}
>>AUTOINDEXHY.htm echo .STYLE12 ^{
>>AUTOINDEXHY.htm echo font-size: 12px;
>>AUTOINDEXHY.htm echo color: #000000;
>>AUTOINDEXHY.htm echo ^}
>>AUTOINDEXHY.htm echo .STYLE61 ^{font-size: 12px; padding:0px; line-height:30%%;^}
>>AUTOINDEXHY.htm echo .STYLE42 ^{font-size:12px; font-weight: bold; line-height: 300%%; color:#333; ^}
>>AUTOINDEXHY.htm echo --^>
>>AUTOINDEXHY.htm echo ^
>>AUTOINDEXHY.htm echo ^
>>AUTOINDEXHY.htm echo ^
goto xy
:xyc1
ECHO.
echo    选择错误，重来！！！
:xy
ECHO.
echo    请选择是否要加背景音乐  Y  或  N   回车确定!
SET Choice=
SET /P Choice=   默认为系统下windows启动,链接自改
IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
IF /I '%Choice%'=='Y' GOTO yy
IF /I '%Choice%'=='n' GOTO ny
GOTO xyc1
:yy
>>AUTOINDEXHY.htm echo ^^请查看网页源文件替换链接^^      ^删除就可以了--^>
echo ^>>AUTOINDEXHY.htm
goto ny
:ny
goto xzt
:xtc1
ECHO.
echo    选择错误，重来！！！
:xzt
ECHO.
SET Choice=
SET /P Choice=   请选择是否要  选择主题  Y  或  N   回车确定!
IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
IF /I '%Choice%'=='Y' GOTO zt
IF /I '%Choice%'=='n' GOTO yuan
GOTO xzt1
:zt
cls&echo.
@echo 请输入你想要的主题,如果不能选择输入法输入汉字&echo.&echo 可以复制后在这个窗口里用鼠标粘贴后回车确定！
echo.
set /p xx=请输入或粘贴——》
>>AUTOINDEXHY.htm echo ^^^^^^^^^^^%xx%^^^^^^^
goto jx
:yuan
>>AUTOINDEXHY.htm echo ^^^^^^^^^^%date:~0,10%-%time:~0,-3%^
AUTO MADE BY 仰天长啸^
路径：%cd%\^^^^^^
:jx
>>AUTOINDEXHY.htm echo ^
>>AUTOINDEXHY.htm echo ^^
setlocal EnableDelayedExpansion
FOR /d %%i in ("*") do (
   set /a v=0
   set /a w+=1
   @echo ^^^^^^^^%%~ni^^^^
>>AUTOINDEXHY.htm
   @echo ^>>AUTOINDEXHY.htm
        FOR /f "delims=" %%j in ('dir "%%i" /b/s/a-d') do (
           set /a Y+=1
           set /a v+=1
           @echo ^
^NO：!v!^  %%~nxj^^
>>AUTOINDEXHY.htm
)
@echo ^^^返回顶部^^>>AUTOINDEXHY.htm
@echo ^^^>>AUTOINDEXHY.htm
)
echo ^>>AUTOINDEXHY.htm
echo ^>>AUTOINDEXHY.htm
echo ^^★共!w!个文件夹^ ^ ^ ^ ^ ^ ★共!Y!个文件>>AUTOINDEXHY.htm
echo ^^^^特别感谢:^  ^^非常批处理论坛^^  ^^批处理之家论坛^^^^>>AUTOINDEXHY.htm
echo ^^^^资料版权归原作者所有^
不对其内容负任何责任^
BY仰天长啸  保留自有权利^
%date%^^^>>AUTOINDEXHY.htm
echo ^
^^>>AUTOINDEXHY.htm
start AUTOINDEXHY.htm
复制代码

[ 本帖最后由 asnahu 于 2009-10-26 15:47 编辑 ]

hlzj88

楼上，怪我，接受批评。现贴文如下，且又有小改动。
版主：经检查code的括号无问题（）换[]，但代码显示还是有问题，就直接发原文了，见谅！！！

再次修改，谢谢在线版主给加code,但会丢掉<br>,改发附件，源码下载后看吧。

jikea

你看生成的网页全靠左边单排直往下排列，眼睛老往屏幕左边看很不舒服，要是能靠中间一点就好了

狱渊

下载来试试看