momo2000
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
' RegJump.vbs
'======================= Описание ====================================
' Открывает из буфера/выделенную/имеющуюся в строке ветвь в редакторе реестра
'========================================================================
' -"Открыть ветвь в реестре..." Call("Scripts::Main", 1, "RegJump.vbs") Icon("%a\AkelFiles\Plugs\ToolBar.dll", 16)
' Автор: Аверин Андрей
' Версия: 1.0 (12.08.2012)
' Mail: Averin-And@yandex.ru
' Site: http://tc-image.3dn.ru/forum/9-213-2788-16-1344755775
'=========================================================================
With AkelPad Call .Include("Functions.vbs") : K = .GetClipboardText() : Call RegJump(K) : Call RegJump(.GetSelText(3)) : Call RegJump(GetLine) : End With
Sub RegJump(C)
If Len(C) > 0 Then
n = InStr(C, vbNewLine) : If n > 0 Then C = Left(C, n - 1)
If (InStr(C, "HK") > 0) And (InStr(C, "\") > 0) Then
C = Trim(Replace(C, "\\", "\"))
C = Replace(C, "HKLM\", "HKEY_LOCAL_MACHINE\")
C = Replace(C, "HKCR\", "HKEY_CLASSES_ROOT\")
C = Replace(C, "HKCU\", "HKEY_CURRENT_USER\")
C = RegExpReplace(C, "(^[[])(.*)([]]$)", "$2", 0, 1, 1)
C = RegExpReplace(C, "(^[""])(.*)([""]$)", "$2", 0, 1, 1)
C = RegExpReplace(C, "(^['])(.*)([']$)", "$2", 0, 1, 1)
C = RegExpReplace(C, "(^[(])(.*)([)]$)", "$2", 0, 1, 1)
R = """C:\Program Files\Registry Workshop\RegWorkshop.exe"" /g """ & C & """"
CreateObject("WScript.Shell").Run R, 1, False
WScript.Quit
End If
End If
End Sub
|
