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

Set FSO = CreateObject("Scripting.FileSystemObject")
Set sFile = FSO.OpenTextFile("uwf.reg",1,False,-1)
Set oFile = FSO.OpenTextFile("aa.reg",2,True,-1)
Do Until sFile.AtEndOfStream
   sLine = sFile.ReadLine
   Set Re = New RegExp
   Re.Pattern = "[0-9a-f]{2},"
   Re.Global = True
   Re.IgnoreCase = True 
   For Each Match In Re.Execute(sLine)
      oLine = oLine & Chr("&H" & Left(Match,2))
   Next
   oFile.WriteLine sLine
   If oLine <> "" Then 
      oFile.WriteLine ";" & oLine
   End If
   oLine = ""
Loop
复制代码

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

Do Until sFile.AtEndOfStream
   sLine = sFile.ReadLine
   oFile.WriteLine sLine

   Set R7 = New RegExp
   R7.Pattern = "[hex(7):]{7}"
   R7.Global = True
   R7.IgnoreCase = True
   For Each Match In R7.Execute(sLine)
      oLine = ";M   "
   Next

   Set R2 = New RegExp
   R2.Pattern = "[hex(2):]{7}"
   R2.Global = True
   R2.IgnoreCase = True
   For Each Match In R2.Execute(sLine)
      oLine = ";E   "
   Next

   Set Re = New RegExp
   Re.Pattern = "[0-9a-f]{2},"
   Re.Global = True
   Re.IgnoreCase = True
   For Each Match In Re.Execute(sLine)
      if Left(Match,2) = "00" Then Match = 20
	  oLine = oLine & Chr("&H" & Left(Match,2))
   Next

   if Right(sLine,1) <> "\" Then
	   If oLine <> "" Then
		  oFile.WriteLine oLine
          oLine = ""
	   End If
   End If

Loop
复制代码

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

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

Do Until sFile.AtEndOfStream
	sLine = RTrim(sFile.ReadLine)
	oFile.WriteLine sLine

	if instr(sLine,"hex(") <> 0 then
		mLine = mid(sLine,instr(sLine,"hex(")+7)
		if mid(sLine,instr(sLine,"hex(")+4,1) = "7" then oLinef = ";M   "
		if mid(sLine,instr(sLine,"hex(")+4,1) = "2" then oLinef = ";E   "
		oLine = ""
		do while len(mLine) > 5
			if Left(mLine,2) = "00" Then
				oLine = oLine & Chr(32)
			else
				oLine = oLine & Chr("&H" & Left(mLine,2))
			end if
			mLine = right(mLine,len(mLine)-6)
			if len(mLine) <= 4 and right(mLine,1) = "\" then
				sLine = RTrim(sFile.ReadLine)
				oFile.WriteLine sLine
				mLine = left(mLine,len(mLine)-1) & Trim(sLine)
			end if
		loop
		if Left(mLine,2) = "00" Then
			oLine = oLine & Chr(32)
		else
			oLine = oLine & Chr("&H" & Left(mLine,2))
		end if
		oLine = trim(oLine)
		if instr(oLinef,"E") <> 0 then oFile.WriteLine oLinef & oLine
		if instr(oLinef,"M") <> 0 then 
			do
				if instr(oLine," ") = 0 then
					oFile.WriteLine oLinef & oLine
					oLine = ""
				else
					oFile.WriteLine oLinef & left(oLine,instr(oLine," ")-1)
					oLine = mid(oLine,instr(oLine," ")+1)
				end if
			loop while len(oLine) > 0
		end if
	end if
Loop
复制代码