VB.NET片段-字符串

'//-反向字符串--- //

      Module RevString 
      Sub Main()
        Dim inputString As String = Console.ReadLine()
        ReverseOrder(inputString)
      End Sub 
      Private Sub ReverseOrder(ByVal textInput As String)
        Dim text2Rev As String = textInput
        Dim reversed As String 
        Dim charArray() As Char = textInput.ToCharArray()
        Array.Reverse(charArray)
        reversed = charArray 
        Console.WriteLine("")
        Console.WriteLine("Original Text: " + text2Rev)
        Console.WriteLine("Reversed Text: " + reversed)
      End Sub 
      End Module 

'//-生成随机数--- //

      Public Function GenerateRandomString() As String
        GenerateRandomString= System.Guid.NewGuid.ToString
      End Function 

'//-设置电话号码--- //

      Dim pn As String = "(444) 444-444"
      Dim newPn As String = Replace(Replace(Replace(pn, "-", ""), "(", ""), ")", "")
      newPn = String.Format("{0:###-###-####}", Convert.ToInt64(newPn)) 

'//-电子邮件地址验证器--- //

 
      Private Function IsValidEmailFormat(ByVal s As String) As Boolean
        Dim result As Boolean = False 
        If Not String.IsNullOrEmpty(s) Then 
          '^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)*\.(([0-9]{1,3})|([a-zA-Z]{2,3})|(aero|coop|info|museum|name))$ 
           Dim pattern As String = My.Settings.Email_Validation_Pattern 
           Dim match As RegularExpressions.Match =  RegularExpressions.Regex.Match(s, pattern)
           result = match.Success 
         End If 
      Return result
      End Function 

From: https://bytes.com/topic/visual-basic-net/insights/881594-vb-net-snippets-string