中国DOS联盟

相信论坛上有很多,但都不完整,
大家帮忙统合
还有我是入门级的,莫见笑

@echo off
color 3f
cls
:1

title 文件查找工具 by-junchen2 date-2007-09-28
del /q E:\findfile
set /p var=n/e/p/o
for /f "tokens=1-4 delims=/" %%a in ("%var%") do call :f "%%a" "%%b" "%%~sc" %%d

:f

if "%~1"=="" echo 参数缺少请再一次输入 & goto :1
if "%~2"=="" echo 参数缺少请再一次输入 & goto :1
if "%~3"=="" echo 参数缺少请再一次输入 & goto :1
if "%~4"=="" echo 参数缺少请再一次输入 & goto :1

cd\
cd /d %3

dir /b /s /a %~1.%~2>> e:\findfile\list.txt
if errorlevel 1 goto :n
for /f "delims=" %%d in (e:\findfile\list.txt) do echo %%~sd >>e:\findfile\s_list.txt

@for /f "delims=" %%e in (e:\findfile\s_list.txt) do echo %%~dpe>>e:\findfile\sp_list.txt

type e:\findfile\list.txt|findstr /n ".*" >>e:\findfile\n_list.txt
type e:\findfile\s_list.txt|findstr /n ".*" >>e:\findfile\sn_list.txt
type e:\findfile\sp_list.txt|findstr /n ".*" >>e:\findfile\spn_list.txt
::-----------^^^将长短名文件列表加入行号输出n_list.txt ，sn_list.txt

cls
echo.
echo %~1/%~2/%~3/%4
echo.
findstr /a:a /n ".*" e:\findfile\list.txt

:c
set /p nub= 输入查找的行号 ：

if %4 equ a goto :a
if %4 equ s goto :s
:a
@for /f "tokens=1-3 delims=:" %%a in ('type e:\findfile\sn_list.txt') do echo %%a|findstr "\<%nub%" &&start %%b:%%c && goto :2
:s
@for /f "tokens=1-3 delims=:" %%a in ('type e:\findfile\spn_list.txt') do echo %%a|findstr "\<%nub%" &&start %%b:%%c
:2
set /p c=ind_other input=y
if "%c%"=="y" echo. & goto :1
goto :c

01.查找如 TEST 文件夹 和TEST.EXE

02.获得路径

03.操作

n/e/p/o

n 文件名，可以用通配符。
e 文件扩展名
p 盘符
o 打开方式 打开查找的文件就用s 打开文件所在的文件夹 就用 a

比如 想在 d 盘查找 test.exe

1 。 test/exe/d:/a
或者
2。 test/exe/d:/s

Last edited by junchen2 on 2007-12-1 at 11:28 PM ]