Hallo zusammen
Habe mich versucht den Code zu kürzen, aber bekomme nur Fehler gemeldet!
Eventuell habt ihr noch eine bessere Idee, probiert habe ich folgegendes:
$String = '["HKLM , SYSTEM / ControlSet001 | Control >>>> Class - {4D36E972-E325-11CE-BFC1-08002bE10318} ; 0001 >> Ndi > params -->>> FlowControl ," enum]'
[/autoit][autoit][/autoit][autoit]Local $aRepl[37][1] = ['Chr(34)', " ", "| ", "| ", "|", "//", "/ ", " /", "/", " -->>", "-->> ", "-->>", " -", "- ", " ->", "-> ", "->", " -->", & _
"--> ", "-->", ">>", " >>", ">> ", "> ", " >", ">", ',"', ", ", " ,", ",", " ;", "; ", ";", "'", " \", "\ ", "\\"]
For $i = 0 To UBound($aRepl) - 1
$String = StringReplace($String, $aRepl[$i][0], $aRepl[$i][1])
Next
If StringRight($String, 1) = "]" Then $String = StringLeft($String, (StringLen($String) - 1))
If StringLeft($String, 1) = "[" Then $String = StringRight($String, (StringLen($String) - 1))
If StringRight($String, 1) = "\" Then $String = StringLeft($String, (StringLen($String) - 1))
$String = StringReplace($String, "HKCR", "HKEY_CLASSES_ROOT", 1)
$String = StringReplace($String, "HKLM", "HKEY_LOCAL_MACHINE", 1)
$String = StringReplace($String, "HKCU", "HKEY_CURRENT_USER", 1)
$String = StringReplace($String, "HKU", "HKEY_USERS", 1)
$String = StringReplace($String, "HKCC", "HKEY_CURRENT_CONFIG", 1)
Return $String
MsgBox(0, "Umgeänderter String ...", $String)
[/autoit]Mein alter Code:
Spoiler anzeigen
$String = '["HKLM , SYSTEM / ControlSet001 | Control >>>> Class - {4D36E972-E325-11CE-BFC1-08002bE10318} ; 0001 >> Ndi > params -->>> FlowControl ," enum]'
Func CheckString($String)
$String = StringReplace($String, Chr(34), "")
$String = StringReplace($String, " ", "\")
$String = StringReplace($String, "| ", "\")
$String = StringReplace($String, " |", "\")
$String = StringReplace($String, "|", "\")
$String = StringReplace($String, "//", "\")
$String = StringReplace($String, "/ ", "\")
$String = StringReplace($String, " /", "\")
$String = StringReplace($String, "/", "\")
$String = StringReplace($String, "-->> ", "\")
$String = StringReplace($String, " -->>", "\")
$String = StringReplace($String, "-->>", "\")
$String = StringReplace($String, "-->", "\")
$String = StringReplace($String, "--> ", "\")
$String = StringReplace($String, " -->", "\")
$String = StringReplace($String, " -", "\")
$String = StringReplace($String, "- ", "\")
$String = StringReplace($String, "->", "\")
$String = StringReplace($String, "-> ", "\")
$String = StringReplace($String, " ->", "\")
$String = StringReplace($String, ">>", "\")
$String = StringReplace($String, ">> ", "\")
$String = StringReplace($String, " >>", "\")
$String = StringReplace($String, ">", "\")
$String = StringReplace($String, "> ", "\")
$String = StringReplace($String, " >", "\")
$String = StringReplace($String, ", ", "\")
$String = StringReplace($String, " ,", "\")
$String = StringReplace($String, ",", "\")
$String = StringReplace($String, "; ", "\")
$String = StringReplace($String, " ;", "\")
$String = StringReplace($String, ";", "\")
$String = StringReplace($String, ',"', "\")
$String = StringReplace($String, "'", "\")
$String = StringReplace($String, " \", "\")
$String = StringReplace($String, "\ ", "\")
$String = StringReplace($String, "\\", "\")
$String = StringReplace($String, " \", "\")
$String = StringReplace($String, "\ ", "\")
If StringRight($String, 1) = "]" Then $String = StringLeft($String, (StringLen($String) - 1))
If StringLeft($String, 1) = "[" Then $String = StringRight($String, (StringLen($String) - 1))
If StringRight($String, 1) = "\" Then $String = StringLeft($String, (StringLen($String) - 1))
$String = StringReplace($String, "HKCR", "HKEY_CLASSES_ROOT", 1)
$String = StringReplace($String, "HKLM", "HKEY_LOCAL_MACHINE", 1)
$String = StringReplace($String, "HKCU", "HKEY_CURRENT_USER", 1)
$String = StringReplace($String, "HKU", "HKEY_USERS", 1)
$String = StringReplace($String, "HKCC", "HKEY_CURRENT_CONFIG", 1)
Return $String
EndFunc ;=>CheckString
MsgBox(0, "Umgeänderter String ...", $String)