// DLしたFILEの改行が反映されなかったため #module m_2byte_check #deffunc _2byte_check var tmp_ss,var tmp_s tmp_l=strlen(tmp_s) tmp_ss="" i=0 while i < tmp_l n=peek(tmp_s,i) if ((n>=129)&(n<=159) )|( (n>=224)&(n<=252)){ tmp_ss+="2":i++ if tmp_l>i { tmp_ss+="3":i++ } }else{ tmp_ss+="1":i++ } wend return #global
#module // _pをsep_nで前と後に分割 #deffunc simple_split var _p,var _p2,var _p3,int sep_n l_p=strlen(_p) piyo="" // _pの前を取り出す piyo=strmid(_p,0,sep_n) foo="" // _pの後を取り出す foo=strmid(_p,-1,l_p-sep_n) _p2=piyo _p3=foo return #global
#module #defcfunc spltline var _src tmp_sss="" _2byte_check tmp_sss,_src v_yen_n="\" sdim op_text,65000 if strlen(_src)>60000:dialog "error\ntxt大きすぎ",1 i=0 repeat strlen(_src) logmes ""+i logmes ""+peek(tmp_sss,cnt) tmp_cc=peek(tmp_sss,cnt) if tmp_cc=='2'||tmp_cc=='3'{ poke op_text,i,peek(_src,cnt) i++ }else{ tmp_c=peek(_src,cnt) if tmp_c==10{ ; mes "t" op_text+="\n" i+=2 }else{ ; mes "f" poke op_text,i,peek(_src,cnt) i++ } } await 1 loop return op_text #global
notesel _4note sdim s,64,100 sdim u,65000 u="" s.0="Eval.java" noteload s.0 tmp_l=strlen(_4note) tmp_tt=spltline(_4note) mes tmp_tt