String/改行

  1
  2
  3
  4
  5
  6
  7

#uselib "msvcrt.dll"
#cfunc   _mbsbtype "_mbsbtype" sptr, int
    buf = "\\ソ"
    mes _mbsbtype(buf, 0)
    mes _mbsbtype(buf, 1)
    mes _mbsbtype(buf, 2)
    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

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
-
|
|
!
 
 
 
 
 
 
 
 
 

#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))
    }
#global
 
;----------------------------------------------------------
 
buf = "\\ソ"
mes MbsbType(buf, 0)
mes MbsbType(buf, 1)
mes MbsbType(buf, 2)
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
 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

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
-
|
|
|
|
|
!
|
|
|
-
|
|
|
-
|
|
|
|
|
!
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 

#module
 
;文字コード判定関数
;	Shift-JISの２バイト文字かを判定します。
;	RV = IsByte( int p1 )
;	p1 : 判定する文字コード
;	RV : 1=2byte文字の１文字目 (これ以外は 0)
#defcfunc IsByte int p1
return ((p1>=129)&(p1<=159) )|( (p1>=224)&(p1<=252))
#global
 
 
#module
    #uselib "user32.dll"
    #func DrawText "DrawTextA" int,sptr,int,sptr,int
 
    #deffunc GetStrRect int p1, str p2, array p3
        rc = 0,0,0,0
        DrawText p1, p2, -1, varptr(rc), $00000400
        p3.0 = rc.2
        p3.1 = rc.3
 
        return
 
#global
 
;----------------------------------------------------------
    ;2バイト文字のみの改行サンプル
    sdim buf, 256
    txt = "あー、あー、ただ今\Nマイクのテスト中。たた今MICのテスト中。"
    nlpos = 100    ;100ドットで改行
 
    i = 0    ;各行頭からの位置
    j = 0    ;変数頭からの位置
    fyen = 0    ;\フラグ
    repeat strlen(txt)
        byte1 = peek(txt,cnt)    ;１バイト取り出す
        if (byte1 = $5c)&(fyen = 0) : fyen = 1 : continue : else : fyen = 0    ;\フラグ(\の後は何でも表示する。)
        if IsByte(byte1) {
            wpoke buf, j, wpeek(txt,cnt)
            i+=2
            GetStrRect hdc, buf, rc
            if rc.0>nlpos {
                poke buf,  j, 13    ;改行
                poke buf,j+1, 10
                i=0 : j+=2
                wpoke buf, j, wpeek(txt,cnt)
                i+=2
            }
            j+=2
            if ( byte1=13)|( byte1=10 ) : i = 0    ;改行のときiを行頭に移動
            continue cnt+2
        } else {
            poke buf, j, byte1
            i++
            GetStrRect hdc, buf, rc
            if rc.0>nlpos {
                poke buf,  j, 13    ;改行
                poke buf,j+1, 10
                i=0 : j+=2
                poke buf, j, byte1
                i++
            }
            j++
            if ( byte1=13)|( byte1=10 ) : i = 0    ;改行のときiを行頭に移動
        }
    loop
 
    ;出力
    mes "---------------\n"+txt
    mes "0         1         2         3"
    mes "0123456789012345678901234567890"
    py = ginfo_cy
    mes ""+buf
    line nlpos, py, nlpos, py+rc(1)
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
 46
 47
 48
 49
 50

#module
#deffunc linebox array rc
    px1 = rc(0)
    py1 = rc(1)
    px2 = rc(2)
    py2 = rc(3)
    line px1, py1, px2, py1
    line px2, py1, px2, py2
    line px2, py2, px1, py2
    line px1, py2, px1, py1
    return
 
#global
 
    #uselib "user32.dll"
    #func DrawText "DrawTextA" int,sptr,int,sptr,int
 
    #define DT_TOP              0x00000000
    #define DT_LEFT             0x00000000
    #define DT_CENTER           0x00000001
    #define DT_RIGHT            0x00000002
    #define DT_VCENTER          0x00000004
    #define DT_BOTTOM           0x00000008
    #define DT_WORDBREAK        0x00000010
    #define DT_SINGLELINE       0x00000020
    #define DT_EXPANDTABS       0x00000040
    #define DT_TABSTOP          0x00000080
    #define DT_NOCLIP           0x00000100
    #define DT_EXTERNALLEADING  0x00000200
    #define DT_CALCRECT         0x00000400
    #define DT_NOPREFIX         0x00000800
    #define DT_INTERNAL         0x00001000
    
    #define DT_EDITCONTROL      0x00002000
    #define DT_PATH_ELLIPSIS    0x00004000
    #define DT_END_ELLIPSIS     0x00008000
    #define DT_MODIFYSTRING     0x00010000
    #define DT_RTLREADING       0x00020000
    #define DT_WORD_ELLIPSIS    0x00040000
 
    a = "Hello\n12&345678901234567890\n\tabc defg hijk lmn opqr stuvwxyz a b c d e f g あいうえお、かきくけこ、さしす、せそ"
 
    pos 0,0
    mes a
 
    rc = 0,100,150,300
    DrawText hdc, a, -1, varptr(rc), DT_WORDBREAK | DT_EXPANDTABS
    redraw 1
    linebox rc
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
 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
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
!
-
|
|
|
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
|
|
!
 
 

;
;	２バイト文字を含んだ文字列の自動改行モジュール
;	for HSP3
;
 
#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))
    }
 
#global
 
 
 
#module
 
;自動改行モジュール
;	txt : 変換元の文字列変数
;	buf : 変換後の文字列を出力する変数
;	      nlnumが0以下だと文字列を返しません。
;	nlnum : 改行手前位置（バイト）
;
;	stat : 普段は0ですが、nlnumに0以下の価を入れると1を返します。
#deffunc CoAutoLF var txt, var buf, int nlnum
    if nlnum <= 0 : buf = "" : return 1    ;1より小さい価を入れるとエラーと認識する。
 
    i = 0    ;各行頭からの位置
    j = 0    ;変数頭からの位置
    repeat strlen(txt)
        byte(0) =  peek(txt,cnt)    ;１バイト取り出す
        byte(1) = wpeek(txt,cnt)    ;２バイト取り出す
        fbyte = MbsbType(txt,cnt)>0        ;全角か半角か判定する。
        if (nlnum-fbyte)<=i {
            poke buf,  j, 13    ;改行コード
            poke buf,j+1, 10
            i=0 : j+=2
        }
        if fbyte {
            wpoke buf, j, byte(fbyte)    ;２バイト文字のとき
            i+=2 : j+=2
            continue cnt+2
        } else {
            poke buf, j, byte(fbyte)    ;１バイト文字のとき
            i++ : j++
        }
        if ( byte(0)=13)|( byte(0)=10 ) : i = 0    ;改行のときiを行頭に移動
    loop
    poke buf, j, 0    ;終了コード
 
return 0
 
#global
 
;----------------------------------------------------------
 
    ;動的に自動改行するサンプル
    ;マウスをクリックするか、キーボードで↑↓キーを押下する。
 
    sdim buf, 256    ;改行が挿入されるので十分なサイズを指定する。
    txt = "こんにちは、世界！\nますます広がる!パソコンの世界。"
    ;改行を入れるバッファのインデックス。20バイトで改行
    ;1バイト文字なら１行に最大20文字表示する。
    nlnum = 20
 
*main
    redraw 1 : await 32 : redraw 0 : color 255,255,255 : boxf : color
 
    stick key
    if key&128 : end
    if key&(256+4) : nlnum++
    if key&(512+1) : nlnum--
 
    CoAutoLF txt, buf, nlnum
    if stat : pos 0,0 : mes "改行文字数が不正です。"
 
    pos 0,30
    mes ""+nlnum+""
    mes ""+txt
    mes "0         1         2         3"
    mes "0123456789012345678901234567890"
    mes ""+buf
    mes "0123456789012345678901234567890"
    mes "0         1         2         3"
 
    ;改行位置
    sp=""
    if nlnum >= 0 {
        repeat nlnum
            sp+=" "
        loop
        sp+="□"
        pos px, py
        repeat 15
            mes sp
        loop
    }
goto *main

  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
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
-
|
-
|
|
!
!
!
 
 
 
-
|
|
-
|
!
|
|
-
|
|
!
|
|
|
|
|
-
-
|
!
!
!
 
 
 
 
 
 
 
-
|
|
!
 
 
 
 
 
-
|
|
|
-
|
|
!
 
 
 
 
 
 
-
|
|
|
|
|
|
-
-
|
|
!
!
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
|
|
!
 

#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
 
 
#module
 
;禁則文字の登録（２バイト文字のみ）
;	SetKinsoku p1, p2
;	禁則処理の対象になる文字を登録します。分離禁則は未対応。
;		p1 : 行頭禁則文字
;		p2 : 行末禁則文字
#deffunc SetKinsoku var p1, var p2
    kinsoku(0) = p1        ;行頭禁止(1)
    kinsoku(1) = p2        ;行末禁止(2)
    return
 
;禁則処理適用文字かチェックする関数
;	CkKinsoku( p1 )
;		p1 : wpeekで読み出した値
;
;	次の値を返します。
;		0:対象文字以外
;		1:行頭禁止
;		2:行末禁止
;	禁則文字の登録はSetKinsokuで行ないます。
#defcfunc CkKinsoku int p1
    fkins = 0
    repeat 2
        kinsoku_i = cnt
        repeat strlen(kinsoku(kinsoku_i)) / 2
            if p1 = wpeek(kinsoku(kinsoku_i), cnt*2) : fkins = kinsoku_i+1    //禁則処理適用をonにする。
        loop
    loop
    return fkins
 
 
;自動改行命令
;	CoAutoLF txt, buf, nlnum, swkin
;
;	txt : 変換元の文字列変数
;	buf : 変換後の文字列を出力する変数
;	      nlnumが0以下だと文字列を返しません。
;	nlnum : 改行手前位置（バイト）
;	swkin : 0で禁則処理をする。1で禁則処理off。
;
;	stat : 普段は0ですが、nlnumに0以下の価を入れると1を返します。
#deffunc CoAutoLF var txt, var buf, int nlnum, int swkin
    if nlnum <= 0 : buf = "" : return 1    ;1より小さい価を入れるとエラーと認識する。
 
    pet   = -1    ;全体改行ポイント（バイト単位アドレス）文章はじめを0
    plet  = -1    ;行内改行ポイント（バイト単位アドレス）行頭を0
    pwt  = 0    ;全体書き込みポイント（現在の位置）（最後に次の位置へシフトしておく）
    plwt = 0    ;行内書き込みポイント（現在の位置）（最後に次の位置へシフトしておく）
    ;常に改行挿入候補を入れていき、文章の長さが一定幅を超えたら改行を挿入する。
    fkins2 = 0    ;行末禁止フラグ
 
    repeat strlen(txt)
        byte(0) =  peek(txt,cnt)    ;１バイト取り出す
        byte(1) = wpeek(txt,cnt)    ;２バイト取り出す
        stcha = MbsbType(txt,cnt)        ;全角か半角か判定する。
 
        ;改行位置指定	- アルファベットの禁則処理
        if cnt>0 {
            if (stcha = 0)&(fkins2 = 0) {
                ;１バイト文字で行末禁止フラグが立ってないとき
                if (peek(txt,cnt-1)=32) | (MbsbType(txt,cnt-1)=2) {
                    ;１バイト前が半角スペースか２バイト文字２バイト目
                    pet = pwt : plet = plwt
                }
            }
        }
 
 
        ;---２バイト文字処理ここから
        if stcha!0 {
            ;禁則処理
            fkins = 0    //２バイト文字の禁則処理用フラグ
            if (swkin = 0)&(stcha) {
                fkins = CkKinsoku(byte(1))    ;どのタイプの禁則処理文字かチェック
            }
 
            ;行末禁止	「
            if fkins = 2 {
                pet = pwt : plet = plwt
                fkins2 = 1    ;行末禁止フラグ
            }
 
            ;行頭禁止	」
;			if (fkins = 1) {	}	;改行候補を入れない
 
            ;禁則対象外
            if fkins = 0 {
                if (fkins2=0) {
                    pet = pwt : plet = plwt
                }
            }
        }
        ;行頭禁止用フラグ管理
        if fkins2 >= 2 : fkins2 = 0
        if fkins2 ! 0 : fkins2++
        ;---２バイト文字処理ここまで
 
 
        ;改行の位置（禁則モードoff）
        if (swkin!0) {
            pet = pwt
            plet = plwt
        }
 
 
        ;１文字コピー
        pwt2 = pwt
        f2byte = 0    ;２バイト文字ループフラグ
        if stcha {
            wpoke buf, pwt, byte(stcha>0)    ;２バイト文字のとき
            plwt+=2 : pwt+=2
            f2byte = 1
        } else {
            poke buf, pwt, byte(stcha)    ;１バイト文字のとき
            plwt++ : pwt++
        }
 
        ;もともと改行だった場合
        if ( byte(0)=13)|( byte(0)=10 ) : plwt = 0 : pet = -1 : plet = -1
 
 
        ;改行候補位置に改行を挿入する
        if ((nlnum+1)<=plwt) & (pet!-1) & ((byte(0)!32)|(swkin!0)) {
            yn = "\n"
            buf = StrInsert(buf, yn, pet)
            plwt = plwt-plet : pwt+=2
            pet = -1 : plet = -1
 
            ;改行位置が半角スペースだったら半角スペースは消しておく
            if (swkin = 0)&(pwt2 > 0) {
                if peek(buf, pwt2-1) = 32 {
                    buf = StrDel(buf, pwt2-1, 1)
                    pwt--
                }
            }
        }
 
        if f2byte : continue cnt+2
    loop
    poke buf, pwt, 0    ;終了コード
 
return 0
 
;---------------------------
 
 
#global
 
;----------------------------------------------------------
;実行サンプル
 
    ;動的に自動改行するサンプル
    ;マウスをクリックするか、キーボードで←→キーを押下する。
    sdim buf, 256    ;改行が挿入されるので十分なサイズを指定する。
    txt = "こんにちは、世界！ますます広がる「パソコン」の世界。\n"
    txt += "Hello, world !\nThe world of a PC opening more and more."
    ;改行を入れるバッファのインデックス。20バイトで改行
    ;1バイト文字なら１行に最大20文字表示する。
    nlnum = 20
 
    kinsoku0 = "、。，．’”）〕］｝〉》」』】・：；？！ヽヾゝゞ〃々ー―〜…‥っゃゅょッャュョぁぃぅぇぉァィゥェォ"    //行頭禁止(1)
    kinsoku1 = "‘“（〔［｛〈《「『【"    ;行末禁止(2)
    SetKinsoku kinsoku0, kinsoku1    ;禁則文字の登録
 
 
*main
    redraw 1 : await 32 : redraw 0 : color 255,255,255 : boxf : color
 
    stick key
    if key&128 : end
    if key&(256+4) : nlnum++
    if key&(512+1) : nlnum--
 
 
    ;禁則処理 ON -------------------------------
    pos 0,300
    CoAutoLF txt, buf, nlnum
    if stat : pos 0,0 : mes "改行文字数が不正です。"
 
    pos 0,30
    mes "禁則処理 ON"
    gosub *hyoji
;goto *main
 
    ;禁則処理 OFF -------------------------------
    pos 300,300
    CoAutoLF txt, buf, nlnum, 1
    if stat : pos 300,0 : mes "改行文字数が不正です。"
 
    pos 300,30
    mes "禁則処理 OFF"
    gosub *hyoji
 
goto *main
 
*hyoji
    mes "改行インデックス："+nlnum+"バイト"
    mes ""+txt
    mes "0         1         2         3"
    mes "0123456789012345678901234567890"
    px = ginfo_cx : py = ginfo_cy
    mes ""+buf
    mes "0123456789012345678901234567890"
    mes "0         1         2         3"
 
    ;改行位置
    sp=""
    if nlnum >= 0 {
        repeat nlnum
            sp+=" "
        loop
        sp+="□"
        pos px, py
        repeat 15
            mes sp
        loop
    }
    return

  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
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
-
|
-
|
|
|
!
!
!
 
 
 
-
|
|
-
|
!
|
|
-
|
|
|
!
|
|
|
|
|
-
-
|
|
!
!
!
 
 
 
 
 
 
 
-
|
|
|
!
 
 
 
 
 
 
-
|
|
|
|
|
|
|
|
-
|
|
|
|
|
|
|
!
 
 
 
 
 
-
|
|
|
|
|
|
|
-
-
|
|
!
!
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

;
;	２バイト文字を含んだ文字列の自動改行サンプル
;	改行位置をドット幅で指定するサンプル
;	for HSP3
;
 
#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
 
 
 
#module
    #uselib "user32.dll"
    #func DrawText "DrawTextA" int,sptr,int,sptr,int
 
;文字列の描画領域のサイズを取得する
;GetStrRect hdc, p2, p3
;	p2 : 文字列
;	p3 : 文字列の矩形サイズ
;		p3 = x, y
    #deffunc GetStrRect int p1, str p2, array p3
        rc = 0,0,0,0
        DrawText p1, p2, -1, varptr(rc), $00000400
        p3.0 = rc.2
        p3.1 = rc.3
        return
#global
 
 
#module
 
;禁則文字の登録（２バイト文字のみ）
;	SetKinsoku p1, p2
;	禁則処理の対象になる文字を登録します。分離禁則は未対応。
;		p1 : 行頭禁則文字
;		p2 : 行末禁則文字
#deffunc SetKinsoku var p1, var p2
    kinsoku(0) = p1        ;行頭禁止(1)
    kinsoku(1) = p2        ;行末禁止(2)
    return
 
;禁則処理適用文字かチェックする関数
;	CkKinsoku( p1 )
;		p1 : wpeekで読み出した値
;
;	次の値を返します。
;		0:対象文字以外
;		1:行頭禁止
;		2:行末禁止
;	禁則文字の登録はSetKinsokuで行ないます。
#defcfunc CkKinsoku int p1
    fkins = 0
    repeat 2
        kinsoku_i = cnt
        repeat strlen(kinsoku(kinsoku_i)) / 2
            if p1 = wpeek(kinsoku(kinsoku_i), cnt*2) : fkins = kinsoku_i+1    //禁則処理適用をonにする。
        loop
    loop
    return fkins
 
 
;自動改行命令
;	CoAutoLF txt, buf, nlnum, swkin
;
;	txt : 変換元の文字列変数
;	buf : 変換後の文字列を出力する変数
;	      nlnumが0以下だと文字列を返しません。
;	nlnum : １行の幅（ドット）
;	swkin : 0で禁則処理をする。1で禁則処理off。
;
;	stat : 普段は0ですが、nlnumに0以下の価を入れると1を返します。
#deffunc CoAutoLF var txt, var buf, int nlnum, int swkin
    if nlnum <= 0 : buf = "" : return 1    ;1より小さい価を入れるとエラーと認識する。
 
    pet   = -1    ;全体改行ポイント（バイト単位アドレス）文章はじめを0
    plet  = -1    ;行内改行ポイント（バイト単位アドレス）行頭を0
    pwt  = 0    ;全体書き込みポイント（現在の位置）（最後に次の位置へシフトしておく）
    plwt = 0    ;行内書き込みポイント（現在の位置）（最後に次の位置へシフトしておく）
    ;常に改行挿入候補を入れていき、文章の長さが一定幅を超えたら改行を挿入する。
    fkins2 = 0    ;行末禁止フラグ
    dim rc, 2
    ilenstr = 0    ;１行の文字列xサイズ
    ilenstret = 0    ;１行の改行候補文字までの文字列xサイズ
    k=""
 
    repeat strlen(txt)
        byte(0) =  peek(txt,cnt)    ;１バイト取り出す
        byte(1) = wpeek(txt,cnt)    ;２バイト取り出す
        stcha = MbsbType(txt,cnt)        ;全角か半角か判定する。
 
        ;改行位置指定	- アルファベットの禁則処理
        if cnt>0 {
            if (stcha = 0)&(fkins2 = 0) {
                ;１バイト文字で行末禁止フラグが立ってないとき
                if (peek(txt,cnt-1)=32) | (MbsbType(txt,cnt-1)=2) {
                    ;１バイト前が半角スペースか２バイト文字２バイト目
                    pet = pwt : plet = plwt
                    ilenstret = ilenstr
                }
            }
        }
 
 
        ;---２バイト文字処理ここから
        if stcha!0 {
            ;禁則処理
            fkins = 0    //２バイト文字の禁則処理用フラグ
            if (swkin = 0)&(stcha) {
                fkins = CkKinsoku(byte(1))    ;どのタイプの禁則処理文字かチェック
            }
 
            ;行末禁止	「
            if fkins = 2 {
                pet = pwt : plet = plwt
                fkins2 = 1    ;行末禁止フラグ
                ilenstret = ilenstr
            }
 
            ;行頭禁止	」
;			if (fkins = 1) {	}	;改行候補を入れない
 
            ;禁則対象外
            if fkins = 0 {
                if (fkins2=0) {
                    pet = pwt : plet = plwt
                    ilenstret = ilenstr
                }
            }
        }
        ;行頭禁止用フラグ管理
        if fkins2 >= 2 : fkins2 = 0
        if fkins2 ! 0 : fkins2++
        ;---２バイト文字処理ここまで
 
 
        ;改行の位置（禁則モードoff）
        if (swkin!0) {
            pet = pwt
            plet = plwt
            ilenstret = ilenstr
        }
 
 
        ;１文字コピー
        pwt2 = pwt
        f2byte = 0    ;２バイト文字ループフラグ
        k=""
        if stcha {
            wpoke buf, pwt, byte(stcha>0)    ;２バイト文字のとき
            plwt+=2 : pwt+=2
            f2byte = 1
            ;文字幅計算
            wpoke k, 0, byte(stcha>0)
            poke k, 2, 0
            GetStrRect hdc, k, rc
            ilenstr += rc(0)
        } else {
            poke buf, pwt, byte(stcha)    ;１バイト文字のとき
            plwt++ : pwt++
            ;文字幅計算
            poke k, 0, byte(stcha)
            poke k, 1, 0
            GetStrRect hdc, k, rc
            ilenstr += rc(0)
        }
 
        ;もともと改行だった場合
        if ( byte(0)=13)|( byte(0)=10 ) : plwt = 0 : pet = -1 : plet = -1 : ilenstr = 0
 
        ;改行候補位置に改行を挿入する
        if (nlnum < ilenstr) & (pet!-1) & ((byte(0)!32)|(swkin!0)) {
            yn = "\n"
            buf = StrInsert(buf, yn, pet)
            plwt = plwt-plet : pwt+=2
            pet = -1 : plet = -1
            ilenstr = ilenstr - ilenstret
 
            ;改行位置が半角スペースだったら半角スペースは消しておく
            if (swkin = 0)&(pwt2 > 0) {
                if peek(buf, pwt2-1) = 32 {
                    buf = StrDel(buf, pwt2-1, 1)
                    pwt--
                }
            }
        }
 
        if f2byte : continue cnt+2
    loop
    poke buf, pwt, 0    ;終了コード
 
return 0
 
;---------------------------
 
 
#global
 
;----------------------------------------------------------
;実行サンプル
 
    ;動的に自動改行するサンプル
    ;マウスをクリックするか、キーボードで←→キーを押下する。
    sdim buf, 256    ;改行が挿入されるので十分なサイズを指定する。
    txt = "こんにちは、世界！ますます広がる「パソコン」の世界。\n"
    txt += "Hello, world !\nThe world of a PC opening more and more."
    txt += "\niiiii\nwwwww"
    ;改行を入れるバッファのインデックス。20バイトで改行
    ;1バイト文字なら１行に最大20文字表示する。
    nlnum = 200
 
    kinsoku0 = "、。，．’”）〕］｝〉》」』】・：；？！ヽヾゝゞ〃々ー―〜…‥っゃゅょッャュョぁぃぅぇぉァィゥェォ"    //行頭禁止(1)
    kinsoku1 = "‘“（〔［｛〈《「『【"    ;行末禁止(2)
    SetKinsoku kinsoku0, kinsoku1    ;禁則文字の登録
 
    fontname = "ＭＳ Ｐゴシック"        ;プロポーショナルフォント
    font fontname,16
 
*main
    redraw 1 : await 32 : redraw 0 : color 255,255,255 : boxf : color
 
    stick key, 5+256+512
    if key&128 : end
    if key&(256+4) : nlnum+=2
    if key&(512+1) : nlnum-=2
 
    pos 0,0
    mes "使用フォント："+fontname
 
    ;禁則処理 ON -------------------------------
    pos 0,300
    CoAutoLF txt, buf, nlnum
    if stat : pos 0,0 : mes "改行文字数が不正です。"
 
    pos 0,30
    mes "禁則処理 ON"
    gosub *hyoji
    line nlnum,150, nlnum,400
;goto *main
 
    ;禁則処理 OFF -------------------------------
    pos 300,300
    CoAutoLF txt, buf, nlnum, 1
    if stat : pos 300,0 : mes "改行文字数が不正です。"
 
    pos 300,30
    mes "禁則処理 OFF"
    gosub *hyoji
    line nlnum+300,150, nlnum+300,400
 
goto *main
 
*hyoji
    mes "改行インデックス："+nlnum+"バイト"
    mes ""+txt
    mes "0         1         2         3"
    mes "0123456789012345678901234567890"
    px = ginfo_cx : py = ginfo_cy
    mes ""+buf
    mes "0123456789012345678901234567890"
    mes "0         1         2         3"
 
    return