Check New Phrase for Existing Phrases already in use

' Quick Command Creator Inline-Function for VoiceAttack -  Check for Existing Phrases already in use
'  by SemlerPDX Jun2020
'  VETERANS-GAMING.COM


Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Drawing
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Linq
Imports System.Xml.Linq
Imports System.Threading.Tasks

Public Class VAInline
    dim saveFile as string = ""
    dim phrase as string
    dim phrases as string
    dim commands as string = ""
    dim phraseArray() as string
    dim errorCount as integer = 0
    dim errorsFinal as new list(of string) ()

    Public Sub Main()

        if (VA.GetText("~save_file") IsNot nothing)
            saveFile = VA.GetText("~save_file")
        end if

        if (VA.GetText("AVCS_QCC_COMMANDS") IsNot nothing)
            commands = VA.GetText("AVCS_QCC_COMMANDS")
        end if

        if (VA.GetText("AVCS_QCC_MACROS") IsNot nothing)
            commands = VA.GetText("AVCS_QCC_MACROS") + ";" + commands
        end if

        if (VA.GetText("AVCS_QCC_LISTEN") IsNot nothing)
            commands = VA.GetText("AVCS_QCC_LISTEN") + ";" + commands
        end if

        if (VA.GetText("AVCS_QCC_LISTEN_TOGGLE") IsNot nothing)
            commands = VA.GetText("AVCS_QCC_LISTEN_TOGGLE") + ";" + commands
        end if

        if (VA.GetText("~avcs_qcc_phrase") IsNot nothing)

            phrases = (VA.GetText("~avcs_qcc_phrase"))
            phraseArray = vaProxy.Utility.ExtractPhrases(phrases, true, true)

            for each phrase in phraseArray
                if ((not(phrase = "")) and (not(errorsFinal.Contains(phrase))))
                    if ((commands.Contains(phrase)) or (saveFile.Contains(phrase)) or(vaProxy.Command.Exists(phrase)))
                        errorsFinal.Add(phrase)
                        errorCount = errorCount + 1
                        VA.SetText("~avcs_qcc_error_" + errorCount.ToString(), phrase)
                    end if
                end if
            next
        end if

        if(errorCount > 0)
            VA.SetInt("~avcs_qcc_error_count", errorCount)
        end if

    End Sub
End Class