VB.NET Snippets - String

[sashi]

'//--- Reverse String ---//

      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

'//--- Generate random numbers ---//

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

'//--- Format phone numbers ---//

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

'//--- Email address validator ---//

      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

[erikbower65]

Thanks for sharing the code, its very useful information. Try the tool if you want to code analysis.