String/挿入

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

#module
;文字列操作追加命令セット
 
;文字コード判定関数
;	MbsbType( p1, p2)
;		Shift-JISの２バイト文字かを判定します。
;		p1 : 内容をチェックする文字列変数
;		p2 : バッファのインデックス（Byte単位）
;
;	次の値を返します。
;		0:シングルバイト（１バイト文字）
;		1:マルチバイトの先行バイト（２バイト文字の１バイト目）
;		2:マルチバイト文字の後続バイト（２バイト文字の２バイト目）
;
;	msvcrt.dllの_mbsbtype関数と同等の動作をします。
;---
;	MbsbTypeByte( p1 )
;		Shift-JISのマルチバイトの先行バイトかどうか判定します。
;		p1 : peekで取得した値を入れる。
;		返り値：
;			0:シングルバイトまたはマルチバイトの後続バイト
;			1:マルチバイトの先行バイトまたはマルチバイトの後続バイト
#defcfunc MbsbTypeByte int byt
    return ((byt>=0x81)&(byt<=0x9f) )|( (byt>=0xe0)&(byt<=0xfc))
 
#defcfunc MbsbType var p1, int p2
    bcnt = p2
    repeat p2
        if MbsbTypeByte(peek(p1, p2-cnt-1)) = 0 : bcnt = cnt : break
    loop
    if bcnt\2 {
        ;マルチバイトの後続バイト
        return 2
    } else {
        ;マルチバイトの先行バイトかシングルバイト
        return MbsbTypeByte(peek(p1, p2))
    }
 
 
;文字列の挿入関数
;	StrInsert pstr, pstrin, in
;	pstrのバッファのインデックスinバイトにpstrinを挿入します。
;	挿入位置が２バイト文字の途中だったら２バイト文字の手前に挿入します。
#defcfunc StrInsert var pstr, var pstrin, int in
    if in<0 : ina = 0 : else : ina = in
    ;挿入位置が２バイト文字の後続バイトだったときの処理
    if MbsbType(pstr,ina)>1 : ina--
    return strmid(pstr, 0, ina) + pstrin + strmid(pstr, ina, strlen(pstr)-ina)
 
 
;文字列の一部を削除する
;	StrDel strp1, delp, delnum
;		strp1	: 文字列変数
;		delp	: 削除始めのインデックス
;		delnum	: 削除する文字数
#defcfunc StrDel var strp1, int delp, int delnum
    return strmid(strp1, 0, delp) + strmid(strp1, delp+delnum, strlen(strp1)-(pd1+pd2))
 
#global
 
;---------------------------------------------------------------------
;	実行サンプル
 
 
 
;文字タイプ判定
a = "こaんにbちはc！"
c = ""
mes "文字タイプ判定-----"
mes a
repeat 12
    if MbsbType(a, cnt)=1 : wpoke c, 0, wpeek(a, cnt)
    if MbsbType(a, cnt)=0 : poke c, 0, peek(a, cnt) : poke c, 1, 0
    mes ""+c+"("+peek(a,cnt)+")("+MbsbType(a, cnt)+") _"+MbsbTypeByte(peek(a,cnt))
loop
 
 
;挿入サンプル
pos 200,0
a = "こんにちは！"
b = "a"
mes "挿入-----"
mes "「"+a+"」に "+b+" を挿入。"
repeat 12
    mes StrInsert(a,b,cnt)
loop
 
 
;削除サンプル
pos 0,300
a = "こんにちは！"
b = "a"
mes "削除-----"
mes a
repeat 6
    mes StrDel(a, cnt*2, 2)
loop
stop

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45

 
 
 
 
 
 
 
 
 
 
 
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

#module
#defcfunc strput var src, str p2, int idx, int del
    ins=p2
    lsrc=strlen(src)
    lins=strlen(p2)
    len=lsrc+lins-del+1
    sdim ret, len+1
    memcpy ret,src,idx,0,0
    memcpy ret,ins,lins,idx,0
    i=idx+lins
    l=lsrc-idx-del
    if l>0 {
        memcpy ret,src,l,i,idx+del
        i+=l
    }
    poke ret,i,0
return ret
#global
 
    ;挿入サンプル
    a = "こんにちは！"
    b = "abc"
    mes "挿入-----"
    mes "「"+a+"」に "+b+" を挿入。"
    repeat 6
        mes strput(a,b,cnt*2,0)
    loop
 
    ;削除サンプル
    a = "こんにちは！"
    b = "a"
    mes "削除-----"
    mes a
    repeat 6
        mes strput(a, "", cnt*2, 2)
    loop
 
    ;置換
    a = "こんにちは！"
    b = "abc"
    mes "置換-----"
    mes "「"+a+"」の2バイトを"+b+"に置換。"
    repeat 6
        mes strput(a,b,cnt*2,2)
    loop