无忧启动论坛

 找回密码
 注册
搜索
最纯净的「微PE装机优盘」UEPON大师作品系统gho:最纯净好用系统下载站数据恢复、数据保护、视频编辑
Win To Go 极致利器(IXUNCIS固态U盘)无忧启动网成立20周年!广告联系 QQ:184822951 微信:wuyouceo
查看: 4126|回复: 9

终于成功通过"递减和递增"简化了简易DOS浏览器!!!

[复制链接]
发表于 2005-4-29 01:36:00 | 显示全部楼层 |阅读模式
[这个贴子最后由gotomsdos在 2005/04/29 08:23pm 第 4 次编辑]

终于成功地运用了DOS的变量嵌套!从而解决了通过"递减和递增"简化了我刚写的WBAT的简易DOS浏览器!!!

"递减和递增"简化是最简化的...(写出来的变量只用了区区三个!!,小小WBAT和GET!就实现了浏览几乎无限制的深层目录及其文件!,也可顺带编辑文本文件,执行可执行程序,批处理程序,也可随时把用户的目录赋给一个变量....麻雀虽小,五脏具全..并且支持带间隔的长名目录和中文!) 共大家参考,尤其是学习WBAT和GET的...相信会有很大帮助的!..

很满意! 再次感谢WILLSORT!

简化了的WBAT如下:(DOS71下测试成功!) 要求: 加载DOSLFN,正确加载TW
@echo off
goto begin
:dirbars "上一级—→"[x]
[退  出]
[预  选]
[看文件]
[看目录]
:
:filebars "   上一级—→"[x]
[退  出]
[运行批处理文件]
[运行可执行文件]
[编辑文本文件]
[查看文件信息]
:
:begin
if exist drive.txt goto drive
wbat cls ! box "没有驱动器!" 退出
goto end
:drive
call w.bat list drive.txt
if errorlevel 100 goto end
:putdisk
if not exist notready.nst goto init1
find /i "%wbat%" notready.nst>nul
if errorlevel 1 goto init1
wbat box "您还没有在%wbat%盘放入盘片!" 重试
call diskfind
goto putdisk
:init1
set get=1
set dir%get%=%wbat%
:dirb
wbat box @%0:dirbars
if errorlevel 100 goto sub1
if errorlevel 4 goto dir
if errorlevel 3 goto file
if errorlevel 2 goto pick
goto end
:dir
if %get%==0 goto drive
if %get%==1 goto rootdir
echo @echo off>nestvar.bat
echo dir "%%dir%get%%%" /b/ad/one>>nestvar.bat
command /c call nestvar>put.nst
goto subdir
:rootdir
dir %dir1%\ /b/ad/one>put.nst
:subdir
get f put.nst /vfsize>nul
if not "%fsize%"=="0" goto havedir
wbat box "没有子目录!" 上一级,退出
if errorlevel 2 goto end
goto dirb
:havedir
call w.bat list put.nst
if errorlevel 100 goto dirb
get r "+" %get% /w1 /vgetadd1>nul
echo @echo off>nestvar.bat
echo set dir%getadd1%=%%dir%get%%%\%wbat%>>nestvar.bat
call nestvar
wbat box @%0:dirbars
if errorlevel 100 goto havedir
if errorlevel 4 goto diradd1
if errorlevel 3 goto fileadd1
if errorlevel 2 goto pickadd1
goto end
:file
if %get%==1 goto rootfile
echo @echo off>nestvar.bat
echo dir "%%dir%get%%%" /b/a-d/one>>nestvar.bat
command /c call nestvar>put.nst
goto subfile
:rootfile
dir %dir1%\ /b/a-d/one>put.nst
:subfile
get f put.nst /vfsize>nul
if not "%fsize%"=="0" goto havefile
wbat box "没有文件!" 上一级,退出
if errorlevel 2 goto end
goto dirb
:havefile
call w.bat list put.nst
if errorlevel 100 goto dirb
:fileb
wbat box @%0:filebars
if errorlevel 100 goto havefile
if errorlevel 5 goto info
if errorlevel 4 goto text
if errorlevel 3 goto exec-bat
if errorlevel 2 goto exec-bat
goto end
:info
echo @echo off>nestvar.bat
echo dir "%%dir%get%%%\%wbat%" /a>>nestvar.bat
command /c call nestvar>putfile.nst
wbat list putfile.nst
goto fileb
:text
echo @echo off>nestvar.bat
echo edit "%%dir%get%%%\%wbat%">>nestvar.bat
call nestvar
goto fileb
:exec-bat
echo @echo off>nestvar.bat
echo "%%dir%get%%%\%wbat%">>nestvar.bat
call nestvar
goto fileb
:pick
echo @echo off>nestvar.bat
echo set gamesave=%%dir%get%%%>>nestvar.bat
call nestvar
goto end
:sub1
get r "-" %get% /w1>nul
goto dir
:diradd1
get r "+" %get% /w1>nul
goto dir
:fileadd1
get r "+" %get% /w1>nul
goto file
:pickadd1
get r "+" %get% /w1>nul
goto pick
:end
for %%a in (nestvar.bat put.nst putfile.nst) do if exist %%a del %%a
发表于 2005-4-29 17:19:38 | 显示全部楼层

终于成功通过"递减和递增"简化了简易DOS浏览器!!!

能否贴张执行命令后的效果图来看看。
回复

使用道具 举报

 楼主| 发表于 2005-4-29 21:37:23 | 显示全部楼层

终于成功通过"递减和递增"简化了简易DOS浏览器!!!

好啊,但现在好象不能上传..
回复

使用道具 举报

发表于 2005-4-29 21:37:56 | 显示全部楼层

终于成功通过"递减和递增"简化了简易DOS浏览器!!!

    还是发个图片的介绍比较直观些!
回复

使用道具 举报

发表于 2005-4-29 22:44:07 | 显示全部楼层

终于成功通过"递减和递增"简化了简易DOS浏览器!!!

支持WBAT原创,但实用意义不大,小的有list.com,大一点的edit.com,都是很好的编辑器。
回复

使用道具 举报

 楼主| 发表于 2005-4-29 23:16:16 | 显示全部楼层

终于成功通过"递减和递增"简化了简易DOS浏览器!!!

[这个贴子最后由gotomsdos在 2005/04/30 02:10pm 第 2 次编辑]

这个独立出来对于公众当然不是很商用!
但是它是我的一个主程序(综合DOS游戏光盘)中的一个子程序,如果调用第三方程序的话,不能完全适合我的主程序,所以还是自己编才最适合,对我的主程序来说就是实用的.当然也附带加了一些小功能吧 同时也是为了学习运用WBAT和GET,学习处理程序问题的思路!

回复

使用道具 举报

发表于 2005-4-30 13:53:37 | 显示全部楼层

终于成功通过"递减和递增"简化了简易DOS浏览器!!!

嗯.好,支持原创
回复

使用道具 举报

 楼主| 发表于 2005-4-30 14:13:25 | 显示全部楼层

终于成功通过"递减和递增"简化了简易DOS浏览器!!!

刚才又简化了一点.
等一会帖上来
回复

使用道具 举报

发表于 2005-5-20 20:07:01 | 显示全部楼层

终于成功通过"递减和递增"简化了简易DOS浏览器!!!

好啊!支持!
回复

使用道具 举报

 楼主| 发表于 2005-5-20 21:18:32 | 显示全部楼层

终于成功通过"递减和递增"简化了简易DOS浏览器!!!

好啊! 贴图在此!:
http://bbs.wuyou.net/cgi-bin/topic.cgi?forum=34&topic=8954&show=0
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2021-1-20 12:24

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表