AVCS QCC Delete Selected Macro Data variables

' Quick Command Creator Inline-Function for VoiceAttack -  Get Command Index for Delete Function, remove phrase data variables
'  by SemlerPDX Jun2020
'  VETERANS-GAMING.COM


Imports Microsoft.VisualBasic
Imports System
Imports System.Text
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 dataIndex as integer = 0
    dim dataList() as string
    dim data() as string
    dim phrase as string
    dim phrases as string
    dim phraseArray() as string
    dim phrasesFinal as new list(of string) ()

    Public Sub Main()

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

            dataList = (VA.GetText("~avcs_qcc_command_list").Replace("[(1)]", "↑").Replace("[(2)]", "→").Replace("[(3)]", "↓").Replace("[(4)]", "←")).Split("↑")

            if(dataList) IsNot nothing

                for each dataFunc as string in dataList
                    if not(dataFunc = "")
                        if(dataFunc.StartsWith("QCC#"))
                            data = dataFunc.Split("#")
                            dataIndex = Convert.ToInt32(data(1))
                            VA.SetInt("~avcs_qcc_index", dataIndex)
                        end if
                    end if
                next

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

            end if

        end if

    End Sub
End Class