Imports System

Imports System.Text.RegularExpressions

Imports Microsoft.VisualBasic

Public Module Module1

    Dim searchArr As Array = {"INSERT", "INTO", "CREATE", "PROCEDURE", "CREATE PROCEDURE", "BEGIN", "END", "SELECT", "UPDATE", "SET", "NOCOUNT", "ON",

        "TO", "FOR", "ADD", "SET", "FROM", "IN", "IS", "OR", "DESC"}

    Public Sub Main()

        Dim query As String = "CREATE PROCEDURE AddCityToList" & vbCrLf & _

        "-- Add the parameters for the stored procedure here" & vbCrLf & _

        "@idCity int," & vbCrLf & _ 

        "@idProduct int" & vbCrLf & _

        "AS" & vbCrLf & _

        "BEGIN" & vbCrLf & _

        "-- SET NOCOUNT ON added to prevent extra result sets from" & vbCrLf & _

        "-- interfering with SELECT statements." & vbCrLf & _

        "SET NOCOUNT ON;" & vbCrLf & _

        "-- Insert statements for procedure here" & vbCrLf & _

        "INSERT INTO CityProductExclude (idCity,idProduct)"& vbCrLf & _

        "VALUES (@idCity,@idProduct)" & vbCrLf & _

        "END"

        Console.WriteLine(addHighlight(query))

    End Sub

    Public Function addHighlight(ByVal strIn As String) As String

​

    Dim keyWords As Array = searchArr

    Dim keyInd As Integer

    Dim str2() As String

    str2 = strIn.Split(New String() {Environment.NewLine}, StringSplitOptions.None)

    If Len(Trim(strIn)) > 0 And IsArray(keyWords) Then

        For keyInd = LBound(keyWords) To UBound(keyWords)

            For i As Integer = LBound(str2) To UBound(str2)

                ' str2(i) = Replace(str2(i), UCase(keyWords(keyInd)), "*|*" & UCase(keyWords(keyInd)) & "*||*", 1, -1, 1)

            If Not str2(i).StartsWith("--")

                str2(i) = Regex.Replace(str2(i), "\b" + keyWords(keyInd) + "\b", "*|*" & UCase(keyWords(keyInd)) & "*||*", RegexOptions.IgnoreCase)

            End If

            Next

        Next

    End If

strIn = Join(str2, Environment.NewLine)

strIn = Replace(strIn, Chr(13), "<br />", 1, -1, 1)

strIn = Replace(strIn, "*|*", "<span class=""Highlight"">")

strIn = Replace(strIn, "*||*", "</span>")

    addHighlight = strIn

End Function

End Module