Prepare for Version 2.0.0.0

This commit is contained in:
Jonathan Jenne
2019-07-31 15:37:48 +02:00
parent 257ed65246
commit 71559c9ca5
44 changed files with 13768 additions and 7629 deletions

View File

@@ -69,11 +69,11 @@ Public Class clsPatterns
Try
Dim result = input
' Replace Clipboard
result = result.Replace("@Clipboard", CURR_MATCH_RESULT)
result = result.Replace("@CLIPBOARD", CURR_MATCH_RESULT)
result = result.Replace("@Zwischenablage", CURR_MATCH_RESULT)
result = result.Replace("123456789", CURR_MATCH_RESULT)
result = result.Replace("4711", CURR_MATCH_RESULT)
result = result.Replace("@Clipboard", CURRENT_CLIPBOARD_CONTENTS)
result = result.Replace("@CLIPBOARD", CURRENT_CLIPBOARD_CONTENTS)
result = result.Replace("@Zwischenablage", CURRENT_CLIPBOARD_CONTENTS)
result = result.Replace("123456789", CURRENT_CLIPBOARD_CONTENTS)
result = result.Replace("4711", CURRENT_CLIPBOARD_CONTENTS)
' Replace Username(s)
While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_USERNAME)
result = ReplacePattern(result, PATTERN_INT, Environment.UserName)