HSPTV!掲示板

一部のデータで申し訳ありませんが、下記の文字をID登録して

その選んだIDをlistboxに表示させる方法を教えてください。

list_name(0) = "なし","あ","い","う","え"
list_name(5) = "お","か","き","く","け"

参考になるサンプルがあったので掲載します。
下記は、上から順に並んでいますがの県のアドレスを選んだものだけ
listboxに表示させたいと思っています。
よろしくお願いします。


//**************************************************************
// 都道府県IDを渡すと都道府県名を返す
//
// 引数　：(1)kne_name 結果を格納する変数
// (2)ken_id 都道府県ID
// 戻り値：都道府県名
//**************************************************************
#module
#defcfunc fun_GetKenName int ken_id
sdim kens;
kens(0) = "北海道","青森県","岩手県","宮城県","秋田県"
kens(5) = "山形県","福島県","茨城県","栃木県","群馬県"
kens(10) = "埼玉県","千葉県","東京都","神奈川県","新潟県"
kens(15) = "富山県","石川県","福井県","山梨県","長野県"
kens(20) = "岐阜県","静岡県","愛知県","三重県","滋賀県"
kens(25) = "京都府","大阪府","兵庫県","奈良県","和歌山県"
kens(30) = "鳥取県","島根県","岡山県","広島県","山口県"
kens(35) = "徳島県","香川県","愛媛県","高知県","福岡県"
kens(40) = "佐賀県","長崎県","熊本県","大分県","宮崎県"
kens(45) = "鹿児島県","沖縄県"
ken_name = kens(ken_id)
return ken_name
#global
//**************************************************************
// 各都道府県を「\n」で区切った文字列を取得
//
// 引数　：
// 戻り値：都道府県名を「\n」で区切った文字列
//**************************************************************
#module
#defcfunc fun_KenString
kens = ""
ken_name = ""
repeat 47
ken_name = fun_GetKenName (cnt)
kens += ken_name + "\n"
loop
return kens
#global

objsize 100,150
kenString = fun_KenString()
pos 150,140 :combox ken_id,100,kenString
stop

いまいち質問の意味が分からないが・・・

#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) = "鹿児島県","沖縄県"
	}
	ken_name = kens(ken_id)
return ken_name
#global

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

listbox ken_index,100,kenString

ken_index_bak=-1
repeat
await 16
if ken_index ! ken_index_bak {
	id=ken_id(ken_index)
	title "ken_index="+ken_index+"  ken="+fun_GetKenName(id)+"  id="+id}
loop

stop

こういう事のような気がします。

//**************************************************************
// 都道府県IDを渡すと都道府県名を返す
//
// 引数　：(1)kne_name 結果を格納する変数
// (2)ken_id 都道府県ID
// 戻り値：都道府県名
//**************************************************************
#module
#defcfunc fun_GetKenName int ken_id
	sdim kens;
	kens(0) = "北海道","青森県","岩手県","宮城県","秋田県"
	kens(5) = "山形県","福島県","茨城県","栃木県","群馬県"
	kens(10) = "埼玉県","千葉県","東京都","神奈川県","新潟県"
	kens(15) = "富山県","石川県","福井県","山梨県","長野県"
	kens(20) = "岐阜県","静岡県","愛知県","三重県","滋賀県"
	kens(25) = "京都府","大阪府","兵庫県","奈良県","和歌山県"
	kens(30) = "鳥取県","島根県","岡山県","広島県","山口県"
	kens(35) = "徳島県","香川県","愛媛県","高知県","福岡県"
	kens(40) = "佐賀県","長崎県","熊本県","大分県","宮崎県"
	kens(45) = "鹿児島県","沖縄県"
	ken_name = kens(ken_id)
	return ken_name
#global
//**************************************************************
// 各都道府県を「\n」で区切った文字列を取得
//
// 引数　：
// 戻り値：都道府県名を「\n」で区切った文字列
//**************************************************************
#module
#defcfunc fun_KenString
	kens = ""
	ken_name = ""
	repeat 47
		ken_name = fun_GetKenName (cnt)
		kens += ken_name + "\n"
	loop
	return kens
#global
	
	objsize 100,150
	kenString = fun_KenString()
	pos 150,140 :combox ken_id,100,kenString
	
	notesel lb
	pos 300, 100
	listbox lb_st, 100, lb
	lb_id = stat
	
	pos 150, 160
	objsize 100, 24
	button "選択", *select
	stop

*select
	notesel kenString
	noteget cb_tmp, ken_id
	notesel lb
	noteadd str(cb_tmp)
	
	objprm lb_id, lb
	noteunsel
	stop

暇人さん、ありさん　わかりづらい説明の中回答ありがとうございました。

一応、暇人さんの答えが自分のやりたいことに近いようです。
ありさんの回答は、やりたいことの続きで使えそうなので参考にさせて頂きます。
ありがとうございました。