从文本中提取字符串

2011xiaobing

有一文本：
HKEY_LOCAL_MACHINE\myapp\Classes\ActivatableClasses\Package\winstore_1.0.0.0_neutral_neutral_cw5n1h2txyewy\Server\Windows.Store 2013/04/02 11:52
  ExePath = C:\Windows\System32\WWAHost.exe.
HKEY_LOCAL_MACHINE\myapp\Classes\AppID\{534A1E02-D58F-44f0-B58B-36CBED287C7C} 2013/04/02 11:52
  DllSurrogate = C:\Windows\System32\prevhost.exe.
HKEY_LOCAL_MACHINE\myapp\Classes\AppID\{E15FBAC2-C276-4523-92CA-561456EBCF3E} 2013/04/02 11:52
  DllSurrogate = C:\Windows\System32\PrintDialogHost.exe.
HKEY_LOCAL_MACHINE\myapp\Classes\Application.Manifest 2013/04/02 11:52
  FriendlyTypeName = @C:\Windows\System32\dfshim.dll,-200.
HKEY_LOCAL_MACHINE\myapp\Classes\Application.Manifest\DefaultIcon 2013/04/02 11:52
  ? = C:\Windows\System32\dfshim.dll,1.
HKEY_LOCAL_MACHINE\myapp\Classes\Application.Manifest\shell\open\command 2013/04/02 11:52
  ? = "C:\Windows\System32\rundll32.exe" "C:\Windows\System32\dfshim.dll",Sh...
HKEY_LOCAL_MACHINE\myapp\Classes\Application.Reference 2013/04/02 11:52
  FriendlyTypeName = @C:\Windows\System32\dfshim.dll,-201.
HKEY_LOCAL_MACHINE\myapp\Classes\Application.Reference\shell\open\command 2013/04/02 11:52
  ? = "C:\Windows\System32\rundll32.exe" "C:\Windows\System32\dfshim.dll",Sh...
HKEY_LOCAL_MACHINE\myapp\Classes\Applications\iexplore.exe\shell\open\command 2013/04/02 11:52
  ? = "C:\Program Files\Internet Explorer\iexplore.exe" %1.
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\21690A61-3629-4E3B-A72D-BBC8A88DB81F 2013/04/02 11:52
  LocalizedString = @C:\Windows\System32\wuapi.dll,-63528.
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\{0000002F-0000-0000-C000-000000000046}\InprocServer32 2013/04/02 11:52
  ? = C:\Windows\System32\oleaut32.dll.
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\{00000507-0000-0010-8000-00AA006D2EA4}\InprocServer32 2013/04/02 11:52
  ? = C:\Program Files\Common Files\System\ado\msado15.dll.
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\{0000050B-0000-0010-8000-00AA006D2EA4}\InprocServer32 2013/04/02 11:52
  ? = C:\Program Files\Common Files\System\ado\msado15.dll.
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\{00000514-0000-0010-8000-00AA006D2EA4}\InprocServer32 2013/04/02 11:52
  ? = C:\Program Files\Common Files\System\ado\msado15.dll.
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\{00000535-0000-0010-8000-00AA006D2EA4}\InprocServer32 2013/04/02 11:52
  ? = C:\Program Files\Common Files\System\ado\msado15.dll.
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\{00000541-0000-0010-8000-00AA006D2EA4}\InprocServer32 2013/04/02 11:52
  ? = C:\Program Files\Common Files\System\ado\msado15.dll.
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\{00000542-0000-0010-8000-00AA006D2EA4}\InprocServer32 2013/04/02 11:52
  ? = C:\Program Files\Common Files\System\ado\msado15.dll.
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\{00000560-0000-0010-8000-00AA006D2EA4}\InprocServer32 2013/04/02 11:52
  ? = C:\Program Files\Common Files\System\ado\msado15.dll.
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\{00000566-0000-0010-8000-00AA006D2EA4}\InprocServer32 2013/04/02 11:52
  ? = C:\Program Files\Common Files\System\ado\msado15.dll.
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\{00000602-0000-0010-8000-00AA006D2EA4}\InprocServer32 2013/04/02 11:52
。。。。。。。。。。。。。。。。。。。。。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
要求：
提取出这样的字符串：
HKEY_LOCAL_MACHINE\myapp\Classes\ActivatableClasses\Package\winstore_1.0.0.0_neutral_neutral_cw5n1h2txyewy\Server\Windows.Store

HKEY_LOCAL_MACHINE\myapp\Classes\AppID\{534A1E02-D58F-44f0-B58B-36CBED287C7C}
HKEY_。。。。。
HKEY_。。。。。
HKEY_LOCAL_MACHINE\myapp\Classes\CLSID\{0000002F-0000-0000-C000-000000000046}\InprocServer32
。。。。。。。。。。

存入一文本中
当然，能把这些从注册表导出为一个注册表文件更好！

谢谢谢谢！！！！！！

dos时代菜鸟

大致如下：

找出 x.txt 中 包含 HKEY_LOCAL_MACHINE 的语句的第一部分。

for /f "tokens=1 delims= " %c in ('find "HKEY_LOCAL_MACHINE" /i  x.txt') do echo %c

2011xiaobing

谢谢尊敬的 dos时代菜鸟 大师！！！
按大师指导，第一问题已完美解决。谢谢！
但导出注册表还没搞定，还想敬请大师出手！

HKEY_LOCAL_MACHINE\org-Soft\Classes\ActivatableClasses\Package\winstore_1.0.0.0_neutral_neutral_cw5n1h2txyewy\Server\Windows.Store
HKEY_LOCAL_MACHINE\org-Soft\Classes\AppID\{534A1E02-D58F-44f0-B58B-36CBED287C7C}
HKEY_LOCAL_MACHINE\org-Soft\Classes\AppID\{E15FBAC2-C276-4523-92CA-561456EBCF3E}
HKEY_LOCAL_MACHINE\org-Soft\Classes\Application.Manifest
HKEY_LOCAL_MACHINE\org-Soft\Classes\Application.Manifest\DefaultIcon
HKEY_LOCAL_MACHINE\org-Soft\Classes\Application.Manifest\shell\open\command
HKEY_LOCAL_MACHINE\org-Soft\Classes\Application.Reference
HKEY_LOCAL_MACHINE\org-Soft\Classes\Application.Reference\shell\open\command
HKEY_LOCAL_MACHINE\org-Soft\Classes\Applications\iexplore.exe\shell\open\command
HKEY_LOCAL_MACHINE\org-Soft\Classes\CLSID\21690A61-3629-4E3B-A72D-BBC8A88DB81F
HKEY_LOCAL_MACHINE\org-Soft\Classes\CLSID\{0000002F-0000-0000-C000-000000000046}\InprocServer32
HKEY_LOCAL_MACHINE\org-Soft\Classes\CLSID\{00000507-0000-0010-8000-00AA006D2EA4}\InprocServer32
HKEY_LOCAL_MACHINE\org-Soft\Classes\CLSID\{0000050B-0000-0010-8000-00AA006D2EA4}\InprocServer32
HKEY_LOCAL_MACHINE\org-Soft\Classes\CLSID\{00000514-0000-0010-8000-00AA006D2EA4}\InprocServer32

2011xiaobing

长话短说：我本想从注册表把含有字符 “C:\ ” 导出为：

。。。。。。。。。
[HKEY_LOCAL_MACHINE\org-SOFT\Classes\AppID\{E15FBAC2-C276-4523-92CA-561456EBCF3E}]
"DllSurrogate"="C:\\Windows\\System32\\PrintDialogHost.exe"

[HKEY_LOCAL_MACHINE\org-SOFT\Classes\Application.Manifest]
"FriendlyTypeName"="@C:\\Windows\\System32\\dfshim.dll,-200"

[HKEY_LOCAL_MACHINE\org-SOFT\Classes\Application.Manifest\DefaultIcon]
@="C:\\Windows\\System32\\dfshim.dll,1"

[HKEY_LOCAL_MACHINE\org-SOFT\Classes\Application.Manifest\shell\open\command]
@="\"C:\\Windows\\System32\\rundll32.exe\" \"C:\\Windows\\System32\\dfshim.dll\",ShOpenVerbApplication %1"

[HKEY_LOCAL_MACHINE\org-SOFT\Classes\Application.Reference]
"FriendlyTypeName"="@C:\\Windows\\System32\\dfshim.dll,-201"
。。。。。。。。
但用软件导出却成了一楼的造型，显然不是我要的。
敬请大师指导，怎样导出我需要的注册表！
谢谢！

dos时代菜鸟

用 registry workshop 查找并导出

2011xiaobing

嘿嘿，大师果然厉害！
上面4楼正是用registry workshop软件手工导出的。
我现在想用CMD搞定。盼望大师指点高招！！！

dos时代菜鸟

注册表 中 好像 只有 当 \ 两侧任意一侧存在有  " 的时候 才 单独 出现 ，否则 都是  \\
如果我的假设 成立，就可一用 set 命令的替换功能搞定 。

如果我的假设成立
你 一楼 的 结果 中 可以把  所有 \ 替换成 \\
然后再    把所有  "\\  替换成 "\,把所有  \\"  替换成 \"

zhaoyuxing

换作我就直接用vbs去搞了,命令行可能有些不太方便

2011xiaobing

dos时代菜鸟 发表于 2013-5-8 10:35
注册表 中 好像 只有 当 \ 两侧任意一侧存在有  "  的时候 才 单独 出现 ，否则 都是  \\
如果我的假设 成 ...

感谢 dos时代菜鸟 大师指导！！！
我试试看。

2011xiaobing

zhaoyuxing 发表于 2013-5-8 13:26
换作我就直接用vbs去搞了,命令行可能有些不太方便

vbs也行！但我对vbs 不熟。能否有劳大驾指导一下？先谢！

pznpt

在HKEY_LOCAL_MACHINE\SOFTWARE\ACD Systems中，提取数据包含字串C:\的项，是这个意思吗？
bat试了一下，findstr不争气，提示错误"xx行太长"。整一个vbs试一下

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. Set ws = CreateObject("WScript.Shell")
   
3. Tmp = ws.ExpandEnvironmentStrings("%temp%")
   
4. 
   
5. ws.Run "cmd /creg export ""HKLM\SOFTWARE\ACD Systems"" """&Tmp&"\$$.reg""",0,True
   
6. 
   
7. Set file = fso.OpenTextFile(Tmp & "\$$.reg",1,,-1)
   
8. Do Until file.AtEndOfStream
   
9.    a = file.ReadLine
   
10.    If UCase(Left(a,20)) = "[HKEY_LOCAL_MACHINE" Then b = Mid(a,2,Len(a)-2)
    
11.    If InStr(UCase(a),"C:") <> 0 Then
    
12.       If InStr(UCase(str),UCase(b)&vbCrLf) = 0 Then
    
13.          str = str & b & vbCrLf
    
14.       End If
    
15.    End If
    
16. Loop
    
17. 
    
18. file.Close : Set file = Nothing
    
19. fso.CreateTextFile("Result.txt",True).Write str
    
20. fso.DeleteFile Tmp & "\$$.reg"
    
21. 
    
22. MsgBox "OK"

复制代码

WinXP的reg export 没有 /y开关，改一下

zhaoyuxing

2011xiaobing 发表于 2013-5-8 16:08
vbs也行！但我对vbs 不熟。能否有劳大驾指导一下？先谢！

用vbs里的filesystemobject读取整篇文本,用replace语句逐行替改也行,用正则通篇替改也行

2011xiaobing

再次感谢 pznpt 大师！
原委：
本人想将一注册表里所有的字符"C:\" 全部替换成"X:\"。
承蒙大师不厌其烦，谆谆教诲。本人感激之情，难于言表。
本以为已经解决，后来发现修改结果不理想，还有大量字符没有替换。
只好自己，日夜折腾，几周下来，仍有一些字符没有替换，焦头烂额！
无奈之下，想用 REGFIND 来解决，仍无结果 ！才发本贴求助。
在此请求大师：不论什么方法，只要能自动完成替换就行（不用人工干予）。谢谢！ 谢谢！
现在只剩这几个没有替换：

2011xiaobing

zhaoyuxing 发表于 2013-5-9 12:06
用vbs里的filesystemobject读取整篇文本,用replace语句逐行替改也行,用正则通篇替改也行

谢谢指导！
呵呵，关键是我不会VBS，愿闻其详！