联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
@echo off&color 9f set n=1 for /f "delims= " %%i in ('help') do set str=%%i&call :lp %%str%% :select cls&echo %var1%&echo %var2%&echo %var3%&echo %var4%&echo %var5% set select=0 set /p select=请选择要读取帮助的命令序号: for /l %%i in (1,1,71) do if "%%i"=="%select%" goto show echo 请正确选择。&ping /n 2 127.1>nul&goto select :show setlocal enabledelayedexpansion set /a a=%select%%%16,b=select/17+1 if %a% equ 0 set a=16 set list=!!var%b%!! for /f "tokens=%a% delims= " %%i in ("%list%") do set str=%%i set str=%str:*.=% cls&echo %str%命令的帮助内容如下:&echo. %str% /? | more endlocal&pause>nul&goto :select :lp for %%i in (a b c d e f g h i l m p r s t v x) do if /i "%%i"=="%str:~,1%" goto loop goto :eof :loop set /a m+=1,v+=1 set var=%var% %v%.%str% set var%n%=%var% if %m% equ 16 set var=&set /a m-=16,n+=1
@echo off&set "ko= " setlocal enabledelayedexpansion for /f "delims= " %%a in ('help^|findstr /i "^[a-z]"') do ( set /a n+=1&set _!n!=%%a!ko! ) set _72=共71个命令 :loop color 1f&title cmd 命令帮助 for /l %%a in (1 3 !n!) do ( set /a t=%%a+1,s=t+1 if !t! lss 10 (set l=0) else set "l=" call echo !l!%%a. !_%%a:~0,20! !l!!t!. %%_!t!:~0,20%% !l!!s!. %%_!s!:~0,10%% ) set /p m=请输入编号查询相应命令帮助:&cls set /a m=100!m!%%100 call set ok=%%_!m!%% title %ok:~0,10% 命令帮助&color 1e %ok% /? | more color 5a&echo.&echo 按任意键回主菜单。。。 pause>nul cls&goto loop
::code zh159@bbs.cn-dos.net 2008-4-26 @echo off title 命令提示符-命令行帮助信息生成器 - code zh159@bbs.cn-dos.net 2008-4-26 set Name=命令行帮助信息 echo. echo 请稍等... >%Name%.hta echo ^<html^> >>%Name%.hta echo ^<title^>命令提示符-命令行帮助信息 - code zh159@bbs.cn-dos.net 2008-4-26^</title^> >>%Name%.hta echo ^<HTA:APPLICATION >>%Name%.hta echo APPLICATIONNAME="命令提示符-命令行帮助信息" >>%Name%.hta echo SCROLL="no" >>%Name%.hta echo INNERBORDER="no" >>%Name%.hta echo /^> >>%Name%.hta echo ^<script language="VBScript"^> >>%Name%.hta echo window.resizeTo 900, 660 >>%Name%.hta echo ileft=(window.screen.width-900)/2 >>%Name%.hta echo itop=(window.screen.height-660)/2-15 >>%Name%.hta echo window.moveTo ileft,itop >>%Name%.hta echo ^</script^> >>%Name%.hta echo ^<style^> >>%Name%.hta echo a:link {color: #000000; font:18px Tahoma; text-decoration:none;} >>%Name%.hta echo a:visited {color: #000000; font:18px Tahoma; text-decoration:none;} >>%Name%.hta echo a:hover {color: #ffffff; background-color:0000ff;} >>%Name%.hta echo a:active {color: #ff0000; background-color:ffffff;} >>%Name%.hta echo em {font:18px Tahoma; color:0000ff;}^</style^> >>%Name%.hta echo ^</style^> >>%Name%.hta echo ^<body style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);color:#ffffff;"^> >>%Name%.hta echo ^<table width="100%%" height="100%%" align="center" border="0" cellspacing="0" cellpadding="1" style="border: solid 1 #ffffff;"^> >>%Name%.hta echo ^<tr^> >>%Name%.hta echo ^<td width="120" height="100%%"^> >>%Name%.hta echo ^<span style="width:100%%;height:100%%; overflow-y: auto;"^> >>%Name%.hta echo ^<table align="left"^>^<tr^>^<td^> >>%Name%.hta echo 命令列表^<br^> echo. for /f %%i in ('help^|findstr /i "^[a-z]"') do ( set/a n+=1 call set/p= 共 %%n%% 个命令,正在处理...<nul set /p=<nul >>%Name%.hta echo. ^<a href="#%%i"^>%%i^</a^>^<br^> ) >>%Name%.hta echo ^<td^>^<tr^>^</table^> >>%Name%.hta echo ^</span^> >>%Name%.hta echo ^</td^> >>%Name%.hta echo ^<td^> >>%Name%.hta echo ^<span style="width:100%%;height:100%%; overflow-y: auto;"^> >>%Name%.hta echo ^<table align="left" style="font:15px Fixedsys;"^>^<tr^>^<td^> echo.&echo. echo 序号 - 命令名称 for /f %%i in ('help^|findstr /i "^[a-z]"') do ( set/a m+=1 call echo %%m%%. - %%i >>%Name%.hta echo ^</p^>^<a name="#%%i"^>^</a^>^<em^>^<u^>%%i^</u^>^</em^>^<br^> for /f "delims=" %%f in ('%%i/?') do ( set "str=%%f" setlocal EnableDelayedExpansion set str=!str: = ! set str=!str:^<=^<! set str=!str:^>=^>! >>%Name%.hta echo. !str!^<br^> endlocal ) ) >>%Name%.hta echo ^<td^>^<tr^>^</table^> >>%Name%.hta echo ^</span^> >>%Name%.hta echo ^</td^> >>%Name%.hta echo ^</tr^> >>%Name%.hta echo ^</table^> >>%Name%.hta echo ^</body^> >>%Name%.hta echo ^</html^> echo. echo 完成!按任意键打开“%Name%.hta”。 pause>nul start %Name%.hta exit
::code zh159@bbs.cn-dos.net 2008-4-26 @echo off title 命令提示符-命令行帮助信息生成器 - code zh159@bbs.cn-dos.net 2008-4-26 set Name=命令行帮助信息 echo. echo 请稍等... >%Name%.hta echo ^<html^> >>%Name%.hta echo ^<title^>命令提示符-命令行帮助信息 - code zh159@bbs.cn-dos.net 2008-4-26^</title^> >>%Name%.hta echo ^<HTA:APPLICATION >>%Name%.hta echo APPLICATIONNAME="命令提示符-命令行帮助信息" >>%Name%.hta echo SCROLL="no" >>%Name%.hta echo INNERBORDER="no" >>%Name%.hta echo /^> >>%Name%.hta echo ^<script language="VBScript"^> >>%Name%.hta echo window.resizeTo 900, 660 >>%Name%.hta echo ileft=(window.screen.width-900)/2 >>%Name%.hta echo itop=(window.screen.height-660)/2-15 >>%Name%.hta echo window.moveTo ileft,itop >>%Name%.hta echo ^</script^> >>%Name%.hta echo ^<style^> >>%Name%.hta echo a:link {color: #000000; font:18px Tahoma; text-decoration:none;} >>%Name%.hta echo a:visited {color: #000000; font:18px Tahoma; text-decoration:none;} >>%Name%.hta echo a:hover {color: #ffffff; background-color:0000ff;} >>%Name%.hta echo a:active {color: #ff0000; background-color:ffffff;} >>%Name%.hta echo em {font:18px Tahoma; color:0000ff;}^</style^> >>%Name%.hta echo ^</style^> >>%Name%.hta echo ^<body style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);color:#ffffff;"^> >>%Name%.hta echo ^<table width="100%%" height="100%%" align="center" border="0" cellspacing="0" cellpadding="1" style="border: solid 1 #ffffff;"^> >>%Name%.hta echo ^<tr^> >>%Name%.hta echo ^<td width="120" height="100%%"^> >>%Name%.hta echo ^<span style="width:100%%;height:100%%; overflow-y: auto;"^> >>%Name%.hta echo ^<table align="left"^>^<tr^>^<td^> >>%Name%.hta echo 命令列表^<br^> echo. for /f %%i in ('help^|findstr /i "^[a-z]"') do ( set/a n+=1 call set/p= 共 %%n%% 个命令,正在处理...<nul set /p=<nul >>%Name%.hta echo. ^<a href="#%%i"^>%%i^</a^>^<br^> ) >>%Name%.hta echo ^<td^>^<tr^>^</table^> >>%Name%.hta echo ^</span^> >>%Name%.hta echo ^</td^> >>%Name%.hta echo ^<td^> >>%Name%.hta echo ^<span style="width:100%%;height:100%%; overflow-y: auto;"^> >>%Name%.hta echo ^<table align="left" style="font:15px Fixedsys;"^>^<tr^>^<td^> echo.&echo. echo 序号 - 命令名称 for /f %%i in ('help^|findstr /i "^[a-z]"') do ( set/a m+=1 rem call echo %%m%%. - %%i setlocal EnableDelayedExpansion set /p= <nul&set /p= <nul>"!m!. - %%i"&findstr /a:c .* "!m!. - %%i*" 2>nul&set /p=<nul endlocal >>%Name%.hta echo ^</p^>^<a name="#%%i"^>^</a^>^<em^>^<u^>%%i^</u^>^</em^>^<br^> for /f "delims=" %%f in ('%%i/?') do ( set "str=%%f" setlocal EnableDelayedExpansion set str=!str: = ! set str=!str:^<=^<! set str=!str:^>=^>! >>%Name%.hta echo. !str!^<br^> endlocal ) setlocal EnableDelayedExpansion set /p= <nul&findstr /a:a .* "!m!. - %%i*" 2>nul&echo.&del /q "!m!. - %%i" 2>nul endlocal ) >>%Name%.hta echo ^<td^>^<tr^>^</table^> >>%Name%.hta echo ^</span^> >>%Name%.hta echo ^</td^> >>%Name%.hta echo ^</tr^> >>%Name%.hta echo ^</table^> >>%Name%.hta echo ^</body^> >>%Name%.hta echo ^</html^> echo. echo 完成!按任意键打开“%Name%.hta”。 pause>nul start %Name%.hta exit
Originally posted by zh159 at 2008-4-26 09:55 AM: 来个生成hta的,以后用鼠标点击就可以了^_^ [code]::code zh159@bbs.cn-dos.net 2008-4-26 @echo off title 命令提示符-命令行帮助信息生成器 - code zh159@bbs.cn-dos.net ...