検索
AND検索
OR検索
トップ
|
リロード
|
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
文字列を数を指定して区切る(2byte対応) をテンプレートにして作成
メニュー
簡易掲示板
LINK集
y.tackの公式BBSブックマーク
practice room
?
最新の20件
2022-10-09
多角形の内外判定
2021-05-19
RecentDeleted
2018-08-01
FrontPage
文字列型変数管理サブルーチン
GAME作成システム
2018-07-31
double型変数管理サブルーチン
int型変数管理サブルーチン
2018-07-21
GUIとメイン分割処理。たたき台2
2018-07-11
memo
NO_579_sample
GUIとメイン分割処理。たたき台
2018-06-28
NO_714
NO_712
NO_706
NO_705
NO_704
NO_703
NO_702
2018-06-23
Shift_JIS
モートン番号テーブル化 / 八分木
total
0
today
0
yesterday
0
now
1
Menu
Total:0/Today:0
開始行:
#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,int len
tmp_sss=""
_2byte_check tmp_sss,_src
v_s1=""
v_s2=""
simple_split _src,v_s1,v_s2,len
v_c1=""
v_c2=""
simple_split tmp_sss,v_c1,v_c2,len
tmp_r=""
do
tmp_hoge=strmid(v_c1,-1,1)
if tmp_hoge=="2"{
sdim tmp_v_s1,4
poke tmp_v_s1,0,peek(v_s1,(len-1))
poke tmp_v_s1,1,peek(v_s2,0)
v_s1=strmid(v_s1,0,(len-1))+tmp_v_s1
tmp_piyopiyo=""
simple_split v_s2,tmp_piyopiyo,v_s2,1
v_c1+=strmid(v_c2,-1,1)
tmp_piyopiyo=""
simple_split v_c2,tmp_piyopiyo,v_c2,1
}
tmp_r+=v_s1+"\n"
cnt_l=strlen(v_s2)
if cnt_l<len{
tmp_r+=v_s2
_break
}
tmp_v_s1=""
tmp_v_s2=""
simple_split v_s2,tmp_v_s1,tmp_v_s2,len
v_s1=tmp_v_s1
v_s2=tmp_v_s2
tmp_v_c1=""
tmp_v_c2=""
simple_split v_c2,tmp_v_c1,tmp_v_c2,len
v_c1=tmp_v_c1
v_c2=tmp_v_c2
await 1
until 0
return tmp_r
#global
//--------サンプル開始
src = "0123笑愛456789abcdefg"
mes spltline(src,5)
終了行:
#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,int len
tmp_sss=""
_2byte_check tmp_sss,_src
v_s1=""
v_s2=""
simple_split _src,v_s1,v_s2,len
v_c1=""
v_c2=""
simple_split tmp_sss,v_c1,v_c2,len
tmp_r=""
do
tmp_hoge=strmid(v_c1,-1,1)
if tmp_hoge=="2"{
sdim tmp_v_s1,4
poke tmp_v_s1,0,peek(v_s1,(len-1))
poke tmp_v_s1,1,peek(v_s2,0)
v_s1=strmid(v_s1,0,(len-1))+tmp_v_s1
tmp_piyopiyo=""
simple_split v_s2,tmp_piyopiyo,v_s2,1
v_c1+=strmid(v_c2,-1,1)
tmp_piyopiyo=""
simple_split v_c2,tmp_piyopiyo,v_c2,1
}
tmp_r+=v_s1+"\n"
cnt_l=strlen(v_s2)
if cnt_l<len{
tmp_r+=v_s2
_break
}
tmp_v_s1=""
tmp_v_s2=""
simple_split v_s2,tmp_v_s1,tmp_v_s2,len
v_s1=tmp_v_s1
v_s2=tmp_v_s2
tmp_v_c1=""
tmp_v_c2=""
simple_split v_c2,tmp_v_c1,tmp_v_c2,len
v_c1=tmp_v_c1
v_c2=tmp_v_c2
await 1
until 0
return tmp_r
#global
//--------サンプル開始
src = "0123笑愛456789abcdefg"
mes spltline(src,5)
ページ名: