AutoHotkey Community

Code: Select all

/* This script is in part a result of the threads at
https://www.autohotkey.com/boards/viewtopic.php?f=6&t=4633&p=220326&hilit=clr+arrays+burque505#p220326
(Topic: .NET Framework Interop (CLR, C#, VB)
First, this is NOT an attempt to show the 'right way' to do any .NET programming.

The only real purpose of this is to show that you can dynamically alter C#
or VB programs/scripts before compiling via CLR.ahk.

(There may be some useful program snippets in the code (I hope),
primarily for inserting and removing items, but these aren't anything
you can't find in two minutes with an online search, and they are not the reason for this script.)

Regards,
burque505
*/


#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

gui, add, text, w200, Enter first pre-compilation variable
gui, add, edit, w300 y+5 vMyFirstString
gui, add, text, y+5 w200, Enter second pre-compilation variable
gui, add, edit, w300 y+5 vMySecondString
gui, add, text, y+5 w200, Enter third pre-compilation variable
gui, add, edit, w300 y+5 vMyThirdString
gui, add, text, y+5 w250, The following variables will be used post-compile
gui, add, text, y+10 w200, Enter variable for key "4"
gui, add, edit, w300 y+5 vAdd4
gui, add, text, y+10 w200, Enter variable for key "5"
gui, add, edit, w300 y+5 vAdd5
gui, add, text, y+10 w200, Enter variable to insert at index 5
gui, add, edit, w300 y+5 vAddInsert
gui, add, Button, y+5 Default, Submit
gui show, w350 h330, Dynamic compilation test

return

ButtonSubmit:
Gui, submit

csharp =

(
using System.Collections.Generic;
using System.Windows.Forms;

class Foo
{
    private List<KeyValuePair<int, string>> list = new List<KeyValuePair<int, string>>();
    public void Create()
    {
        // Create List of key-value pairs.

        list.Add(new KeyValuePair<int, string>(1, "%MyFirstString%"));
        list.Add(new KeyValuePair<int, string>(2, "%MySecondString%"));
        list.Add(new KeyValuePair<int, string>(3, "%MyThirdString%"));
        // These AHK variables will be expanded before compilation.

        // Loop over pairs.
        foreach (KeyValuePair<int, string> pair in list)
        {
            // Get key.
            int key = pair.Key;
            // Get value.
            string value = pair.Value;
            // Display.
            MessageBox.Show(key.ToString() + " " + value.ToString());
        }
    }

    public void Add(int key, string val)
    {
        list.Add(new KeyValuePair<int, string>(key, val));
    }

    public void Insert(int index, int key, string val)
    {
        list.Insert(index, new KeyValuePair<int, string>(key, val));
    }

    public void RemoveAt(int index)
    {
        list.RemoveAt(index);
    }
    
        public void Remove(int key, string val)
    {
        list.Remove(new KeyValuePair<int, string>(key, val));
    }


    public void Show()
    {
        string myString = "";
        foreach (KeyValuePair<int, string> pair in list)
        {
            // Get key.
            int key = pair.Key;
            // Get value.
            string value = pair.Value;
            // Display.
            myString += pair.Value + " ";
        }
        // Display.
        MessageBox.Show(myString);
    }
}

)


msgbox %csharp% 
/*  Uncomment the line above if you want to be sure
    that the variables are actually being expanded.
*/

asm := CLR_CompileC#(csharp,"System.dll|System.Windows.Forms.dll|System.Collections.dll")
obj := CLR_CreateObject(asm,"Foo")
; First create a list of k/v pairs with some members initialized
obj.Create()
; Add a couple of key-value pairs
obj.Add(4, Add4)
obj.Add(5, Add5)
; Now, convert the values to a string and display.
obj.Show()
; list.Insert() takes (int, int, string)
obj.Insert(5, 6, AddInsert)
obj.Show()
; list.RemoveAt operates on the index, NOT the key,
; so this will remove the fifth element of the
; list, NOT the fourth (zero-based index).
obj.Remove(6, AddInsert)
obj.Show()
obj.RemoveAt(4)
obj.Show()

ExitApp

Escape::
guiclose:
ExitApp

Code: Select all

asm := CLR_CompileC#(csharp,"System.dll|System.Windows.Forms.dll|System.Collections.dll")
obj := CLR_CreateObject(asm,"Foo")
; First create a list of k/v pairs with some members initialized
obj.Create()
; Add a couple of key-value pairs
obj.Add(4, Add4)

Code: Select all

        list.Add(new KeyValuePair<int, string>(1, "%MyFirstString%"));
        list.Add(new KeyValuePair<int, string>(2, "%MySecondString%"));
        list.Add(new KeyValuePair<int, string>(3, "%MyThirdString%"));
        // These AHK variables will be expanded before compilation.