//**************************************************************
//				都道府県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
;********************************************************
;■検索文字列に一致したすべての文字列を置換する
;
; 引数: (1)p_search　　検索対象の文字列
;   (2)p_replace 　置き換え文字列
;   (3)p_subject　 元の文字列
; 
; 戻り値：str_subject    置換後の文字列
;********************************************************
#module
#defcfunc str_replace str p_search  , str p_replace ,str p_subject
    str_subject = p_subject
    pre_position = 0
    repeat
        ;置換対象(p_search)の文字位置を求める。
        position = instr(str_subject,pre_position,p_search)
        if ( position == -1 ) : break
        position += pre_position
        ;置換対象(p_search)の前までの文字列を求める。
        pre_subject = strmid(str_subject,0,position)
        ;置換対象(p_search）より後の文字列を求める
        rest_subject = strmid(str_subject,position+strlen(p_search),strlen(str_subject))
        ;置換後の文字 = 前　+　置換文字　+　後 
        str_subject = pre_subject + p_replace + rest_subject
        ;現ポジションを維持
        pre_position = position
        await
    loop
return str_subject
#global
;********************************************************
;■半角カンマを全角カンマ、「\n」を「<br/>」に置換する
;
; 引数: (1)pre_subject　　置換前の文字列
; 
; 戻り値：after_subject    置換後の文字列
;********************************************************
#module
#defcfunc fun_saveAmend str pre_subject
    after_subject = pre_subject
    ;半角カンマを全角カンマ       
    after_subject = str_replace("\,","，",after_subject)
    ;「\n」を「<br/>」に
    after_subject = str_replace("\n","<br/>",after_subject)  
return after_subject
#global