[UTILITY] Convertitore FUNZIONANTE .reg a .au3

[Yza_K]

Che dire ... INDISPENSABILE e unico funzionante.

Ringaziamo il master di autoit per questo script.

Stavolta io ho solo copiato, prima lo facevo a mano ...

$Reg = FileOpenDialog("Choose a registry file", @ScriptDir, "Registry Files (*.reg)", 1)
If @error = 1 Then Exit

$Dir = StringLeft($Reg, StringInStr($Reg, '\', 0, -1) - 1)
$NewReg = FileSaveDialog("Choose a file name", $Dir, "Scripts (*.au3)", 16)
If @error = 1 Then Exit

RunWait(@ComSpec & ' /c TYPE "' & $Reg & '" > "%TEMP%\' & GetFilename($Reg) & '"', @SystemDir, @SW_HIDE)
$Reg = @TempDir & "\" & GetFilename($Reg)
$OpenReg = FileOpen($Reg, 0)
$OpenNewReg = FileOpen($NewReg, 2)

Dim $Key
Dim $valuename
Global $Oldvalue = ""
$value = ""
$Type = ""
$Write = "Yes"
$Continue1 = "No"
$Continue2 = "No"
$Continue3 = "No"

$Line = FileReadLine($OpenReg, 2)
$Line = ""

While 1
   $Line = FileReadLine($OpenReg)
   If @error Then ExitLoop

   If StringLeft($Line, 1) = ' ' Then
	  $value = $Line

	  If $Continue1 = "Yes" Then
		 $Type = "REG_BINARY"
		 If StringRight($value, 1) = "\" Then
			$value = StringTrimRight($value, 1)
			$Oldvalue = $Oldvalue & $value
			$Continue1 = "Yes"
			$Write = "No"
		 Else
			$Oldvalue = $Oldvalue & $Line
			$Match1 = StringInStr($Oldvalue, ":")
			If $Match1 >= 1 Then $Oldvalue = StringTrimLeft($Oldvalue, $Match1)
			$value = StringReplace($Oldvalue, ",", "")
			$value = Chr(34) & StringStripWS($value, 8) & Chr(34)
			$Oldvalue = ""
			$Continue1 = "No"
			$Write = "Yes"
		 EndIf

	  ElseIf $Continue2 = "Yes" Then
		 $Type = "REG_EXPAND_SZ"
		 If StringRight($value, 1) = "\" Then
			$value = StringTrimRight($value, 1)
			$Oldvalue = $Oldvalue & $value
			$Continue2 = "Yes"
			$Write = "No"
		 Else
			$Oldvalue = $Oldvalue & $Line
			$value = Chr(34) & CharsToString (StringStripWS($Oldvalue, 8)) & Chr(34)
			$Oldvalue = ""
			$Continue2 = "No"
			$Write = "Yes"
		 EndIf

	  ElseIf $Continue3 = "Yes" Then
		 $Type = "REG_MULTI_SZ"
		 If StringRight($value, 1) = "\" Then
			$value = StringTrimRight($value, 1)
			$Oldvalue = $Oldvalue & $value
			$Continue3 = "Yes"
			$Write = "No"
		 Else
			$Oldvalue = $Oldvalue & $Line
			$value = Chr(34) & CharsToString (StringStripWS($Oldvalue, 8)) & Chr(34)
			$Oldvalue = ""
			$Continue3 = "No"
			$Write = "Yes"
		 EndIf
	  EndIf

	  If $Write = "Yes" Then FileWrite($OpenNewReg, 'RegWrite("' & $Key & '", ' & $valuename & ', "' & $Type & '", ' & $value & ')' & @CRLF)

   EndIf

   If $Line <> "" Then
	  Select
		 Case StringLeft($Line, 1) = ";"
			FileWrite($OpenNewReg, $Line & @CRLF)

		 Case StringLeft($Line, 1) = "["
			If StringRight($Line, 1) = " " Then
			   $Key = StringTrimRight($Line, 2)
			Else
			   $Key = StringTrimRight($Line, 1)
			EndIf
			$Key = StringTrimLeft($Key, 1)

			If StringLeft($Key, 1) = "-" Then FileWrite($OpenNewReg, 'RegDelete("' & StringTrimLeft($Key, 1) & '")' & @CRLF)

		 Case StringLeft($Line, 1) = '@'
			$value = StringTrimLeft($Line, 2)
			$value = StringReplace($value, '\\', '\')
			If Not StringLen($value) = 2 Then $value = StringReplace($value, '""', '"')

			If StringLeft($value, 1) = "-" Then
			   FileWrite($OpenNewReg, 'RegDelete("' & $Key & '", "")' & @CRLF)
			Else
			   FileWrite($OpenNewReg, 'RegWrite("' & $Key & '", "", "REG_SZ", ' & $value & ')' & @CRLF)
			EndIf

		 Case StringLeft($Line, 1) = '"'
			$line_split = StringSplit($Line, "=")
			$valuename = $line_split[1]
			$value = $line_split[2]

			If StringInStr($value, 'hex:') >= 1 Then
			   $Type = "REG_BINARY"
			   If StringRight($value, 1) = "\" Then
				  $value = StringTrimRight($value, 1)
				  $Oldvalue = $value
				  $Continue1 = "Yes"
				  $Write = "No"
			   Else
				  $value = StringReplace($value, ",", "")
				  $Match1 = StringInStr($value, ":")
				  If $Match1 >= 1 Then $value = StringTrimLeft($value, $Match1)
				  $value = Chr(34) & StringStripWS($value, 8) & Chr(34)
				  $Continue1 = "No"
				  $Write = "Yes"
			   EndIf
			   $Match1 = StringInStr($value, ":")
			   If $Match1 >= 1 Then $value = StringTrimLeft($value, $Match1)
			ElseIf StringInStr($value, "hex(2):") >= 1 Then
			   $Type = "REG_EXPAND_SZ"
			   If StringRight($value, 1) = "\" Then
				  $value = StringTrimRight($value, 1)
				  $Oldvalue = $value
				  $Continue2 = "Yes"
				  $Write = "No"
			   Else
				  $value = Chr(34) & CharsToString (StringStripWS($value, 8)) & Chr(34)
				  $Continue2 = "No"
				  $Write = "Yes"
			   EndIf

			ElseIf StringInStr($value, "hex(7)") >= 1 Then
			   $Type = "REG_MULTI_SZ"
			   If StringRight($value, 1) = "\" Then
				  $value = StringTrimRight($value, 1)
				  $Oldvalue = $value
				  $Continue3 = "Yes"
				  $Write = "No"
			   Else
				  $value = Chr(34) & CharsToString (StringStripWS($value, 8)) & Chr(34)
				  $Continue3 = "No"
				  $Write = "Yes"
			   EndIf

			ElseIf StringLeft($value, 5) = "dword" Then
			   $Type = "REG_DWORD"
			   $value = StringTrimLeft($value, 6)
			   If StringLeft($value, 1) = "0" Then
				  For $i = 1 To StringLen($value)
					 $Char = StringMid($value, $i, 1)
					 If $Char <> "0" Then ExitLoop
				  Next

				  $value = StringTrimLeft($value, ($i - 1))
				  If $value = "" Then $value = "0"
			   EndIf

			   If StringLeft($value, 1) <> '"' And StringRight($value, 1) <> '"' Then $value = '"' & $value & '"'

			Else

			   $Type = "REG_SZ"
			EndIf

			$value = StringReplace($value, '\\', '\')
			If Not StringLen($value) = 2 Then $value = StringReplace($value, '""', '"')

			If StringLeft($value, 1) = "-" Then
			   FileWrite($OpenNewReg, 'RegDelete("' & $Key & '", ' & $valuename & ')' & @CRLF)
			Else
			   If $Write = "Yes" Then FileWrite($OpenNewReg, 'RegWrite("' & $Key & '", ' & $valuename & ', "' & $Type & '", ' & $value & ')' & @CRLF)
			EndIf

	  EndSelect

   Else
	  FileWrite($OpenNewReg, @CRLF)
   EndIf
Wend

FileClose($OpenNewReg)
Exit

Func CharsToString ($Instring)
   Local $Match1
   Local $Type

   $Match1 = StringInStr($Instring, ":")
   If $Match1 >= 1 Then $Instring = StringTrimLeft($Instring, $Match1)

   Dim $Temparray, $Count
   $Instring = StringReplace($Instring, " ", "")

  ;Remove trailing nulls 
   While StringRight($Instring, 3) = ",00"
	  $Instring = StringTrimRight($Instring, 3)
   Wend

  ;Create an array of character values and build string
   $Temparray = StringSplit($Instring, ",")
   $Instring = ""
   $x = 0
   For $Count = 1 To $Temparray[0] 
	  If $Temparray[$Count] <> "00" Then
		 $Instring = $Instring & Chr(Dec($Temparray[$Count]));convert hex to dec then get character value and append to return string
		 $x = 0
	  Else
		 $x = $x + 1
		 If $x = 3 Then
			$x = 0
			$Instring = $Instring & '" & @LF & "'
		 EndIf
	  EndIf
   Next
   Return $Instring

EndFunc

Func Debug ($message)
   Select
	  Case $message = "#open"
		 Opt ("WinTitleMatchMode", 2)
		 Run("notepad")
		 WinWait("Untitled", "")
		 WinSetTitle("Untitled", "", "Debug Window")

	  Case Else
		 ControlSend("Debug Window", "", "Edit1", $message)

   EndSelect
EndFunc  ;==>Debug

Func GetFilename($Path)
   Local $TempArr
   Local $Filename
   $TempArr = StringSplit($Path, "\")
   If @error Then
	  $Filename = $Path
   Else
	  $Filename = $TempArr[UBound($TempArr) - 1]
   EndIf
   Return $Filename
EndFunc