中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS开发编程 & 发展交流 (开发室) » 可与EXT媲美的批文件(原创)
作者:
标题: 可与EXT媲美的批文件(原创) 上一主题 | 下一主题
Lydong
元老会员




积分 1468
发帖 407
注册 2002-10-21
来自 广州
状态 离线
『楼 主』:  可与EXT媲美的批文件(原创)

这是我自己编的一个批处理文件,跟EXTRACT.EXE 放在同一个目录,可以达到与EXT同样的效果,而且可以展开您所要解压的CAB文件。
格式:EXT2     [目标位置(默认为EXT目录)]   [要解压出来的文件名(可写多个)]


EXT2.BAT 内容
===============

@echo off
if "%1"=="/?" goto help
if "%1"=="/h" goto help
if "%1"=="" goto help

goto ext
:help
echo.
echo Extract  *.cab files ...
echo  eg:
echo      EXT2 {source path * } {destination path } [file name ... (N.10) ]
echo      EXT2 {source path *\*.cab } {destination path } [file name ... (N.10) ]
echo      EXT2 {source file *.cab } {destination path }
echo      EXT2 {source file * } {destination path }
echo      EXT2 {source file *.cab }  ; ----- extract files to directory "ext"
echo      EXT2 {source file * }  ; ----- extract files to directory "ext"
set ext=HELP
echo      EXT2 [/?]

goto end
:ext
:  =====================EXT====================
if "%2"=="" goto NoPath
if exist %3 goto WantExtCab
if exist %1.cab goto ExtCab
if exist %1 goto ExtFullName


:ExtCab
if exist %1 for %%I IN (%1) do extract /y /e /l %2\ %%I %3 %4 %5 %6 %7 %8 %8 %9 %10 %10 %11 %12 %13 >nul
if exist %1.cab for %%I IN (%1.cab) do extract /y /e /l %2\ %%I %3 %4 %5 %6 %7 %8 %8 %9 %10 %10 %11 %12 %13  >nul
set ext=ExtCab
goto end


:ExtFullName
if exist %1 for %%I IN (%1) do extract /y /e /l %2\ %%I %3 %4 %5 %6 %7 %8 %8 %9 %10 %10 %11 %12 %13 >nul
if exist %1.cab for %%I IN (%1.cab) do extract /y /e /l %2\ %%I %3 %4 %5 %6 %7 %8 %8 %9 %10 %10 %11 %12 %13 >nul
set ext=ExtFullName

goto end


:WantExtCab
if exist %1 for %%I IN (%1) do extract /y /e /l %2\ %%I %3 %4 %5 %6 %7 %8 %8 %9 %10 %10 %11 %12 %13 >nul
if exist %1.cab for %%I IN (%1.cab) do extract /y /e /l %2\ %%I %3 %4 %5 %6 %7 %8 %8 %9 %10 %10 %11 %12 %13 >nul
set ext=WantExtCab

goto end


:NoPath
if exist %1.cab for %%I IN (%1.cab) do extract /y /e /l ext %%I  >nul
if exist %1 for %%I IN (%1) do extract /y /e /l ext %%I >nul
set ext=NoPath

goto end


:error
echo.
echo Not exist %1 files or Invalid directory ...
echo.
goto end


:end
echo.
ECHO OK! ^_^
echo extract file %3 %4 %5 %6 %7 %8 %8 %9 %10 %10 %11 %12 %13
echo.

[程序结束]


各位请调试一下,并给点意见!



欢迎大家观临我的个人主页:

      http://dosdiy.bluepc.com.cn/
      http://dosdiy.ys168.com/


EMAIL: lydong@china.com.cn    lydong@yeah.net
----------------------------------------------
2002-11-7 00:00
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (89677127)  编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: