Pasted

' 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