AVCS QCC List All Macro Actions in Command

' Quick Command Creator Inline-Function for VoiceAttack -  List All Actions for Editing
'  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 cmdIndex as Int32 = 1
    dim cmdStep as string = ""
    dim cmdSteps as string = ""

    Public Sub Main()

        if ((VA.GetText("~avcs_qcc_phrase")) IsNot nothing)
            dim profileName as string = VA.GetText("~avcs_qcc_phrase")
            VA.WriteToLog("AVCS QCC - When I say:  " + (VA.GetText("~avcs_qcc_phrase")).ToString(),"orange")
        end if
        VA.WriteToLog("AVCS QCC - Execute the following VoiceAttack Action Steps:","orange")

        while ((VA.GetText("~avcs_qcc_step_" + cmdIndex.ToString())) IsNot nothing)
            cmdStep = VA.GetText("~avcs_qcc_step_" + cmdIndex.ToString())
            cmdSteps = cmdSteps + cmdIndex.ToString() + ". " + cmdStep + ";"
            VA.WriteToLog(cmdIndex.ToString() + ". " + cmdStep.ToString(),"grey")
            cmdIndex += 1
        end while

        cmdIndex -= 1
        VA.SetText("~avcs_qcc_actions_list", cmdSteps)
        VA.SetInt("~avcs_qcc_step_count", cmdIndex.ToString())

    End Sub

End Class