AutoHotkey Community

list =
(
aa
bbbbb
dddd
eeee
tadd
egg
mad
canibal
ddd
rteter
egglo
hhhhhhr
rtrrtrtr
)

function(4, list)
return

function(var, list)
{
StringSplit, ListArray, list, `n`r
Loop
{
random, selected, 1, %ListArray0%
check := ListArray%selected%
if check !=
{
show = %show%`n%check%
ListArray%selected% =
x++
}
if (x = var)
break
}

msgbox, %show%
}

var=
(
aa
bbbbb
dddd
eeee
tadd
egg
mad
canibal
ddd
rteter
egglo
hhhhhhr
rtrrtrtr
)

!j::MsgBox % rItems(6,var)

/*
no - the number of items to retrieve from the list
input - the list variable to retrieve the items from
*/

rItems(no,input) {

  VarSetCapacity(res,0)

  Sort, input, Random
  Loop, Parse, input, `n, `r
  {
    if (A_Index > no)
      break
    else
      res .= A_LoopField "`n"
  }
  return res,VarSetCapacity(input,0)

}

varList =
(
aa
bbbbb
dddd
egggyy
eeee
tadd
egg
mad
canibal
ddd
rteter
egglo
hhhhhhr
rtrrtrtr
)

MsgBox % "4: " GetFromList(4,varList)
MsgBox % "e: " GetFromList("e",varList)
MsgBox % "6: " GetFromList(6,varList)
MsgBox % "d: " GetFromList("d",varList)
return

;-----------------------------------------------

GetFromList(what,list,din="`n`r",dout=", ",remdup=0,csen=0)
; what = number or substring
; list = input list
; din = delimiter (input)
; dout = delimiter (output)
; remdup = remove duplicates?
; csen = case sensitive?
{
  remdup := ( remdup ? "U" : "" )
  If what is number
  {
    Sort, list, D%din% Random %remdup%
    Loop, Parse, list, %din%, %din%
    {
      res .= ( res<>"" ? dout : "" ) A_LoopField
      If ( A_Index = what )
        break
    }
  }
  Else
  {
    Sort, list, % "D" din " " remdup ( csen ? " C" : "" )
    Loop, Parse, list, %din%, %din%
      If ( InStr(A_LoopField,what,csen) = 1 )
      {
        found := 1
        res .= ( res<>"" ? dout : "" ) A_LoopField
      }
      Else
        If found
          break
  }
  return res
}

;var=aa,bbb,cccc,dd,eee,ffff,gg,hhh,iiii,jj,kkk,llll
var=
(
aa
bbbbb
dddd
eeee
tadd
egg
mad
canibal
ddd
rteter
egglo
hhhhhhr
rtrrtrtr
)

;!j::MsgBox % rItems(4,var,"`,")
!j::MsgBox % rItems(4,var,"`n","`r")
/*
no - number of items to retrieve
input - list variable with the items to be retrieved
delim - item delimiter
omit - omit character (optional)
*/
rItems(no,input,delim,omit="") {

  VarSetCapacity(res,0) ; sets res to blank to check parameters

  StringReplace, max, input, % delim, , UseErrorLevel ; check no. of items by delimiter
  if (ErrorLevel < no)
    return res,VarSetCapacity(max,0) ; if 'no' exceeds ErrorLevel returns nothing, out of bounds
  Sort, input, Random D%delim% ; sorts input randomly by delimiter
  Loop, Parse, input, % delim, % omit
  {
    if (A_Index > no)
      break ; breaks loop once A_Index exceeds no. of items
    else
      res .= A_LoopField "`n"
  }
  return res,VarSetCapacity(max,0)

}