AVCS_SaveToFile - Save VoiceAttack variables to file

' Save File System Inline-Function for VoiceAttack -  Save Variables to Text File (or Delete)
'  by SemlerPDX Apr2020
'  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 entryDeleted as boolean
    dim entryChanged as boolean
    dim entryAdded as boolean
    dim deleteVariable as boolean
    dim requestVarName as string
    dim requestVarValue as string
    dim contents() as string
    dim entry() as string
    dim entryFinal as string
    dim saveFinal as string
    dim contentsFinal as new List(of string)


    Public Sub Main()

        'Check and Set Delete Parameter Variables
        if VA.GetBoolean("AVCS_SFS_DELETE_saved") IsNot nothing
            deleteVariable = VA.GetBoolean("AVCS_SFS_DELETE_saved")
        else
            deleteVariable = false
        end if

        'Check and Set Requested Name Parameter Variables
        if VA.GetText("~change_request_var_name") IsNot nothing
            requestVarName = VA.GetText("~change_request_var_name")
            'VA.WriteToLog(requestVarName)
        end if

        'Check and Set Requested Value Parameter Variables
        if VA.GetText("~change_request_var_value") IsNot nothing
            requestVarValue = VA.GetText("~change_request_var_value")
            'VA.WriteToLog(requestVarValue)
        end if

        if VA.GetText("~save_file") IsNot nothing
            if VA.GetText("~save_file").Contains(requestVarName)

                'Split contents of save file into single lines separated by the newline
                if VA.GetText("~save_file").Contains(vbNewLine)
                    contents = VA.GetText("~save_file").Split(new string() {Environment.NewLine},StringSplitOptions.None)

                    'File contains this request somewhere, go through each line to find it
                    for each line as string in contents

                        if not(line = "")
                            if (deleteVariable)
                                'Add any lines not containing delete request to new list
                                if (line.Contains(requestVarName))
                                    entryDeleted = true
                                else
                                    contentsFinal.Add(line)
                                end if
                            else
                                'If this line contains the requested variable
                                if(line.Contains (requestVarName))
                                    'Split this line and compare value to change request
                                    entry = line.Split("=")

                                    'if ((not(entry(1).Contains(requestVarValue))) or (not(entry(1).StartsWith(requestVarValue))))
                                    if ((not(entry(1).Contains(requestVarValue))) or (not(entry(1).StartsWith(requestVarValue))) or (not(entry(1).EndsWith(requestVarValue))))
                                        entry(1) = entry(1).Replace(entry(1),requestVarValue)
                                        entryChanged = true
                                    end if
                                    'Add each entry to new list if changed or not
                                    entryFinal = entry(0) + "=" + entry(1)
                                    contentsFinal.Add(entryFinal)
                                else
                                    contentsFinal.Add(line)
                                end if
                            end if
                        end if

                    next 'loop around to next line
                else
                    'If the save file is one line containing this entry
                    dim line as string = VA.GetText("~save_file")
                    if not(line = "")
                        'Split this line and compare value to change request
                        entry = line.Split("=")
                        if not(entry(1).Contains(requestVarValue))
                            entry(1) = entry(1).Replace(entry(1),requestVarValue)
                            entryChanged = true
                        end if
                        'Add entry to new list if changed or not
                        entryFinal = entry(0) + "=" + entry(1)
                        contentsFinal.Add(entryFinal)
                    end if
                end if
                '------------------------------------------------------------------------------------------
                '--end of check where file contains requested var already and has one or more lines-----------
                '------------------------------------------------------------------------------------------
            else
                'Else (if) file does NOT contain RequestVarName
                if not(deleteVariable)
                    'Split contents of save file into single lines separated by the newline
                    if VA.GetText("~save_file").Contains(vbNewLine)
                        contents = VA.GetText("~save_file").Split(new string() {Environment.NewLine},StringSplitOptions.None)
                        'Add each line to the final list, and the new request at the end
                        for each line as string in contents
                            if not(line = "")
                                contentsFinal.Add(line)
                            end if
                        next
                        'Moved this out of the above if not .Add portion above, otherwise many duplicates added?
                        entryFinal = requestVarName + "=" + requestVarValue
                        contentsFinal.Add(entryFinal)
                        'entryChanged = true  (disabled June)
                        entryAdded = true
                    else
                        'If the save file is one line
                        dim line as string = VA.GetText("~save_file")
                        if not(line = "")
                            'If that one line has contents (not containing requested var name)
                            contentsFinal.Add(line)
                        end if
                        'Enter new requested save variable to contents
                        entryFinal = requestVarName + "=" + requestVarValue
                        contentsFinal.Add(entryFinal)
                        'entryChanged = true  (disabled June - changed to Added)
                        entryAdded = true
                    end if
                end if
                '------------------------------------------------------------------------------------------
                '--end of check where file does not contain requested var already and has one or more lines---
                '------------------------------------------------------------------------------------------
            end if
        else
            'If ~save_file is 'nothing' then add the request
            if not (deleteVariable)
                entryFinal = requestVarName + "=" + requestVarValue
                contentsFinal.Add(entryFinal)
                entryChanged = true
            end if
        '----------------------------------------------------------------------------------------------------
        '--end of redundant check where file does not contain any lines yet or is somehow non-existent---------
        '----------------------------------------------------------------------------------------------------
        end if

        'Tranform new list back into string with newline placeholders for VA.proxy SetText
        if not(contentsFinal.ToString() = "")
            'Remove duplicate lines added through the line-by-line re-assembly above
            contentsFinal = contentsFinal.Distinct().ToList()
            saveFinal = ""
            for each newline as string in contentsFinal
                saveFinal = newline + "(/n)" + saveFinal
            next
        else
            if VA.GetText("~save_file") IsNot nothing
                saveFinal = VA.GetText("~save_file")
            else
                saveFinal = ""
            end if
        end if

        VA.SetText("~save_file", saveFinal)

        if(entryDeleted)
            VA.SetBoolean("~entry_deleted", true)
        end if

        if(entryChanged)
            VA.SetBoolean("~entry_changed", true)
        end if

        if(entryAdded)
            VA.SetBoolean("~entry_added", true)
        end if

    End Sub
End Class