Check Edited Phrase For Existing Phrases

' Quick Command Creator Inline-Function for VoiceAttack -  Check Edited Command 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) ()
    dim phrasesLast as new list(of string) ()
    dim phrasesUnique 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_phrase_last") IsNot nothing)
            phrases = (VA.GetText("~avcs_qcc_phrase_last"))
            phraseArray = vaProxy.Utility.ExtractPhrases(phrases, true, true)
            for each phrase in phraseArray
                if ((not(phrase = "")) and (not(phrasesLast.Contains(phrase))))
                    phrasesLast.Add(phrase)
                end if
            next
        end if

        phrases = nothing
        phraseArray = nothing

        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
                'Check only NEW phrases added to this command phrase
                if ((not(phrase = "")) and (not(errorsFinal.Contains(phrase))) and (not(phrasesLast.Contains(phrase))))
                    'If this new phrase is not already in the loaded QCC list of commands/macros phrases
                    if (not(commands.Contains(phrase)))
                        if ((saveFile.Contains(phrase)) or (vaProxy.Command.Exists(phrase)))
                            errorsFinal.Add(phrase)
                            errorCount = errorCount + 1
                            VA.SetText("~avcs_qcc_error_" + errorCount.ToString(), phrase)
                        end if
                    'Else add this new phrase to a new list to identify any duplicate phrase variants
                    else if (commands.Contains(phrase))
                        if (phrasesUnique.Contains(phrase))
                            errorsFinal.Add(phrase)
                            errorCount = errorCount + 1
                            VA.SetText("~avcs_qcc_error_" + errorCount.ToString(), phrase)
                        else
                            phrasesUnique.Add(phrase)
                        end if
                    end if
                end if
            next
        end if

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

    End Sub
End Class