AutoHotkey Community

arr := Array("b", "a", "c") ; create an array with 3 items

arr[2] := "a - new"         ; change 2nd item
arr[1] := "bac"             ; change 1st item

arr.append("new", "items")  ; add 2 more items
arr.insert(2, "xyz")        ; insert "xyz" before the 2nd item ("a - new")

Msgbox, % arr.join("`n")    ; join the array and show it in a msgbox
Msgbox, % arr.append("z").sort().reverse().join("`n")   ; append another item, sort, reverse, join

Loop, % arr.len()
   Msgbox, % arr[A_Index]

files := Array()

Loop, %A_WinDir%\*
   files.append(A_LoopFileName)

Msgbox, % files.sort().join("`n")

text = Recommended for performance and compatibility with future AutoHotkey releases.
StringSplit, textarr, text   ; create an ahk array of characters

textarr := Array().extend("textarr")   ; create an ahk_l array and extend it with the ahk array
Msgbox, % textarr.reverse().join("")

; Array Lib - temp01 - http://www.autohotkey.com/forum/viewtopic.php?t=49736
Array(p1="……", p2="……", p3="……", p4="……", p5="……", p6="……"){
   static ArrBase
   If !ArrBase
      ArrBase := Object("len", "Array_Length", "indexOf", "Array_indexOf", "join", "Array_Join"
      , "append", "Array_Append", "insert", "Array_Insert", "delete", "Array_Delete"
      , "sort", "Array_sort", "reverse", "Array_Reverse", "unique", "Array_Unique"
      , "extend", "Array_Extend", "copy", "Array_Copy", "pop", "Array_Pop")

   arr := Object("base", ArrBase)
   While (_:=p%A_Index%)!="……" && A_Index<=6
      arr[A_Index] := _
   Return arr
}

Array_indexOf(arr, val, opts="", startpos=1){
   P := !!InStr(opts, "P"), C := !!InStr(opts, "C")
   If A := !!InStr(opts, "A")
      matches := Array()
   Loop % arr.len()
      If(A_Index>=startpos)
         If(match := InStr(arr[A_Index], val, C)) and (P or StrLen(arr[A_Index])=StrLen(val))
            If A
               matches.append(A_Index)
            Else
               Return A_Index
   If A
      Return matches
   Else
      Return 0
}
Array_Join(arr, sep="`n"){
   Loop, % arr.len()
      str .= arr[A_Index] sep
   StringTrimRight, str, str, % StrLen(sep)
   return str
}
Array_Copy(arr){
   Return Array().extend(arr)
}

Array_Append(arr, p1="……", p2="……", p3="……", p4="……", p5="……", p6="……"){
   Return arr.insert(arr.len()+1, p1, p2, p3, p4, p5, p6)
}
Array_Insert(arr, index, p1="……", p2="……", p3="……", p4="……", p5="……", p6="……"){
   While (_:=p%A_Index%)!="……" && A_Index<=6
      arr._Insert(index + (A_Index-1), _)
   Return arr
}
Array_Reverse(arr){
   arr2 := Array()
   Loop, % len:=arr.len()
      arr2[len-(A_Index-1)] := arr[A_Index]
   Return arr2
}
Array_Sort(arr, func="Array_CompareFunc"){
   n := arr.len(), swapped := true
   while swapped {
      swapped := false
      Loop, % n-1 {
         i := A_Index
         if %func%(arr[i], arr[i+1], 1) > 0 ; standard ahk syntax for sort callout functions
            arr.insert(i, arr[i+1]).delete(i+2), swapped := true
      }
      n--
   }
   Return arr
}
Array_Unique(arr, func="Array_CompareFunc"){   ; by infogulch
   i := 0
   while ++i < arr.len(), j := i + 1
      while j <= arr.len()
         if !%func%(arr[i], arr[j], i-j)
            arr.delete(j) ; j comes after
         else
            j++ ; only increment to next element if not removing the current one
   Return arr
}
Array_CompareFunc(a, b, c){
   return a > b ? 1 : a = b ? 0 : -1
}

Array_Extend(arr, p1="……", p2="……", p3="……", p4="……", p5="……", p6="……"){
   While (_:=p%A_Index%)!="……" && A_Index<=6
      If IsObject(_)
         Loop, % _.len()
            arr.append(_[A_Index])
      Else
         Loop, % %_%0
            arr.append(%_%%A_Index%)
   Return arr
}
Array_Pop(arr){
   Return arr.delete(arr.len())
}
Array_Delete(arr, p1="……", p2="……", p3="……", p4="……", p5="……", p6="……"){
   While (_:=p%A_Index%)!="……" && A_Index<=6
      arr._Remove(_)
   Return arr
}

Array_Length(arr){
   len := arr._MaxIndex()
   Return len="" ? 0 : len
}

arr := Array()

arr["a"] := "aval"
arr["b"] := "bval"

arr.append("new", "items")  ; add 2 more items

Loop, % arr.len()
   Msgbox, % arr[A_Index]

enum := arr._NewEnum()
while enum[ k, v ]
   MsgBox, 0, Key: %k%, %v%

; ArrBase.__Set := "ArrSetter"
ArrSetter( obj, key ) {
   If IsStr( key ) || ( key<1 ) {
      MsgBox, 16, Array Error, Array Keys must be a Positive Integer
      Return
   }
}
IsStr( in ) {
   Format := A_FormatInteger
   SetFormat, IntegerFast, Hex
   out := SubStr( in:=in, 1, 2 )="0x" ? False : True
   SetFormat, IntegerFast, %Format%
   Return, out
}

Temp := Array()

Temp[1] := "Hello"
Temp[2] := "World"
Temp[3] := "olleH"
Temp[4] := "dlroW"

MsgBox % Temp.Join()

Temp := Array()

Temp[1] := "1101"
Temp[2] := "2407"
Temp[3] := "108"
Temp[4] := "6379"

MsgBox % Temp.Min() . "`n" . Temp.Max()

Array() {
  static ArrBase
  If !ArrBase
    ArrBase := Object("Len","Array_Len","Join","Array_Join","Add","Array_Add","Insert","Array_Insert"
                     ,"Del","Array_Del","Max","Array_Max","Min","Array_Min")

  Return Object("base",ArrBase)
}

Array_Join(Arr,Sep="|") {
  Loop, % Arr.Len()
    Str .= Arr[A_Index] . Sep
  Return SubStr(Str,1,StrLen(Str) - StrLen(Sep))
}

Array_Add(Arr,Val) {
  Return Arr.Insert(Arr.Len() + 1,Val)
}

Array_Insert(Arr,Idx,Val) {
  Return Arr._Insert(Idx,Val)
}

Array_Del(Arr,Val) {
  Arr._Remove(Val)
}

Array_Min(Arr,Mode="Value") {
  Loop, % Arr.Len()
    If (Val = "" || Arr[A_Index] < Val)
      Val := (Mode = "Value") ? Arr[A_Index] : A_Index
  Return Val
}

Array_Max(Arr,Mode="Value") {
  Loop, % Arr.Len()
    If (Val = "" || Arr[A_Index] > Val)
      Val := (Mode = "Value") ? Arr[A_Index] : A_Index
  Return Val
}

Array_Len(Arr) {
  Return Round(Arr._MaxIndex())
}

x := Object("base", Object("Ins", "ObjInsert", "Del", "ObjRemove"))
x.Ins(1, "A")
x.Ins("c")
x.Ins("C")
x.Ins(2, "B")
x.Del(3)
MsgBox % x.1 x.2 x.3

x := Object(1,"A",2,"B",3,"C")
MsgBox % x._Remove() x._Remove() x._Remove()

array := Array( "Test", Array( "A", "H", "K" ), "Array", Array( "2D", "array" ) )
MsgBox, % Array_findIndex( array, "Array" )
MsgBox, % Array_findIndex( array, "array" )

Array_findIndex( arr, val ) {
   enum := arr._newEnum()
   while enum[ k,v ]
      If IsObject( v ) {
         If ( n := Array_findIndex( v, val ) )
            Return, A_Index "," n
      }
      Else If ( val == v )
         Return, k
}

array := Array( "Test", object( 1, "object" ), "Array" )
MsgBox, 0, % "IsObject: " IsObject( array[2] ), % array[2]
MsgBox, % array.indexOf( "" )

o1:=Object(key,"value")
o2:=Object(key,"value2")
string:="test"
array:=Array(o1,o2,string)
index:=array.indexOf(o2) ; index is now 1 instead of 2
index:=array.indexOf(string) ; index is now 3 as it should be for the objects