VB.Net/Class/Extension

Adding extension method to string

<source lang="vbnet"> Imports System Imports System.Linq Imports System.Runtime.rupilerServices

Module Module1

   Sub Main()
       Dim s As String = "this is a test"
       Console.WriteLine(s.SpaceToUnderscore())
   End Sub

End Module

   <Extension()> _
   Public Class Extensions
       <Extension()> _
       Public Shared Function SpaceToUnderscore(ByVal source As String) As String
           Dim cArray As Char() = source.ToCharArray()
           Dim result As String = String.Empty
           For Each c As Char In cArray
               If Char.IsWhiteSpace(c) Then
                   result = result & "_"
               Else
                   result = result & c
               End If
           Next
           Return result
       End Function
   End Class
  
   
 </source>