AVCS Load All Profile Miscellaneous Commands

'from AVCS CORE INIT_MAIN - inline function "AVCS_LoadAllProfMiscCommands"

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Generic


Public Class VAInline
    dim cmdIndex as Int32
    dim cmdProfMax as Int32 = 16
    dim phrase as string
    dim phrases as string
    dim phraseArray() as string
    dim phrasesList() as string
    dim profileUnique as string = ""
    dim phrasesFinal as new list(of string) ()
    dim activeProfile as string = "CORE"

    Public Sub Main()

        if ((VA.GetText("~profile_to_init")) IsNot nothing)
            activeProfile = VA.GetText("~profile_to_init")
        end if

        if ((VA.GetInt("AVCS_" + activeProfile + "_PCMOS_MAX")) IsNot nothing)
            cmdProfMax = Convert.ToInt32(VA.GetInt("AVCS_" + activeProfile + "_PCMOS_MAX"))
        end if

        'Load all Profile Commands (Miscellaneous)
        for cmdIndex = 1 to cmdProfMax
            if (((VA.GetText("AVCS_" + activeProfile + "_MISC_" + cmdIndex.ToString())) IsNot nothing) and ((VA.GetText("AVCS_" + activeProfile + "_DATA_MISC_" + cmdIndex.ToString())) IsNot nothing))
                phrases = (VA.GetText("AVCS_" + activeProfile + "_MISC_" + 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)
                        profileUnique = profileUnique + phrase + ";"
                        VA.SetText(phrase, cmdIndex.ToString())
                    end if
                next
            end if
        next

        if not (profileUnique = "")
            VA.SetText("AVCS_" + activeProfile + "_COMMANDS_MISC", profileUnique)
        else
            VA.SetText("AVCS_" + activeProfile + "_COMMANDS_MISC", nothing)
        end if

    End Sub

End Class