#----- 初期データ生成 -----
a = createArray()
a = splitString("りんご,みかん,ばなな,いちご,すいか", ",")

b = createArray()
b = splitString("3,2,0,4,1", ",")

i = 0; ilen = getArrayLength(b)
while i < ilen
  b[i] = toNumber(b[i])
  i = i + 1
end

#------ 表示用配列の生成 ------
a_view = createArray()
a_no = createArray()

i = 0; j = 0; ilen = getArrayLength(a)
while i < ilen
  #所有数が0より多いかどうか
  if b[i] > 0
    a_view[j] = a[i]
    a_no[j] = i
    j = j + 1
  end
  i = i + 1
end
a_view[j] = "キャンセル"
a_no[j] = (-1)

#----- 選択肢の表示 -----
select = (-1)
if j == 0
  speak("選択できるものがありません")
else
  select = speakWithSelectArray(a_view, "選択してください")
  if a_no[select] > (-1)
    speak(a[a_no[select]] + "を選択しました")
  else
    speak("選択をキャンセルしました")
  end
end

#----- 初期データ生成 -----
a = createArray()
a = splitString("りんご,みかん,ばなな,いちご,すいか", ",")

b = createArray()
b = splitString("3,2,0,4,1", ",")

i = 0; ilen = getArrayLength(b)
while i < ilen
  b[i] = toNumber(b[i])
  i = i + 1
end

#------ 表示用配列の生成 ------
a_view = createArray()
a_no = createArray()

i = 0; j = 0; ilen = getArrayLength(a)
while i < ilen
  #所有数が0より多いかどうか
  if b[i] > 0
    a_view[j] = a[i]
    a_no[j] = i
    j = j + 1
  end
  i = i + 1
end
a_view[j] = "キャンセル"
a_no[j] = (-1)

#----- 選択肢の表示 -----
select = (-1)
if j == 0
  speak("選択できるものがありません")
else
  select = speakWithSelectArray(a_view, "選択してください")
  if a_no[select] > (-1)
    speak(a[a_no[select]] + "を選択しました")
  else
    speak("選択をキャンセルしました")
  end
end