[问题求助] [已解决]---VBS 替换注册表文件中的内容

Rank: 3 Rank: 3

帖子: 122
积分: 251
技术: 1
捐助: 0
注册时间: 2009-8-24

2楼

发表于 2014-10-12 18:09 | 只看该作者

回复 1# yuanyannian
这题似乎有些麻烦？

76626yyn

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

3楼

发表于 2014-10-12 19:14 | 只看该作者

本帖最后由 apang 于 2014-10-12 23:59 编辑

不明白问题2：“其余的都删除”是什么意思

Set fso = CreateObject("Scripting.FileSystemObject")
txt = fso.OpenTextFile("a.txt", 1, , -1).ReadAll

p = "Programs|Start Menu|Desktop|Startup|AppData|Templates|Favorites"
Set re = New RegExp
re.Pattern = "([\s\S]*?)(^"".+"" *=[\s\S]+?)(?=^"")"
re.Global = true
re.MultiLine = true
For Each m in re.Execute(txt)
        s1 = m.SubMatches(0)
        s2 = ReReplace(m.SubMatches(1))
        If m.SubMatches(1) <> s2 Then
                s = s & s1 & s2
        Else s = s & s1
        End If
Next

s1 = "25,00,41,00,4c,00,4c,00,55,00,53,00,45,00,52,00,53,00,"
Set re = New RegExp
re.Pattern = "(hex\(2\):)25,00,55,00,53,00,45,00,52,00,"
re.Global = true
re.IgnoreCase = true
s = re.Replace(s, "$1" & s1)

fso.OpenTextFile("b.txt", 2, true, -1).Write s

Function ReReplace(str)
        Set re = New RegExp
        re.Pattern = """(" & p & ")"""
        re.IgnoreCase = true
        ReReplace = re.Replace(str, """Common $1""")
End Function
复制代码

Rank: 3 Rank: 3

帖子: 122
积分: 251
技术: 1
捐助: 0
注册时间: 2009-8-24

4楼

发表于 2014-10-12 20:02 | 只看该作者

回复 3# apang
意思是除了列出的那些，其它的，比如 “NetHood"、"Personal"、"PrintHood"、"Recent" 等键值都删除。或者说如何删除某个键值。

谢谢 apang 老师！

76626yyn

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

5楼

发表于 2014-10-12 20:15 | 只看该作者

Rank: 3 Rank: 3

帖子: 122
积分: 251
技术: 1
捐助: 0
注册时间: 2009-8-24

6楼

发表于 2014-10-12 20:49 | 只看该作者

本帖最后由 yuanyannian 于 2014-10-12 20:51 编辑

回复 3# apang
好用，谢谢。

是的，是一个意思。

我将代码修改如下：

Set fso = CreateObject("Scripting.FileSystemObject")
txt = fso.OpenTextFile("a.reg", 1, , -1).ReadAll

p = "NetHood|Personal|PrintHood|Recent|SendTo|Cookies|My Pictures"
p1 = p & "|Local Settings|Local AppData|Cache|History"
Set re = New RegExp
re.Pattern = "([\s\S]*?)""(" & p1 & ")""[\s\S]+?(?:"")"
re.Global = true
re.IgnoreCase = true
For Each m in re.Execute(txt)
    str = str & """" & m.SubMatches(0)
Next
txt = Mid(str, 2)

p2 = "Programs|Start Menu|Desktop|Startup|AppData|Templates|Favorites"
Set re = New RegExp
re.Pattern = """(" & p2 & ")"""
re.Global = true
re.IgnoreCase = true
txt = re.Replace(txt, """Common $1""")

w1 = "25,00,55,00,53,00,45,00,52,00,"       ''只将这些替换即可，因 ,\ 的位置不是固定的。
w2 = "25,00,41,00,4c,00,4c,00,55,00,53,00,45,00,52,00,53,00,"

Set re = New RegExp
re.Pattern = "(hex\(2\):)" & w1
re.Global = true
re.IgnoreCase = true
txt = re.Replace(txt, "$1" & w2)

fso.OpenTextFile("b.reg", 2, true, -1).Write txt
复制代码

但有个问题：生成的 b.reg 中总有 Personal、SendTo、My Pictures 去除不了。
请 apang 老师给看一下。

76626yyn

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

7楼

发表于 2014-10-12 22:11 | 只看该作者

本帖最后由 apang 于 2014-10-12 22:24 编辑

保存为test.bat

@set @n=0;// & cscript -nologo -e:jscript "%~0" & pause & exit

fso = new ActiveXObject('Scripting.FileSystemObject');
txt = fso.OpenTextFile('a.txt', 1, false, -1).ReadAll();
re = /([\s\S]*?)(^".+" *=[\s\S]+?)(?=^")/mg;
s = '';
r =/^"(Programs|Start Menu|Desktop|Startup|AppData|Templates|Favorites)"/i;
while ((ar = re.exec(txt)) !=null) {
        if (r.test(ar[2])) {
                s += ar[1] + ar[2].replace(r, '"Common $1"');
        } else s += ar[1];
}

s1='25,00,41,00,4c,00,4c,00,55,00,53,00,45,00,52,00,53,00,50,00,52,00,\\';
s2='4f,00,46,00,49,00,4c,00,45,00,25,00';
p1='25,00,55,00,53,00,45,00,52,00,50,00,52,00,4f,00,46,00,49,00,\\\\';
p2='4c,00,45,00,25,00';
re=new RegExp('(hex\\(2\\):)' + p1 + '( *\\r?\\n *)' + p2, 'ig');
s = s.replace(re, '$1' + s1 + '$2' + s2);

fso.OpenTextFile('b.txt', 2, true, -1).Write(s)
复制代码

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

8楼

发表于 2014-10-13 00:01 | 只看该作者

回复 6# yuanyannian

好吧，3楼修改下，应该没问题了

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

9楼

发表于 2014-10-13 00:03 | 只看该作者

这么大坨的描述，看了真头疼

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 3 Rank: 3

帖子: 122
积分: 251
技术: 1
捐助: 0
注册时间: 2009-8-24

10楼

发表于 2014-10-13 16:40 | 只看该作者

回复 8# apang
是的，非常好用。
另外想请求 appang 老师：之前一直请教的处理 Unicode 格式文件的脚本已经在使用中，加之这次请教的脚本，独立使用都没有问题。但我想将两者合并起来，怎么也不行，所以麻烦 apang 老师给费费心，我将两个脚本以及需要处理的相关文件贴上附件，请老师帮忙，非常感谢。

1. 脚本
[attach]7778[/attach]

2. 需要处理的文件（文件过大，给出下载地址）
http://pan.baidu.com/s/1qWoHOD2

76626yyn

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

11楼

发表于 2014-10-13 21:41 | 只看该作者

回复 10# yuanyannian

需要判断参数个数，蛋疼，相当蛋疼，恕不能帮忙

1 评分人数

CrLf: 看描述就醉了，蛋蛋隐隐作痛技术 + 1

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

12楼

发表于 2014-10-13 21:53 | 只看该作者

Set fso = CreateObject("Scripting.FileSystemObject")
txt = fso.OpenTextFile("a.txt", 1, , -1).ReadAll

p = "Programs|Start Menu|Desktop|Startup|AppData|Templates|Favorites"
Set re = New RegExp
re.Pattern = "([\s\S]*?)(^"".+"" *=[\s\S]+?)(?=^"")"
re.Global = true
re.MultiLine = true
For Each m in re.Execute(txt & vbCrLf & """")
        s1 = m.SubMatches(0)
        s2 = ReReplace(m.SubMatches(1))
        If m.SubMatches(1) <> s2 Then
                s = s & s1 & s2
        Else s = s & s1
        End If
Next

s1 = "25,00,41,00,4c,00,4c,00,55,00,53,00,45,00,52,00,53,00,"
Set re = New RegExp
re.Pattern = "(hex\(2\):)25,00,55,00,53,00,45,00,52,00,"
re.Global = true
re.IgnoreCase = true
s = re.Replace(s, "$1" & s1)

fso.OpenTextFile("b.txt", 2, true, -1).Write Left(s, Len(s)-2)

Function ReReplace(str)
        Set re = New RegExp
        re.Pattern = """(" & p & ")"""
        re.IgnoreCase = true
        ReReplace = re.Replace(str, """Common $1""")
End Function
复制代码

Rank: 3 Rank: 3

帖子: 122
积分: 251
技术: 1
捐助: 0
注册时间: 2009-8-24

13楼

发表于 2014-10-14 06:48 | 只看该作者

本帖最后由 yuanyannian 于 2014-10-14 06:53 编辑

回复 11# apang

理解，这已经十分感谢了！如果没有老师的无私相助，我根本无法写出来 vbs。

76626yyn

Rank: 3 Rank: 3

帖子: 122
积分: 251
技术: 1
捐助: 0
注册时间: 2009-8-24

14楼

发表于 2014-10-14 06:51 | 只看该作者

回复 12# apang

查看了所有语言的 HKEY_LOCAL_MACHINE\pe-def\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders，几乎是一样的排列。

76626yyn

Rank: 3 Rank: 3

帖子: 122
积分: 251
技术: 1
捐助: 0
注册时间: 2009-8-24

15楼

发表于 2014-10-15 19:39 | 只看该作者

回复 12# apang

apang 老师还真不愿帮忙啊？有求了！！！

76626yyn