文字列を改行での分割モジュールver02：テストコード

テストコードＡ

#include "FILE_div_str.hsp" string_1="1ab\n\n3cd\n4ef\n\n6gh\n7ij\n8kl";c=8 string_2="1ab\n\n3cd\n4ef";c=4 string_3="1ab\n\n3cd\n4ef\n";c=5 string_4="1\n2\n3\n4\n5\n\n7\n8\n\n10\n11\n" init_at_div_str 16 set_str_at_div_str string_1 div_str_at_div_str 10 logmes "1a:"+get_str(1) logmes "2a:"+get_str(2) logmes "3a:"+get_str(3) logmes "4a:"+get_str(4) logmes "5a:"+get_str(5) logmes "6a:"+get_str(6) logmes "7a:"+get_str(7) logmes "8a:"+get_str(8) init_at_div_str 16 set_str_at_div_str string_2 div_str_at_div_str 4 logmes "1b:"+get_str(1) logmes "2b:"+get_str(2) logmes "3b:"+get_str(3) logmes "4b:"+get_str(4) logmes "5b:"+get_str(5) logmes "6b:"+get_str(6) logmes "7b:"+get_str(7) logmes "8b:"+get_str(8) init_at_div_str 8 set_str_at_div_str string_3 div_str_at_div_str 10 logmes "1c:"+get_str(1) logmes "2c:"+get_str(2) logmes "3c:"+get_str(3) logmes "4c:"+get_str(4) logmes "5c:"+get_str(5) logmes "6c:"+get_str(6) logmes "7c:"+get_str(7) logmes "8c:"+get_str(8) init_at_div_str 16 set_str_at_div_str string_4 div_str_at_div_str 16 logmes "1d:"+get_str(1) logmes "2d:"+get_str(2) logmes "3d:"+get_str(3) logmes "4d:"+get_str(4) logmes "5d:"+get_str(5) logmes "6d:"+get_str(6) logmes "7d:"+get_str(7) logmes "8d:"+get_str(8) logmes "9d:"+get_str(9) logmes "10d:"+get_str(10) logmes "11d:"+get_str(11) logmes "12d:"+get_str(12) logmes "13d:"+get_str(13) logmes "14d:"+get_str(14) logmes "15d:"+get_str(15) logmes "16d:"+get_str(16) stop

テストコードＢ

#include "FILE_div_str.hsp" sdim word,4096 repeat 1000,1 if cnt\10==9{word+="\n"} else{word+=str(cnt)+"\n"} loop init_at_div_str 2048 set_str_at_div_str word div_str_at_div_str 1000 repeat 1000,1 logmes str(cnt)+":"+get_str(cnt) loop stop