最近、2byte情報を配列に書き込んでいるのですが
その2byte情報の元の文字列を分割したら
2byte情報の配列も分割しなきゃなーと思い書きました
FILE名:FILE_array_opr.hsp
その2byte情報の元の文字列を分割したら
2byte情報の配列も分割しなきゃなーと思い書きました
FILE名:FILE_array_opr.hsp
#module array_opr // 引数の配列beforeを配列afterにコピーする // 注:afterの配列のsizeは // beforeの配列のsizeに変更されます #deffunc copy_array_at_array_opr array after,array before tmp=length(before) dim after,tmp foreach before after.cnt=before.cnt loop return // 引数の配列beforeの // firstから_endまでの要素を配列afterにコピーする // 注:afterの配列のsizeは // コピーするsizeに変更されます #deffunc sep_array_at_array_opr int first,int _end,array after,array before if first>_end{ logmes "sep_array_at_array_opr内のerror" logmes "引数_endが引数firstより大きいです" logmes "first:"+first+" _end:"+_end return } l=_end-first dim after,l repeat l after.cnt=before(cnt+first) loop return #global /* TESTコード コメントアウト dim a,8 dim b,4 a=1,2,3,4,5,6,7,8 copy_array_at_array_opr b,a dim c,8 dim d,4 c=1,2,3,4,5,6,7,8 sep_array_at_array_opr 2,6,d,c stop*/ |