From 47e0a5864f362adb618b6a2aae39ad1e3269ea32 Mon Sep 17 00:00:00 2001 From: brianga Date: Mon, 28 Oct 2019 13:15:42 -0600 Subject: [PATCH] Fix Issue #2 Fix Issue #2 * Updated REGEX to allow all lowercase and uppercase characters which allows for cross-language (for the most part) support * Updated REGEX to allow for the _ character --- remoteapp-tool/RemoteAppFunctions.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/remoteapp-tool/RemoteAppFunctions.vb b/remoteapp-tool/RemoteAppFunctions.vb index 26bc88f..15e9523 100644 --- a/remoteapp-tool/RemoteAppFunctions.vb +++ b/remoteapp-tool/RemoteAppFunctions.vb @@ -62,7 +62,7 @@ Module RemoteAppFunction Public Sub ValidateDNSname(ByVal TheTextBox As TextBox) ' pattern matches any character that is NOT A-Z (allows upper and lower case alphabets) - Dim rx As New Regex("[^\p{L}0-9\-\.]") + Dim rx As New Regex("[^\p{L}LlUu0-9\-\._]") If (rx.IsMatch(TheTextBox.Text)) Then TheTextBox.Text = rx.Replace(TheTextBox.Text, "") TheTextBox.Select(TheTextBox.Text.Length, 0)