AutoHotkey Community

items := Array()
itemnames := Array()
Loop % doc.Folder.Items.Count
{
   items.append(doc.Folder.Items.Item(A_Index - 1))
   itemnames.append(items[A_Index].Name)
   Sleep 10
}
Loop % Select.len()
{
   filter := Select[A_Index]
   If filter <>
   {
      If(InStr(filter, "*"))
      {
         filter := "\Q" StringReplace(filter, "*", "\E.*\Q", 1) "\E"
         filter := strTrim(filter,"\Q\E")
         Loop % items.len()
         {
            if(RegexMatch(itemnames[A_Index],"i)" filter))
            {
               COM_Invoke(doc,"SelectItem",items[A_Index],index=1 ? value1 : value) ;http://msdn.microsoft.com/en-us/library/bb774047(VS.85).aspx               
               index++
               ;Sleep 10
            }
         }
      }
      else
         COM_Invoke(doc,"SelectItem",doc.Folder.ParseName(filter),(A_Index=1 ? value1 : value)) ;http://msdn.microsoft.com/en-us/library/bb774047(VS.85).aspx               
   }
}

count := doc.Folder.Items.Count
Loop % count

COM_Init() ; Initialize COM.
d := COM_CreateObject("Scripting.Dictionary") ; Create dictionary.
d.Item("a", "Athens")
MsgBox % d.Item("a")
COM_Release(d) ; Done using dictionary d.
      
d := COMObjCreate("Scripting.Dictionary") ; Create dictionary.
d.Item("a", "Athens") ;Error:  0x8002000E - Invalid number of parameters.
d.Item("a") := "Athens" ;works fine
MsgBox % d.Item("a")

x:=ComObjCreate("ScriptControl"), x.Language:="jScript", a:=x.Eval("a=[1,2]")

loop, % a.length {
   MsgBox, % a[A_Index-1] ; <-- Error:  0x80020006 - Unknown name.
   ; MsgBox, % a[n:=A_Index-1] ; works fine for both
   ; MsgBox, % a["" A_Index-1] ; works fine for both
}

MsgBox, % a[0] . "|" . a["0"]
MsgBox, % a[1] . "|" . a["1"]

Could not extract script from .EXE

Error at line 66.

The following variable name contains an illegal character:
".Name"

The program will exit.