Imports System

Imports System.Text.RegularExpressions

Imports System.Web

Imports System.Runtime.CompilerServices

​

Public Module Module1

​

    Public Sub Main()

        Dim jAndM As String = "J&M"

        Dim jSpaceAndSpaceM As String = "J & M"

        Dim jm As String = "JM"

        Console.WriteLine("J&M Slugged: " + jandm.ToSlug())

        Console.WriteLine("J & M Slugged: " +  jSpaceAndSpaceM.ToSlug())

        Console.WriteLine("JM Slugged: " +  jm.ToSlug())

        Console.WriteLine()

        Console.WriteLine("J&M UnSlugged: " + jandm.ToSlug().UnSlug())

        Console.WriteLine("J & M UnSlugged: " +  jSpaceAndSpaceM.ToSlug().UnSlug())

        Console.WriteLine("JM UnSlugged: " +  jm.ToSlug().UnSlug())

        Dim querystring As String = "%3Fmanu%3Dgmc%26model%3Dsierra%26year%3D1995"

        querystring = "?manu=gmc &model&sierra&year&1995"

        Console.WriteLine()

        Console.WriteLine("Slugged Querystring: " + querystring.ToSlug())

​

    End Sub

​

    <Extension>

    Public Function ToSlug(value As String, Optional underscore As Boolean = False) As String

        If String.IsNullOrEmpty(value) Then Return value

        'Decode it first

        value = HttpUtility.UrlDecode(value)

        'Must be lower case

        value = value.ToLowerInvariant.Trim()

        'Replace pesky & with and

        If(value.Contains(" & ")) Then

            value = value.Replace(" & ", " and ")

        ElseIf value.Contains("&") Then

            value = value.Replace("&", " and ")

        End If

​

        'Replace "/" with " / " to prevent spacing issues

        value = value.Replace("/", " / ")

        'Remove special caracters 

        value = Regex.Replace(value, "[^a-z0-9\s-]", String.Empty)

        'Preemptively replace the spaces with underscores

        If underscore Then value = Regex.Replace(value, "\s", "_")

        value = Regex.Replace(value, "[\s-]+", " ")

        value = Regex.Replace(value, "\s", "-")

        Return value.Trim()

    End Function

​

    <Extension>

    Public Function UnSlug(value As String, Optional removeAnd As Boolean = False) As String

        If String.IsNullOrEmpty(value) Then Return value

        If removeAnd Then

            value = value.Replace("and", String.Empty)

        End If

​

        Return value.Replace("-", " ").Replace("_", " ")

    End Function

End Module

​