求助，给注册表文件加注释的批处理

newswan

注册表文件里有这样的项
"LowerFilters"=hex(7):75,00,77,00,66,00,76,00,6f,00,6c,00,00,00,66,00,76,00,65,\
  00,76,00,6f,00,6c,00,00,00,72,00,64,00,79,00,62,00,6f,00,6f,00,73,00,74,00,\
  00,00,00,00
"ImagePath"=hex(2):73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,64,00,\
  72,00,69,00,76,00,65,00,72,00,73,00,5c,00,75,00,77,00,66,00,73,00,2e,00,73,\
  00,79,00,73,00,00,00

不方便阅读，需要给出注释，
hex(7) = REG_MULTI_SZ
hex(2) = REG_EXPAND_SZ
75,00 = u
hex(7)中
00,00 = 换行
00,00,00,00  = 结束

hex(2)中
00,00 = 结束

在注册表文件中，对应的下面添加如下注释
;REG_MULTI_SZ    uwfvol\0fvevol\0rdyboost
;REG_EXPAND_SZ    %SystemRoot%\system32\wbem\uwfwmi.dll

求帮忙，谢谢

冷玉公子

hex 是字符的16进制编码，可以试试把编码还原成原始字符串。
问题应该8是很大。论坛搜索一下字符的转换。

apang

与楼主要求有点出入，只当是新手练习。。。

1. Set FSO = CreateObject("Scripting.FileSystemObject")
   
2. Set sFile = FSO.OpenTextFile("uwf.reg",1,False,-1)
   
3. Set oFile = FSO.OpenTextFile("aa.reg",2,True,-1)
   
4. Do Until sFile.AtEndOfStream
   
5.    sLine = sFile.ReadLine
   
6.    Set Re = New RegExp
   
7.    Re.Pattern = "[0-9a-f]{2},"
   
8.    Re.Global = True
   
9.    Re.IgnoreCase = True
   
10.    For Each Match In Re.Execute(sLine)
    
11.       oLine = oLine & Chr("&H" & Left(Match,2))
    
12.    Next
    
13.    oFile.WriteLine sLine
    
14.    If oLine <> "" Then
    
15.       oFile.WriteLine ";" & oLine
    
16.    End If
    
17.    oLine = ""
    
18. Loop

复制代码

newswan

谢谢，
再修改一下
一个字符紧跟的一个空格 删除
连续三个空格转换为回车

1. Set FSO = CreateObject("Scripting.FileSystemObject")
   
2. Set sFile = FSO.OpenTextFile("uwf.reg",1,False,-1)
   
3. Set oFile = FSO.OpenTextFile("uwf.txt",2,True,-1)
   
4. 
   
5. Do Until sFile.AtEndOfStream
   
6.    sLine = sFile.ReadLine
   
7.    oFile.WriteLine sLine
   
8. 
   
9.    Set R7 = New RegExp
   
10.    R7.Pattern = "[hex(7):]{7}"
    
11.    R7.Global = True
    
12.    R7.IgnoreCase = True
    
13.    For Each Match In R7.Execute(sLine)
    
14.       oLine = ";M   "
    
15.    Next
    
16. 
    
17.    Set R2 = New RegExp
    
18.    R2.Pattern = "[hex(2):]{7}"
    
19.    R2.Global = True
    
20.    R2.IgnoreCase = True
    
21.    For Each Match In R2.Execute(sLine)
    
22.       oLine = ";E   "
    
23.    Next
    
24. 
    
25.    Set Re = New RegExp
    
26.    Re.Pattern = "[0-9a-f]{2},"
    
27.    Re.Global = True
    
28.    Re.IgnoreCase = True
    
29.    For Each Match In Re.Execute(sLine)
    
30.       if Left(Match,2) = "00" Then Match = 20
    
31.           oLine = oLine & Chr("&H" & Left(Match,2))
    
32.    Next
    
33. 
    
34.    if Right(sLine,1) <> "" Then
    
35.            If oLine <> "" Then
    
36.                   oFile.WriteLine oLine
    
37.           oLine = ""
    
38.            End If
    
39.    End If
    
40. 
    
41. Loop
    

复制代码

newswan

Set sFile = FSO.OpenTextFile("uwf.reg",1,False,-1)
Set oFile = FSO.OpenTextFile("uwf.txt",2,True,-1)

请问，怎么用窗口选定 输入输出文件

apang

回复 5# newswan

1. Set objDialog = CreateObject("UserAccounts.CommonDialog")
   
2. objDialog.Filter = "Reg File|*.reg|Txt File|*.txt"
   
3. objDialog.InitialDir = "."
   
4. If Not objDialog.ShowOpen Then MsgBox "未选择" : WScript.Quit
   
5. MsgBox "所选文件为：" & vbCrLf & objDialog.FileName

复制代码

测试XP能行，但Win7不支持创建该对象

newswan

win8，也不行。
谢谢

newswan

暂时就这样吧。
谢谢大家。

1. Set FSO = CreateObject("Scripting.FileSystemObject")
   
2. Set sFile = FSO.OpenTextFile("uwf.reg",1,False,-1)
   
3. Set oFile = FSO.OpenTextFile("uwf.txt",2,True,-1)
   
4. 
   
5. Do Until sFile.AtEndOfStream
   
6.         sLine = RTrim(sFile.ReadLine)
   
7.         oFile.WriteLine sLine
   
8. 
   
9.         if instr(sLine,"hex(") <> 0 then
   
10.                 mLine = mid(sLine,instr(sLine,"hex(")+7)
    
11.                 if mid(sLine,instr(sLine,"hex(")+4,1) = "7" then oLinef = ";M   "
    
12.                 if mid(sLine,instr(sLine,"hex(")+4,1) = "2" then oLinef = ";E   "
    
13.                 oLine = ""
    
14.                 do while len(mLine) > 5
    
15.                         if Left(mLine,2) = "00" Then
    
16.                                 oLine = oLine & Chr(32)
    
17.                         else
    
18.                                 oLine = oLine & Chr("&H" & Left(mLine,2))
    
19.                         end if
    
20.                         mLine = right(mLine,len(mLine)-6)
    
21.                         if len(mLine) <= 4 and right(mLine,1) = "" then
    
22.                                 sLine = RTrim(sFile.ReadLine)
    
23.                                 oFile.WriteLine sLine
    
24.                                 mLine = left(mLine,len(mLine)-1) & Trim(sLine)
    
25.                         end if
    
26.                 loop
    
27.                 if Left(mLine,2) = "00" Then
    
28.                         oLine = oLine & Chr(32)
    
29.                 else
    
30.                         oLine = oLine & Chr("&H" & Left(mLine,2))
    
31.                 end if
    
32.                 oLine = trim(oLine)
    
33.                 if instr(oLinef,"E") <> 0 then oFile.WriteLine oLinef & oLine
    
34.                 if instr(oLinef,"M") <> 0 then
    
35.                         do
    
36.                                 if instr(oLine," ") = 0 then
    
37.                                         oFile.WriteLine oLinef & oLine
    
38.                                         oLine = ""
    
39.                                 else
    
40.                                         oFile.WriteLine oLinef & left(oLine,instr(oLine," ")-1)
    
41.                                         oLine = mid(oLine,instr(oLine," ")+1)
    
42.                                 end if
    
43.                         loop while len(oLine) > 0
    
44.                 end if
    
45.         end if
    
46. Loop
    

复制代码

newswan

顺便问下，vbs编辑器，哪个好些？我用的notepad++