Mirrored_Repos/remoteapptool
1
0
Fork 0
mirror of https://github.com/kimmknight/remoteapptool.git synced 2024-11-25 06:57:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix Issue #2

Browse Source 
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
This commit is contained in:
brianga 2019-10-28 13:15:42 -06:00
parent 5f469ddc91
commit 47e0a5864f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
remoteapp-tool/RemoteAppFunctions.vb
View File

@ -62,7 +62,7 @@ Module RemoteAppFunction
Public Sub ValidateDNSname(ByVal TheTextBox As TextBox) Public Sub ValidateDNSname(ByVal TheTextBox As TextBox)
' pattern matches any character that is NOT A-Z (allows upper and lower case alphabets) ' 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 If (rx.IsMatch(TheTextBox.Text)) Then
TheTextBox.Text = rx.Replace(TheTextBox.Text, "") TheTextBox.Text = rx.Replace(TheTextBox.Text, "")
TheTextBox.Select(TheTextBox.Text.Length, 0) TheTextBox.Select(TheTextBox.Text.Length, 0)