cmd脚本----tree命令的htm版 - 中国DOS联盟论坛

cmd脚本----tree命令的htm版

http://bbs.et8.net/bbs/showthread.php?t=673085

2005.7.3更新

进入目录，一层层点，嫌烦
tree命令只给看看。。不给点。。。我就是要点

tree命令的htm版

htm,css都没搞过，现学的，高手奸笑了

根目录下运行，测试，保存为tree_htm.cmd运行

代码:


@echo off
del tree.htm 2>nul 

echo ===============tree命令的htm版===============
echo.
echo              by hitme 2005.7.3 hitme@xiahaixiao.com
echo.
echo 可直接点击进入6层内目录，完美主义者请自行修改
echo =============================================
echo.
echo 请稍候.............

 >end.htm echo ^<head^>
>>end.htm echo ^<meta http-equiv="Content-Type" content="text/html^; charset=gb2312" ^/^>
>>end.htm echo ^<style type="text/css"^> 
>>end.htm echo ^<!-- 
>>end.htm echo a:active { text-decoration: none ; color: red ; font-size: 12pt } 
>>end.htm echo a:visited { text-decoration: none ; color: green ; font-size: 12pt }
>>end.htm echo a:link { text-decoration: none ; font-size: 12pt } 
>>end.htm echo --^> 
>>end.htm echo ^</style^> 
>>end.htm echo ^</head^>
>>end.htm echo ^<body^>

setlocal  ENABLEDELAYEDEXPANSION
for /f "skip=2 delims=" %%i in ('tree') do (
				set n=%%i

				if "!n:~1,1!"==":" set n0=!n:~0,2!
				
				if "!n:~1,1!"=="─" (set n1=!n:~2!
							set n2=
							set n3=
							set n4=
							set n5=
							set n6=
							set n7=)
				if "!n:~4,1!"=="─" (set n2=!n:~5!
							set n3=
							set n4=
							set n5=
							set n6=
							set n7=)
				if "!n:~5,1!"=="─" (set n2=!n:~6!
							set n3=
							set n4=
							set n5=
							set n6=
							set n7=)

				if "!n:~7,1!"=="─" (set n3=!n:~8!
							set n4=
							set n5=
							set n6=
							set n7=)
				if "!n:~8,1!"=="─" (set n3=!n:~9!
							set n4=
							set n5=
							set n6=
							set n7=)
				if "!n:~9,1!"=="─" (set n3=!n:~10!
							set n4=
							set n5=
							set n6=
							set n7=)

				if "!n:~10,1!"=="─" (set n4=!n:~11!
							set n5=
							set n6=
							set n7=)

				if "!n:~11,1!"=="─" (set n4=!n:~12!
							set n5=
							set n6=
							set n7=)

				if "!n:~12,1!"=="─" (set n4=!n:~13!
							set n5=
							set n6=
							set n7=)


   				if "!n:~13,1!"=="─" (set n5=!n:~14!
							set n6=
							set n7=)
				if "!n:~14,1!"=="─" (set n5=!n:~15!
							set n6=
							set n7=)
				if "!n:~15,1!"=="─" (set n5=!n:~16!
							set n6=
							set n7=)
				if "!n:~16,1!"=="─" (set n5=!n:~17!
							set n6=
							set n7=)

				if "!n:~17,1!"=="─" (set n6=!n:~18!)
				if "!n:~18,1!"=="─" (set n6=!n:~19!)
				if "!n:~19,1!"=="─" (set n6=!n:~20!)
				if "!n:~20,1!"=="─" (set n6=!n:~21!)

				set n=!n: =^&nbsp;!
			

				>>end.htm echo ^<a href="!n0!\!n1!\!n2!\!n3!\!n4!\!n5!\!n6!" target="_blank"^>!n!^</a^> 
				>>end.htm echo ^</br^> 

)
for /f "delims=" %%i in (end.htm) do (
					set x=%%i
                       			for /l %%a in (1,1,5) do (
						   		set x=!x:\\=\!	
					)
					echo !x!>>tree.htm
)
endlocal

del end.htm
start tree.htm

一直PF CCF上天神的编程风格

[ Last edited by electronixtar on 2006-6-21 at 21:29 ]

要注册，下载不了，能不能传到这儿来？

在根目录下执行可以，把它放在子目录里执行，生成html文件，里边的链接是错的，它把子目录的文件都当成是在根目录了

CCF咋老不收新人……

跟三楼说的是一个情况。不在根目录下链接无效。看看楼主能不能改进一哈。

改了一下，试过可以在任意目录（某些含有“!”的目录不行）


@echo off@echo off
del tree.htm 2>nul 

echo ===============tree命令的htm版===============
echo.
echo              by hitme 2005.7.3 hitme@xiahaixiao.com
echo.
echo 可直接点击进入6层内目录，完美主义者请自行修改
echo =============================================
echo.
echo 请稍候.............

>end.htm echo ^<head^>
>>end.htm echo ^<meta http-equiv="Content-Type" content="text/html^; charset=gb2312" ^/^>
>>end.htm echo ^<style type="text/css"^> 
>>end.htm echo ^<!-- 
>>end.htm echo a:active { text-decoration: none ; color: red ; font-size: 12pt } 
>>end.htm echo a:visited { text-decoration: none ; color: green ; font-size: 12pt }
>>end.htm echo a:link { text-decoration: none ; font-size: 12pt } 
>>end.htm echo --^> 
>>end.htm echo ^</style^> 
>>end.htm echo ^</head^>
>>end.htm echo ^<body^>

setlocal  ENABLEDELAYEDEXPANSION
for /f "skip=2 delims=" %%i in ('tree') do (
set /a num+=1
                                set n=%%i

                                if "!n:~1,1!"==":" set n0=!n:~0,2!
                                
                                if "!n:~1,1!"=="─" (set n1=!n:~2!
                                                        set n2=
                                                        set n3=
                                                        set n4=
                                                        set n5=
                                                        set n6=
                                                        set n7=)
                                if "!n:~4,1!"=="─" (set n2=!n:~5!
                                                        set n3=
                                                        set n4=
                                                        set n5=
                                                        set n6=
                                                        set n7=)
                                if "!n:~5,1!"=="─" (set n2=!n:~6!
                                                        set n3=
                                                        set n4=
                                                        set n5=
                                                        set n6=
                                                        set n7=)

                                if "!n:~7,1!"=="─" (set n3=!n:~8!
                                                        set n4=
                                                        set n5=
                                                        set n6=
                                                        set n7=)
                                if "!n:~8,1!"=="─" (set n3=!n:~9!
                                                        set n4=
                                                        set n5=
                                                        set n6=
                                                        set n7=)
                                if "!n:~9,1!"=="─" (set n3=!n:~10!
                                                        set n4=
                                                        set n5=
                                                        set n6=
                                                        set n7=)

                                if "!n:~10,1!"=="─" (set n4=!n:~11!
                                                        set n5=
                                                        set n6=
                                                        set n7=)

                                if "!n:~11,1!"=="─" (set n4=!n:~12!
                                                        set n5=
                                                        set n6=
                                                        set n7=)

                                if "!n:~12,1!"=="─" (set n4=!n:~13!
                                                        set n5=
                                                        set n6=
                                                        set n7=)


                                   if "!n:~13,1!"=="─" (set n5=!n:~14!
                                                        set n6=
                                                        set n7=)
                                if "!n:~14,1!"=="─" (set n5=!n:~15!
                                                        set n6=
                                                        set n7=)
                                if "!n:~15,1!"=="─" (set n5=!n:~16!
                                                        set n6=
                                                        set n7=)
                                if "!n:~16,1!"=="─" (set n5=!n:~17!
                                                        set n6=
                                                        set n7=)

                                if "!n:~17,1!"=="─" (set n6=!n:~18!)
                                if "!n:~18,1!"=="─" (set n6=!n:~19!)
                                if "!n:~19,1!"=="─" (set n6=!n:~20!)
                                if "!n:~20,1!"=="─" (set n6=!n:~21!)

                                set n=!n:  =　!
                        
             if "!num!" == "1" (>>end.htm echo ^<a href="!cd!\" target="_blank"^>!cd!^</a^>^</br^>
) else (                        >>end.htm echo ^<a href="!cd!\!n1!\!n2!\!n3!\!n4!\!n5!\!n6!" target="_blank"^>!n!^</a^>^</br^> )

)
for /f "delims=" %%i in (end.htm) do (
                                        set x=%%i
                                               for /l %%a in (1,1,5) do (
                                                                   set x=!x:\\=\!        
                                        )
                                        echo !x!>>tree.htm
)
endlocal

del end.htm
start tree.htm

[ Last edited by zh159 on 2007-4-13 at 11:08 AM ]

太强了,相当实用,十二分感谢!!^_^

牛帖`不支持对不起楼主~

果然很强！佩服
抄下来学习！

第1楼　electronixtar	发表于 2006-06-21 21:28
铂金会员　发帖 2,672　积分 7,493
[转贴]cmd脚本----tree命令的htm版 cmd脚本----tree命令的htm版 http://bbs.et8.net/bbs/showthread.php?t=673085 2005.7.3更新进入目录，一层层点，嫌烦 tree命令只给看看。。不给点。。。我就是要点 tree命令的htm版 htm,css都没搞过，现学的，高手奸笑了根目录下运行，测试，保存为tree_htm.cmd运行代码: @echo off del tree.htm 2>nul echo ===============tree命令的htm版=============== echo. echo by hitme 2005.7.3 hitme@xiahaixiao.com echo. echo 可直接点击进入6层内目录，完美主义者请自行修改 echo ============================================= echo. echo 请稍候............. >end.htm echo ^<head^> >>end.htm echo ^<meta http-equiv="Content-Type" content="text/html^; charset=gb2312" ^/^> >>end.htm echo ^<style type="text/css"^> >>end.htm echo ^<!-- >>end.htm echo a:active { text-decoration: none ; color: red ; font-size: 12pt } >>end.htm echo a:visited { text-decoration: none ; color: green ; font-size: 12pt } >>end.htm echo a:link { text-decoration: none ; font-size: 12pt } >>end.htm echo --^> >>end.htm echo ^</style^> >>end.htm echo ^</head^> >>end.htm echo ^<body^> setlocal ENABLEDELAYEDEXPANSION for /f "skip=2 delims=" %%i in ('tree') do ( set n=%%i if "!n:~1,1!"==":" set n0=!n:~0,2! if "!n:~1,1!"=="─" (set n1=!n:~2! set n2= set n3= set n4= set n5= set n6= set n7=) if "!n:~4,1!"=="─" (set n2=!n:~5! set n3= set n4= set n5= set n6= set n7=) if "!n:~5,1!"=="─" (set n2=!n:~6! set n3= set n4= set n5= set n6= set n7=) if "!n:~7,1!"=="─" (set n3=!n:~8! set n4= set n5= set n6= set n7=) if "!n:~8,1!"=="─" (set n3=!n:~9! set n4= set n5= set n6= set n7=) if "!n:~9,1!"=="─" (set n3=!n:~10! set n4= set n5= set n6= set n7=) if "!n:~10,1!"=="─" (set n4=!n:~11! set n5= set n6= set n7=) if "!n:~11,1!"=="─" (set n4=!n:~12! set n5= set n6= set n7=) if "!n:~12,1!"=="─" (set n4=!n:~13! set n5= set n6= set n7=) if "!n:~13,1!"=="─" (set n5=!n:~14! set n6= set n7=) if "!n:~14,1!"=="─" (set n5=!n:~15! set n6= set n7=) if "!n:~15,1!"=="─" (set n5=!n:~16! set n6= set n7=) if "!n:~16,1!"=="─" (set n5=!n:~17! set n6= set n7=) if "!n:~17,1!"=="─" (set n6=!n:~18!) if "!n:~18,1!"=="─" (set n6=!n:~19!) if "!n:~19,1!"=="─" (set n6=!n:~20!) if "!n:~20,1!"=="─" (set n6=!n:~21!) set n=!n: =^ ! >>end.htm echo ^<a href="!n0!\!n1!\!n2!\!n3!\!n4!\!n5!\!n6!" target="_blank"^>!n!^</a^> >>end.htm echo ^</br^> ) for /f "delims=" %%i in (end.htm) do ( set x=%%i for /l %%a in (1,1,5) do ( set x=!x:\\=\! ) echo !x!>>tree.htm ) endlocal del end.htm start tree.htm 一直PF CCF上天神的编程风格 [ Last edited by electronixtar on 2006-6-21 at 21:29 ]

第2楼　wl00560	发表于 2006-06-23 17:07
银牌会员　发帖 709　积分 1,384
要注册，下载不了，能不能传到这儿来？

第3楼　xldos	发表于 2007-04-12 22:42
新手上路　发帖 7　积分 16
在根目录下执行可以，把它放在子目录里执行，生成html文件，里边的链接是错的，它把子目录的文件都当成是在根目录了

第4楼　airosp	发表于 2007-04-12 23:54
初级用户　发帖 41　积分 99
CCF咋老不收新人……

第5楼　fanglor	发表于 2007-04-13 15:45
初级用户　发帖 30　积分 68
跟三楼说的是一个情况。不在根目录下链接无效。看看楼主能不能改进一哈。

第6楼　zh159	发表于 2007-04-13 23:56
金牌会员　发帖 1,467　积分 3,687
改了一下，试过可以在任意目录（某些含有“!”的目录不行） @echo off@echo off del tree.htm 2>nul echo ===============tree命令的htm版=============== echo. echo by hitme 2005.7.3 hitme@xiahaixiao.com echo. echo 可直接点击进入6层内目录，完美主义者请自行修改 echo ============================================= echo. echo 请稍候............. >end.htm echo ^<head^> >>end.htm echo ^<meta http-equiv="Content-Type" content="text/html^; charset=gb2312" ^/^> >>end.htm echo ^<style type="text/css"^> >>end.htm echo ^<!-- >>end.htm echo a:active { text-decoration: none ; color: red ; font-size: 12pt } >>end.htm echo a:visited { text-decoration: none ; color: green ; font-size: 12pt } >>end.htm echo a:link { text-decoration: none ; font-size: 12pt } >>end.htm echo --^> >>end.htm echo ^</style^> >>end.htm echo ^</head^> >>end.htm echo ^<body^> setlocal ENABLEDELAYEDEXPANSION for /f "skip=2 delims=" %%i in ('tree') do ( set /a num+=1 set n=%%i if "!n:~1,1!"==":" set n0=!n:~0,2! if "!n:~1,1!"=="─" (set n1=!n:~2! set n2= set n3= set n4= set n5= set n6= set n7=) if "!n:~4,1!"=="─" (set n2=!n:~5! set n3= set n4= set n5= set n6= set n7=) if "!n:~5,1!"=="─" (set n2=!n:~6! set n3= set n4= set n5= set n6= set n7=) if "!n:~7,1!"=="─" (set n3=!n:~8! set n4= set n5= set n6= set n7=) if "!n:~8,1!"=="─" (set n3=!n:~9! set n4= set n5= set n6= set n7=) if "!n:~9,1!"=="─" (set n3=!n:~10! set n4= set n5= set n6= set n7=) if "!n:~10,1!"=="─" (set n4=!n:~11! set n5= set n6= set n7=) if "!n:~11,1!"=="─" (set n4=!n:~12! set n5= set n6= set n7=) if "!n:~12,1!"=="─" (set n4=!n:~13! set n5= set n6= set n7=) if "!n:~13,1!"=="─" (set n5=!n:~14! set n6= set n7=) if "!n:~14,1!"=="─" (set n5=!n:~15! set n6= set n7=) if "!n:~15,1!"=="─" (set n5=!n:~16! set n6= set n7=) if "!n:~16,1!"=="─" (set n5=!n:~17! set n6= set n7=) if "!n:~17,1!"=="─" (set n6=!n:~18!) if "!n:~18,1!"=="─" (set n6=!n:~19!) if "!n:~19,1!"=="─" (set n6=!n:~20!) if "!n:~20,1!"=="─" (set n6=!n:~21!) set n=!n: =　! if "!num!" == "1" (>>end.htm echo ^<a href="!cd!\" target="_blank"^>!cd!^</a^>^</br^> ) else ( >>end.htm echo ^<a href="!cd!\!n1!\!n2!\!n3!\!n4!\!n5!\!n6!" target="_blank"^>!n!^</a^>^</br^> ) ) for /f "delims=" %%i in (end.htm) do ( set x=%%i for /l %%a in (1,1,5) do ( set x=!x:\\=\! ) echo !x!>>tree.htm ) endlocal del end.htm start tree.htm [ Last edited by zh159 on 2007-4-13 at 11:08 AM ]

第7楼　cooray	发表于 2007-11-24 09:24
初级用户　发帖 34　积分 71
太强了,相当实用,十二分感谢!!^_^

第8楼　kaikai163	发表于 2007-11-24 11:53
初级用户　发帖 60　积分 107
太牛X了

第9楼　lac312	发表于 2008-06-19 16:02
新手上路　发帖 8　积分 16
牛帖`不支持对不起楼主~

第10楼　Evangel	发表于 2008-06-19 16:45
初级用户　发帖 95　积分 145
果然很强！佩服抄下来学习！