mieki256's diary

; 三項演算子のテスト

a=D

; OK
b := a="D" ? 1 : 0     ;=> 1
MsgBox % b

; NG
b := a=D ? 1 : 0       ;=> 0
MsgBox % b

; NG
b = a=D ? 1 : 0        ;=> a=D ? 1 : 0
MsgBox % b

ExitApp

~!Q::
  ExitApp

• StringSplitで配列にした場合。
• Object() を配列のように使った場合。

; StringSplit を利用して文字列を分割、配列にする例
; 結果は、Object を使った配列相当とは違う種類の配列になる模様

inputvar := "Pen Pineapple Apple Pen"
StringSplit, outvar, inputvar, %A_space%

; Display the length of the array. 配列の長さを表示
MsgBox % outvar0           ; OK
MsgBox % outvar.MaxIndex() ; NG
MsgBox % outvar.length()   ; NG

; Display elements of an array. 配列の要素を表示
MsgBox % outvar2    ; OK
MsgBox % outvar[2]  ; NG

; Loop, Parse を利用して文字列を分割、配列にする例
; Objectを配列相当として扱う

inputvar := "Pen Pineapple Apple Pen"
outvar := Object()
Loop, Parse, inputvar, %A_space%
  outvar.Insert(A_LoopField)

; Display the length of the array. 配列の長さを表示
MsgBox % outvar0           ; NG
MsgBox % outvar.MaxIndex() ; OK
MsgBox % outvar.length()   ; OK

; Display elements of an array. 配列の要素を表示
MsgBox % outvar2    ; NG
MsgBox % outvar[2]  ; OK

; スペース区切りの文字列を分割してObject()を連想配列として扱いつつ記録していく例
; Object() へアクセスする記述もテスト

ks=a b c d e `, -

ks := Trim(ks, " ")
cnt = 9000

lst_a := Object()
lst_b := Object()

; like StringSplit
Loop, Parse, ks, %A_space%
{
  k=%A_LoopField%
  v=%k%
  lst_a.Insert(k, v)          ; a: "a"  
  lst_b.Insert(k, cnt)        ; a: 9000
  cnt+=1
}

For k, v in lst_a
{
  If lst_b[k]=9002
  {
    s := k . " : " . lst_b[k]
    MsgBox % s
  }
}