中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-11 15:04
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [求助]查找本地QQ目录中由数字组成的目录名 查看 737 回复 7
楼 主 [求助]查找本地QQ目录中由数字组成的目录名 发表于 2009-03-17 00:06 ·  中国 北京 教育网
新手上路
积分 4
发帖 7
注册 2009-02-27 23:54
17年会员
UID 140140
性别 男
状态 离线
@echo off
setlocal enabledelayedexpansion
set disk=cdefghijklmnopqrstuvwxyz
FOR /L %%i IN (0,1,23) DO (
Call set driver=%%disk:~%%i,1%%
dir /b /s !driver!:\qq.exe &&!driver!:&&for /r . %%a in (.) do (@if exist %%a\QQ.exe @echo %%a>>c:\qqMULU.txt)
)

@echo ***********************>>c:\qqshu.txt
for /f %%q in (c:\qqMULU.txt) do (
set /p dpath=<%%q"
cd !dpath!
pause
for /d %%w in (*) do @echo %%w>>c:\qqshu.txt
@echo ********欢迎使用*********>>c:\qqshu.txt
findstr "^[0-9]*$" c:\qqshu.txt>>c:\qqshu.txt
)

自写批处理无法通过?
1.查找QQ路径
2.查找路径下目录名
3.挑选出由数字组成的目录名,写入文本中。
请高手指教。
2 发表于 2009-03-17 02:02 ·  中国 广东 广州 广东金万邦科技投资有限公司(新一代数据中心)IDC机房(BGP)
银牌会员
★★★
永远的菜鸟
积分 1,335
发帖 574
注册 2007-11-27 12:50
18年会员
UID 103929
性别 男
来自 广西
状态 离线
@echo off
for /f %%a in ('dir /b/ad "%programfiles%\tencent\qq\*"') do (
echo.%%a|findstr "^*$"
)
pause
3 发表于 2009-03-17 02:31 ·  中国 广东 揭阳 电信
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
18年会员
UID 110072
性别 男
状态 离线
哈哈 网吧这边的放在d盘 。。。
而系统盘是在c盘 so ....

整个全盘的吧。

[ Last edited by 523066680 on 2009-3-17 at 02:33 ]
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
+1 2009-04-08 00:24
4 发表于 2009-03-17 02:53 ·  中国 广东 广州 广东金万邦科技投资有限公司(新一代数据中心)IDC机房(BGP)
银牌会员
★★★
永远的菜鸟
积分 1,335
发帖 574
注册 2007-11-27 12:50
18年会员
UID 103929
性别 男
来自 广西
状态 离线
回exist:
那就查注册表吧:
@echo off
for /f "tokens=2*" %%a in ('reg query "hklm\software\tencent\qq"^|find /i "install"') do (set "qqpth=%%b")
for /f %%a in ('dir /b/ad "%qqpth%\*"') do (
echo.%%a|findstr "^*$"
)
pause
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
9zhenzhi9 +1 2009-03-17 03:10
5 谁可以照我的思路改进一下,谢谢 发表于 2009-03-17 04:17 ·  中国 北京 教育网
新手上路
积分 4
发帖 7
注册 2009-02-27 23:54
17年会员
UID 140140
性别 男
状态 离线
@echo off
setlocal enabledelayedexpansion
set disk=cdefghijklmnopqrstuvwxyz
FOR /L %%i IN (0,1,23) DO (
Call set driver=%%disk:~%%i,1%%
dir /b /s !driver!:\qq.exe>>c:\qqMULU.txt)
)
for /f "delims=*" %%q in (c:\qqMULU.txt) do (
set p=%%~pq
set "c=%%~dq"
!c!
cd !p!
pause
for /d %%w in (*) do (
echo %%w|findstr "^*$">>c:\qqshu.txt)
)
pause

可否照此思路改进一下,使其不用生成临时文本,来存储路径?

[ Last edited by 9zhenzhi9 on 2009-3-17 at 04:20 ]
6 发表于 2009-03-17 04:35 ·  中国 湖南 娄底 电信
银牌会员
★★★
积分 2,268
发帖 879
注册 2006-12-19 16:23
19年会员
UID 73968
性别 男
状态 离线

@echo off&set "QQpath="
for /f "skip=4 tokens=1,2 delims=:" %%a in (
'reg query HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ /v Install'
) do set QQPathL=%%a&set "QQPathR=%%b"
set "QQPath=%QQPathL:~-1%:%QQPathR%"
if exist "%QQPath%.\QQ.exe" (
for /f "delims=" %%a in ('dir/b/ad "%QQPath%"^|findstr /v ""')do echo %QQPath%%%a
)
pause


[ Last edited by 26933062 on 2009-3-17 at 04:37 ]
致精致简!
7 发表于 2009-03-17 08:29 ·  中国 江西 赣州 电信
银牌会员
★★★★
积分 2,025
发帖 1,122
注册 2007-09-05 20:15
18年会员
UID 96653
性别 男
状态 离线
@echo off
reg export HKLM\SOFTWARE\TENCENT\QQ tmp.reg >nul
for /f "skip=3 tokens=1,* delims==" %%a in ('type tmp.reg') do (
dir /ad/b "%%~fb"|findstr "^*$"
pause & del tmp.reg & exit /b
)
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
netbenton +5 2009-03-17 08:36
8 发表于 2009-04-05 05:11 ·  中国 天津 联通
新手上路
积分 10
发帖 7
注册 2009-04-04 04:41
17年会员
UID 142072
性别 男
状态 离线
最上面那句是什么意思?
论坛跳转: