AVCS QCC Find all Command Phrases for When I Say

' Quick Command Creator Inline-Function for VoiceAttack -  Find available QCC Commands and set to Master Command Variables
'  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 cmdIndex as Int32
    dim cmdMax as Int32 = 25
    dim phrase as string
    dim phrases as string
    dim phraseDataCheck as string
    dim phrasesUnique as string = ""
    dim macrosUnique as string = ""
    dim listenUnique as string = ""
    dim toggleUnique as string = ""
    dim phraseArray() as string
    dim phrasesFinal as new list(of string) ()


    Public Sub Main()

        if ((VA.GetInt("AVCS_QCC_COMMAND_MAX")) IsNot nothing)
            cmdMax = Convert.ToInt32(VA.GetInt("AVCS_QCC_COMMAND_MAX"))
        end if

        'Load all QCC Commands to main phrase(s) variable
        for cmdIndex = 1 to cmdMax

            if (((VA.GetText("AVCS_QCC_COMMAND_" + cmdIndex.ToString())) IsNot nothing) and ((VA.GetText("AVCS_QCC_DATA_COMMAND_" + cmdIndex.ToString())) IsNot nothing))
                phrases = (VA.GetText("AVCS_QCC_COMMAND_" + cmdIndex.ToString()))
                phraseArray = vaProxy.Utility.ExtractPhrases(phrases, true, true)
                for each phrase in phraseArray
                    if ((not(phrase = "")) and (not(phrasesFinal.Contains(phrase))))
                        phrasesFinal.Add(phrase)
                        phrasesUnique = phrasesUnique + phrase + ";"
                        VA.SetText(phrase, cmdIndex.ToString())
                    end if
                next
            end if

            if (((VA.GetText("AVCS_QCC_MACROS_" + cmdIndex.ToString())) IsNot nothing) and ((VA.GetText("AVCS_QCC_DATA_MACROS_" + cmdIndex.ToString())) IsNot nothing))
                phraseDataCheck = VA.GetText("AVCS_QCC_DATA_MACROS_" + cmdIndex.ToString())
                phrases = (VA.GetText("AVCS_QCC_MACROS_" + cmdIndex.ToString()))
                phraseArray = vaProxy.Utility.ExtractPhrases(phrases, true, true)
                for each phrase in phraseArray
                    if ((not(phrase = "")) and (not(phrasesFinal.Contains(phrase))))
                        phrasesFinal.Add(phrase)
                        'Check for commands with Start/Toggle VoiceAttack listening
                        if ((not(phraseDataCheck.Contains("1[(2)]VALB"))) and (not(phraseDataCheck.Contains("1[(2)]VALT"))))
                            macrosUnique = macrosUnique + phrase + ";"
                        else
                            if (phraseDataCheck.Contains("1[(2)]VALB"))
                                listenUnique = listenUnique + phrase + ";"
                            else if (phraseDataCheck.Contains("1[(2)]VALT"))
                                toggleUnique = toggleUnique + phrase + ";"
                            end if
                        end if
                        'Set Key Data Variable Name to Variable Name including each Quick Command Phrase
                        VA.SetText(phrase, cmdIndex.ToString())
                    end if
                next

            end if
        next

        'Create Variables for 'When I Say' Tokens containing all QCC phrases
        if not (phrasesUnique = "")
            VA.SetText("AVCS_QCC_COMMANDS", phrasesUnique)
        else
            VA.SetText("AVCS_QCC_COMMANDS", nothing)
        end if
        if not (macrosUnique = "")
            VA.SetText("AVCS_QCC_MACROS", macrosUnique)
        else
            VA.SetText("AVCS_QCC_MACROS", nothing)
        end if
        if not (listenUnique = "")
            VA.SetText("AVCS_QCC_LISTEN", listenUnique)
        else
            VA.SetText("AVCS_QCC_LISTEN", nothing)
        end if
        if not (toggleUnique = "")
            VA.SetText("AVCS_QCC_LISTEN_TOGGLE", toggleUnique)
        else
            VA.SetText("AVCS_QCC_LISTEN_TOGGLE", nothing)
        end if

    End Sub
End Class