中国DOS联盟

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]查找本地QQ目录中由数字组成的目录名

9zhenzhi9
新手上路

积分 4
发帖 7
注册 2009-2-27
状态离线

『楼主』: [求助]查找本地QQ目录中由数字组成的目录名

@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.挑选出由数字组成的目录名，写入文本中。
请高手指教。

2009-3-17 00:06

moniuming
银牌会员

永远的菜鸟

积分 1335
发帖 574
注册 2007-11-27
来自广西
状态离线

『第 2 楼』:

@echo off

for /f %%a in ('dir /b/ad "%programfiles%\tencent\qq\*"') do (

  echo.%%a|findstr "^[0-9]*$"

)

pause

2009-3-17 02:02

523066680
银牌会员

SuperCleaner

积分 2362
发帖 1133
注册 2008-2-2
状态离线

『第 3 楼』:

哈哈网吧这边的放在d盘。。。
而系统盘是在c盘 so ....

整个全盘的吧。

[ Last edited by 523066680 on 2009-3-17 at 02:33 ]

此帖被 +1 点积分点击查看详情

综合型编程论坛

我的作品索引

2009-3-17 02:31

(523066680)

moniuming
银牌会员

永远的菜鸟

积分 1335
发帖 574
注册 2007-11-27
来自广西
状态离线

『第 4 楼』:

回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 "^[0-9]*$"

)

pause

此帖被 +1 点积分点击查看详情

2009-3-17 02:53

9zhenzhi9
新手上路

积分 4
发帖 7
注册 2009-2-27
状态离线

『第 5 楼』: 谁可以照我的思路改进一下，谢谢

@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 "^[0-9]*$">>c:\qqshu.txt)
)
pause

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

[ Last edited by 9zhenzhi9 on 2009-3-17 at 04:20 ]

2009-3-17 04:17

26933062
银牌会员

积分 2268
发帖 879
注册 2006-12-19
状态离线

『第 6 楼』:

@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 "[^0-9]"')do echo %QQPath%%%a

)

pause

[ Last edited by 26933062 on 2009-3-17 at 04:37 ]

致精致简！

2009-3-17 04:35

tireless
银牌会员

积分 2025
发帖 1122
注册 2007-9-5
状态离线

『第 7 楼』:

@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 "^[0-9]*$"

  pause & del tmp.reg & exit /b

)

此帖被 +5 点积分

点击查看详情

2009-3-17 08:29

zerayro
新手上路

积分 10
发帖 7
注册 2009-4-4
状态离线

『第 8 楼』:

最上面那句是什么意思？

2009-4-5 05:11

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

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

论坛跳转: