Count Command Variations in Windows Clipboard - VoiceAttack

' Count all Dynamic Command Variations
'  by SemlerPDX Mar2020
'  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 phraseCount as Int32 = 0
    dim phrase as string
    dim phrases() as string
    dim phrasesDynamic as string = ""

    Public Sub Main()

        phrasesDynamic = vaProxy.Utility.ParseTokens("{CLIP}")

        if ((not(phrasesDynamic = "")) and (not(phrasesDynamic = " ")) and (not(phrasesDynamic.Contains(vbNewLine))))
            phrases = vaProxy.Utility.ExtractPhrases(phrasesDynamic, true, true)
            if (phrases IsNot nothing)
                for each phrase in phrases
                    if (not(phrase = ""))
                        phraseCount += 1
                    end if
                next
            else
                VA.WriteToLog("AVCS ERROR: Unspecified Phrase extraction error at vaProxy.Utility","red")
            end if
        else
            VA.WriteToLog("AVCS ERROR: Dynamic Command Phrase not found in Windows Clipboard","red")
        end if

        if (phraseCount > 0)
            VA.SetInt("~count", phraseCount.ToString())
            VA.WriteToLog("VoiceAttack Dynamic Command Variations: " + phraseCount.ToString(),"yellow")
        end if

    End Sub
End Class