VoiceAttack VB.net Inline Function Examples - Parsing Text File

'Examples on how to use Inline VB functions to parse a text file

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
'These two may be needed for text parsing functions below, not normally listed in a new VB.net Inline Function action through VA
Imports System.Text
Imports System.Text.RegularExpressions

Public Class VAInline
    'This area lets us pre-define variables (and their names) and datatype for use later
    dim dataFinal as new list(of string) ()
    dim contents() as string
    dim entry() as string

    'Example Func:  If needed, before Main and after defines, you can define functions used inside Main (if needed)
    function AddOne(ByVal num1 as integer) as integer
        dim result as integer
        if (not(num1 = 0))
            result = num1 + 1
        end if
        AddOne = result
    end function

    Public Sub Main()
        'This is where all our inline code goes

        'Use of Function Example (from above):
        dim number as integer = 1
        dim number_added as integer = AddOne(number)
        'following this example, the variable 'number_added' will now equal "number" plus 1


        'RULE 1 for Inlines: check everything is valid before performing any operation (isNot null/Contains a thing/is not == "")
        if VA.GetText("~text_file") IsNot nothing

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

                'In each line, isolate text to parse, check if already on list, set Text Variable to line
                for each line as string in contents

                    'Check each line to be sure it is not already been processed / is not empty - This will loop through EACH line until done
                    if ((not(line = "")) and (not(dataFinal.Contains(line))))

                        'By using a list of strings we build at each line, we can avoid duplicates (if needed)
                        dataFinal.Add(line)

                        'EXAMPLE 1:  SIMPLE ENTRY REPLACE
                        'You can transform and parse each line using Replace (if needed)
                        if (line.Contains("<"))
                            line = line.Replace("<", "")
                        end if
                        ' ↑ The example above would replace any "<" characters in this line with nothing (no space, culled completely)

                        'You can split each line further into parts separated by a string/character of your choosing (if needed)
                        if (line.Contains("="))
                            entry = line.Split("=")

                            'NOTE: If you used a split, entry(0) is everything before the split, entry(1) is everything after the split

                            'EXAMPLE 2:  SPLIT ENTRY REPLACE
                            'You can transform and parse each entry using Replace, removing unneeded symbols/syntax
                            if (entry(0).Contains("<"))
                                entry(0) = entry(0).Replace("<", "")
                            end if
                            ' ↑ The example above would replace any "<" characters in entry(0) with nothing (no space, culled completely)

                            'EXAMPLE 2:  REGEX ENTRY REPLACE
                            'You can even change or add text as needed in place of known existing symbols using RegEx
                            dim regex as Regex = new Regex("\d*\.\d*\.\d*\.\d*")
                            ' ↓ example where you can define a variable name/data type while using it, as opposed to pre-defined above
                            dim match as Match = regex.Match(entry(0))
                            if (match.Success)
                                entry(0) = Regex.Replace(entry(0), "\d*\.\d*\.\d*\.\d*", "IP ADDRESS REDACTED")
                            end if
                            ' ↑ The example above would replace anything matching the format of an IP address with the literal text in quotes, "IP ADDRESS REDACTED"

                            'When done, you can set it to a text variable for use elsewhere in VA
                            VA.SetText("~text_entry_final", entry(0).ToString())

                            '--OR-- if using Split, you can address one part of it via (0) or (1)
                            VA.SetText("~text_entry_final", entry(1).ToString())

                        end if

                    end if

                'Loop Around to the next line in contents...
                next

            end if

        end if

    End Sub
End Class