HSPTV!掲示板

度々の投稿です。県名を2種類（1.北海道〜滋賀県と2.京都府〜沖縄県）
に分けたとして、購入したときに、2つの　combox　に仕分けするようにしたいと思っています。

どうか、教えてください。
よろしくお願いいたします。（下記に作成したデータを載せます）

#module

#defcfunc fun_GetKenName int ken_id
if kens=0 {//fun_GetKenNameの度に県名入れるのは無駄なので
sdim kens;
kens(0) = "北海道","青森県","岩手県","宮城県","秋田県"
kens(5) = "山形県","福島県","茨城県","栃木県","群馬県"
kens(10) = "埼玉県","千葉県","東京都","神奈川県","新潟県"
kens(15) = "富山県","石川県","福井県","山梨県","長野県"
kens(20) = "岐阜県","静岡県","愛知県","三重県","滋賀県"
kens(25) = "","","","",""
kens(30) = "京都府","大阪府","兵庫県","奈良県","和歌山県"
kens(35) = "鳥取県","島根県","岡山県","広島県","山口県"
kens(40) = "徳島県","香川県","愛媛県","高知県","福岡県"
kens(45) = "佐賀県","長崎県","熊本県","大分県","宮崎県"
kens(50) = "鹿児島県","沖縄県"
}
ken_name = kens(ken_id)
return ken_name
#global

onerror *jj ;エラーが出た場合飛ぶ

iddat=0,5,7,1,10,6,9,20
kenString=""

repeat length(iddat)
id=iddat(cnt)
kenString+fun_GetKenName(id) + "\n"
ken_id(cnt)=id //県IDを県名順に保存(listboxの順番と県IDをセットにする)
loop

ken_index = 0
listbox ken_index,100,kenString : lb_ID = stat
hListbox = objinfo(stat, 2)

cb_flag = 0 ; comboxが表示中かどうかのフラグ
button gosub "購入", *check
stop

*check
notesel kenString
noteget getlist, ken_index

; アイテムの頭に印があれば処理を中断
cstr = strmid(getlist, 0, 2)
if cstr = "※" : dialog "購入済です" : return

notesel combdata
noteadd Getlist

; comboxが非表示なら表示、表示中なら内容を書き換え
if cb_flag = 0 {
b = 0
combox b,100,combdata : cb_ID = stat
cb_flag = 1
} else {
objprm cb_ID, combdata
objprm cb_ID, 0
}

; 購入したアイテムに印をつける
notesel kenString
noteadd "購入済" + getlist, ken_index, 1
objprm lb_ID, kenString
objprm lb_ID, ken_index

return

*jj

ken_idに県名IDが入ってるんだから
ken_id(ken_index)が京都府ID以上か未満で別ければ良いだけじゃ？

/*ご参考(改)*/

#module
#defcfunc fun_GetKenName int ken_id,local ss
       if (vartype(kens) != 2) {
           kens  = {"北海道\n青森県\n岩手県\n宮城県\n秋田県\n山形県\n福島県\n茨城県\n栃木県\n群馬県
                     埼玉県\n千葉県\n東京都\n神奈川県\n潟県\n富山県\n石川県\n福井県\n山梨県\n長野県
                     岐阜県\n静岡県\n愛知県\n三重県\n滋賀県\n京都府\n大阪府\n兵庫県\n奈良県\n和歌山県
                     鳥取県\n島根県\n岡山県\n広島県\n山口県\n徳島県\n香川県\n愛媛県\n高知県\n福岡県
                     佐賀県\n長崎県\n熊本県\n大分県\n宮崎県\n鹿児島県\n沖縄県"}}
       if (ken_id >=  0) {split kens,"\n",ss :ss = ss(ken_id)} else {ss = kens}
return  ss
#global
                                         :ss        = fun_GetKenName(-1)
       objsize 100
       listbox ken_index,100,ss          :lb_ID     = stat
                                         :hListbox  = objinfo(stat,2)
       button "購入", *check             :position  = ginfo_cx,ginfo_cy               ;
                                         :combdata  = "",""                           ;
                                         :cb_ID     = 0,0                             ;
                                         :cb_index  = 0,0                             ;
                                         :cb_flag   = 0,0                             ;
                                         :ken_index = 25                              ;LB_SETCURSEL
                                         :ii        = 0                               ;
       sendmsg hListbox,$186,25                                                       ;
stop
*check
       if (flag(ken_index/47) and (1<<(ken_index&47))) {goto *@f}
           flag(ken_index/47) |=   1<<(ken_index&47)
       if (ken_index   >= 25) {ii = 1} else {ii = 0}                                  ;
       if (cb_flag(ii) ==  0) {pos position+(ii*100),position(1)                      ;
                           combox cb_index(ii),100,combdata(ii) :cb_ID(ii) = stat :cb_flag(ii) = 1}
       notesel combdata(ii)              :noteadd fun_GetKenName(ken_index)
       sendmsg hListbox,$182,ken_index   :ss        = "※"+fun_GetKenName(ken_index)  ;LB_DELETESTRING
       sendmsg hListbox,$181,ken_index,varptr(ss)                                     ;LB_INSERTSTRING
       sendmsg hListbox,$186,ken_index                                                ;
       objprm cb_ID(ii),combdata(ii)     :objprm cb_ID(ii), 0
       await
       sendmsg objinfo(cb_ID(ii),2),$14F,1                                            ;CB_SHOWDROPDOWN
*@

返事遅くなりましたができました。
暇人さんありがとうございます。
fortunehillさん　まだそこまで纏める技量がないので参考にします。

後、次にできなかったことがあるので改めて質問します。

以上