yuanyannian

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

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

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

CrLf

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

apang

回复 6# yuanyannian


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

apang

保存为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)
复制代码

yuanyannian

回复 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 老师给看一下。

apang

回复 4# yuanyannian


    你的意思是除了列出的Programs|Start Menu|Desktop|Startup|AppData|Templates|Favorites 这7个键值做替换外，其余的键值统统删除？

如果是这样，那问题1岂不多余？

yuanyannian

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

谢谢 apang 老师！

apang

不明白问题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
复制代码

yuanyannian

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