#author("2018-06-23T00:00:58+09:00","","")
#author("2018-06-23T00:01:34+09:00","","")
**NO_662_EDIT [#x3a3ddd0]
~
作成途中っすｗ　なんとなく初期のをイメージ出来ました~
~

~
モジュール
 #module one_block_data many_data,data_title,del_flag,data_act_len
 #modinit int p_size
 	data_title=""
 	data_act_len=0
 	del_flag=0
 	sdim many_data,100,p_size
 	return
 #modfunc local set_del_flag
 	del_flag=-1
 	sdim data_title,1
 	sdim  many_data,1.1
 	return
 #modfunc local set_title str p_str
 	data_title=p_str
 	return
 #modcfunc local get_title
 	return data_title
 #modcfunc local get_data_length
 	return length(many_data)
 #modcfunc local get_act_len
 	return data_act_len
 #modfunc local set_one_data int p_index,str p_str
 	if p_index >= length(many_data):dialog "p_index is too big",1:return
 	many_data.p_index=p_str
 	if p_index > data_act_len : data_act_len=p_index
 	return
 #modfunc local check_len
 	tmp_len = data_act_len
 	repeat tmp_len
 		if many_data(data_act_len-cnt)==""{
 			data_act_len--
 		}else{
 			break
 		}
 	loop
 	return
 #modcfunc local get_one_data int p_index
 	if p_index >= length(many_data):dialog "p_index is too big",1:return -1
 	return many_data.p_index
 #modfunc local str_dump
 	logmes "\ntitle:"+data_title+" del_flag:"+del_flag
 	repeat data_act_len
 	logmes ""+cnt+":"+many_data.cnt
 	loop
 	return
 #modfunc local reset int p_size
 	data_title=""
 	del_flag=0
 	sdim many_data,100,p_size
 	return
 #modfunc local resize int p_size,local loc_length,local loc_array
 	loc_length=length(many_data)
 	sdim loc_array,100,loc_length
 	repeat loc_length
 	loc_array.cnt=many_data.cnt
 	loop
 	if loc_length > p_size {
 		sdim many_data,100,p_size
 		repeat p_size
 		many_data.cnt = loc_array.cnt
 		loop
 	}else{
 		sdim many_data,100,p_size
 		repeat loc_length
 		many_data.cnt = loc_array.cnt
 		loop
 	}
 	return
 #global