Pasted

' Save File System Inline-Function for VoiceAttack -  Load Any/All Variables from File/List to Profile
'  by SemlerPDX Mar2020
'  VETERANS-GAMING.COM
' --Loads Variables from Text List Format into VA Variables of Appropriate Data Type (INT/DEC/TXT/BOOL)--
 
'  **note:  format for ALL variable names saved to file must start with same 4 character prefix i.e. AVCS_MyVar1, AVCS_MyVar2**
' ((below is example from VA command action list prior to calling this inline:))
'---------------------------------------------------------------------------------------------
'// Set variable to text contents of save file or text variable (list) depending on parameter(s) used
'Begin Boolean Compare : [AVCS_SFS_LOAD_list] Equals False
'    Set text [~save_file] to [{TXT:AVCS_SFS_SaveFilePath}] (Trim)
'Else
'    Set text [~save_file] to [AVCS_SFS_LOAD_contents] (Trim)
'End Condition
'//
'Begin Text Compare : [~save_file] Does Not Contain '{NEWLINE}'
'    Set text [~save_file] to [~save_file] (Replace '{SPACE}{TXTSUBSTR:~save_file:0:4}' with '(/n){TXTSUBSTR:~save_file:0:4}')
'End Condition
'---------------------------------------------------------------------------------------------
 
 
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 clearVariable as boolean
    dim saveVariable as boolean
    dim variableIndex as integer
    dim countD as integer
    dim countC as integer
    dim contents() as string
    dim entry() as string
    
    Public Sub Main()
        
        if VA.GetText("~save_file") IsNot nothing
            
            'Check and Set Clear/Save Parameter Variables
            if VA.GetBoolean("AVCS_SFS_LOAD_clear") IsNot nothing
                clearVariable = VA.GetBoolean("AVCS_SFS_LOAD_clear")
            end if
            if VA.GetBoolean("AVCS_SFS_LOAD_save") IsNot nothing
                saveVariable = VA.GetBoolean("AVCS_SFS_LOAD_save")
            end if
            
            'Split contents of save file into single lines separated by the newline or (/n)
            if VA.GetText("~save_file").Contains(vbNewLine)
                contents = VA.GetText("~save_file").Split(new string() {Environment.NewLine},StringSplitOptions.None)
            else
                contents = VA.GetText("~save_file").Split(new string() {"(/n)"},StringSplitOptions.None)
            end if
            
            'In each line, isolate Var Name/Val via '=' and Eval entry value for data type
            for each line as string in contents
                
                entry = line.Split("=")
                
                if(entry(1).Contains ("."))
                    countD = entry(1).Split(".").Length -1
                else
                    countD = 0
                end if
                if(entry(1).Contains (","))
                    countC = entry(1).Split(",").Length -1
                else
                    countC = 0
                end if
                
                'Use Comma and Decimal Count to check data type for casting as Int or Dec
                if((IsNumeric(entry(1))) and (((countD = 1) and (countC = 0)) or ((countD = 0) and (countC = 1)) or ((countD = 0) and (countC = 0))))
                
                    if(entry(1).Contains (".") or entry(1).Contains (","))
                    
                        ' Attempt to Handle International Decimal Separator
                        if(entry(1).Contains (","))
                            entry(1) = Replace(entry(1), ",", ".")
                        end if
                        
                        ' Entry is a DECIMAL Type
                        if((clearVariable) and (saveVariable))
                            ' Prepare Decimal Var for SaveToProfile command, clearing from Profile completely
                            variableIndex = variableIndex + 1
                            VA.SetText("~~varType" + variableIndex.ToString(), "DEC")
                            VA.SetText("~~varName" + variableIndex.ToString(), entry(0))
                        elseif(saveVariable)
                            ' Prepare Decimal Var for SaveToProfile command
                            variableIndex = variableIndex + 1
                            VA.SetText("~~varType" + variableIndex.ToString(), "DEC")
                            VA.SetText("~~varName" + variableIndex.ToString(), entry(0))
                            VA.SetText("~~varValue" + variableIndex.ToString(), entry(1))
                        elseif(clearVariable)
                            ' Clear Decimal Var directly from Profile
                            VA.SetDecimal(entry(0), nothing)
                        else
                            ' Load Decimal Var directly to Profile
                            VA.SetDecimal(entry(0), entry(1))
                        end if
                        
                    else
                    
                        ' Entry is an INTEGER Type
                        if((clearVariable) and (saveVariable))
                            ' Prepare Integer Var for SaveToProfile command, clearing from Profile completely
                            variableIndex = variableIndex + 1
                            VA.SetText("~~varType" + variableIndex.ToString(), "INT")
                            VA.SetText("~~varName" + variableIndex.ToString(), entry(0))
                        elseif(saveVariable)
                            ' Prepare Integer Var for SaveToProfile command
                            variableIndex = variableIndex + 1
                            VA.SetText("~~varType" + variableIndex.ToString(), "INT")
                            VA.SetText("~~varName" + variableIndex.ToString(), entry(0))
                            VA.SetText("~~varValue" + variableIndex.ToString(), entry(1))
                        elseif(clearVariable)
                            ' Clear Integer Var directly from Profile
                            VA.SetInt(entry(0), nothing)
                        else
                            ' Load Integer Var directly to Profile
                            VA.SetInt(entry(0), entry(1))
                        end if
                        
                    end if
                
                'if entry(1) is NOT Numeric--------------------------   
                elseif((LCase (entry(1)) = "true") or (LCase (entry(1)) = "false"))
                
                    ' Entry is a BOOLEAN Type
                    if((clearVariable) and (saveVariable))
                        ' Prepare Boolean Var for SaveToProfile command, clearing from Profile completely
                        variableIndex = variableIndex + 1
                        VA.SetText("~~varType" + variableIndex.ToString(), "BOOL")
                        VA.SetText("~~varName" + variableIndex.ToString(), entry(0))
                    elseif(saveVariable)
                        ' Prepare Boolean Var for SaveToProfile command
                        variableIndex = variableIndex + 1
                        VA.SetText("~~varType" + variableIndex.ToString(), "BOOL")
                        VA.SetText("~~varName" + variableIndex.ToString(), entry(0))
                        VA.SetText("~~varValue" + variableIndex.ToString(), entry(1))
                    elseif(clearVariable)
                        ' Clear Boolean Var directly from Profile
                        VA.SetBoolean(entry(0), nothing)
                    else
                        ' Load Boolean Var directly to Profile
                        VA.SetBoolean(entry(0), entry(1))
                    end if
                    
                else
                
                    ' Entry is a TEXT Type
                    if((clearVariable) and (saveVariable))
                        ' Prepare Text Var for SaveToProfile command, clearing from Profile completely
                        variableIndex = variableIndex + 1
                        VA.SetText("~~varType" + variableIndex.ToString(), "TXT")
                        VA.SetText("~~varName" + variableIndex.ToString(), entry(0))
                    elseif(saveVariable)
                        ' Prepare Text Var for SaveToProfile command
                        variableIndex = variableIndex + 1
                        VA.SetText("~~varType" + variableIndex.ToString(), "TXT")
                        VA.SetText("~~varName" + variableIndex.ToString(), entry(0))
                        VA.SetText("~~varValue" + variableIndex.ToString(), entry(1))
                    elseif(clearVariable)
                        ' Clear Text Var directly from Profile
                        VA.SetText(entry(0), nothing)
                    else
                        ' Load Text Var directly to Profile
                        VA.SetText(entry(0), entry(1))
                    end if
                    
                end if
            next 'loop around to the next entry value
            
            if(variableIndex > 0) 
                ' Set Max Count of Vars prepared for SaveToProfile command func, execute as sub-command, wait for completion
                VA.SetInt("~~varIndex", variableIndex.ToString())
                vaProxy.Command.Execute ("f_sfs_to_profile", true, true)
            end if
        
        end if
    
    End Sub
End Class
 
' -- end of inline function --
 
 
' ((below is example from VA command action list for the 'f_sfs_to_profile' command executed at end of inline:))
'---------------------------------------------------------------------------------------------
'
'Start Loop : Repeat From 1 to [~~varIndex]
    'Set text [~type] to '{TXT:~~varType{INT:~i}}'
    'Begin Text Compare : [~type] Equals 'BOOL'
        'Begin Boolean Compare : [AVCS_SFS_LOAD_clear] Equals True
            'Set Boolean [{TXT:~~varName{INT:~i}}] to [Not Set] (save value to profile)
        'Else
            'Convert text [~~varValue{INT:~i}] to true/false (boolean) [{TXT:~~varName{INT:~i}}]
            'Set Boolean [{TXT:~~varName{INT:~i}}] to [{TXT:~~varName{INT:~i}}] (save value to profile)
        'End Condition
    'Else If Text Compare : [~type] Equals 'TXT'
        'Begin Boolean Compare : [AVCS_SFS_LOAD_clear] Equals True
            'Set text [{TXT:~~varName{INT:~i}}] to [Not Set] (save value to profile)
        'Else
            'Set text [{TXT:~~varName{INT:~i}}] to '{TXT:~~varValue{INT:~i}}' (save value to profile)
        'End Condition
    'Else If Text Compare : [~type] Equals 'DEC'
        'Begin Boolean Compare : [AVCS_SFS_LOAD_clear] Equals True
            'Set decimal [{TXT:~~varName{INT:~i}}] value to [Not Set] (save value to profile)
        'Else
            'Set decimal [{TXT:~~varName{INT:~i}}] value to the converted value of {TXT:~~varValue{INT:~i}} (save value to profile)
        'End Condition
    'Else If Text Compare : [~type] Equals 'INT'
        'Begin Boolean Compare : [AVCS_SFS_LOAD_clear] Equals True
            'Set integer [{TXT:~~varName{INT:~i}}] value to [Not Set] (save value to profile)
        'Else
            'Set integer [{TXT:~~varName{INT:~i}}] value to the converted value of {TXT:~~varValue{INT:~i}} (save value to profile)
        'End Condition
    'End Condition
'End Loop
'//