行頭と行末のタブとスペースを取り除くモジュール

  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

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

#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 mdl_sep_ff_ts
//	設定
//	変数numに確保する配列の数を
//	変数is_dbgに内容をダンプするか格納する
//	0:ダンプしない
//	それ以外:ダンプする
#deffunc init_at_mdl_sep_ff_ts int p_is_dbg
    is_init=1
    is_dbg=p_is_dbg
    return
//	配列ar_is_2byteに2byte文字にマッチしたらその文字の位置に1を代入
//	文字列の終わりには-1を代入
#deffunc set_is_2byte_at_mdl_sep_ff_ts array ar_is_2byte,var source_source_source
    l_tmp_sc=strlen(source_source_source)
    i=0
    ii=l_tmp_sc-1
    while i <= ii
    cmp=peek(source_source_source,i)
    tmp=IsByte(cmp)
    if tmp!=0{tmp=1}
    if tmp=1{
        ar_is_2byte.i=1
        i++
        ar_is_2byte.i=1
        i++
    }else{    i++    }
    wend
    ar_is_2byte.l_tmp_sc=-1
    return
//	配列is_tsにsource_sourceの要素がスペースかタブなら
//	その文字の位置に1を代入
//	文字列の終わりには-1を代入
#deffunc set_is_ff_ts_at_mdl_sep_ff_ts array is_ts,array is_2byte,var source_source
    set_is_2byte_at_mdl_sep_ff_ts is_2byte,source_source
    l_tmp_sc=strlen(source_source)
    css=" "
    cs=peek(css,0)
    ctt="\t"
    ct=peek(ctt,0)
    
    flag=0
    i=0
    ii=l_tmp_sc-1
//	行頭にタブかスペースがあれば
//	その数だけ配列に1を書き込む
    while i <= ii
    if is_2byte.i==1:_break
    cmp=peek(source_source,i)
    flag=((cmp==cs)|(cmp==ct))
    if flag!=0{is_ts.i=1:i++}
    else{_break}
    wend
    
    i=ii
//	行末にタブかスペースがあれば
//	その数だけ配列に1を書き込む
    while i>=0 
    if is_2byte.i==1:_break
    cmp=peek(source_source,i)
    flag=(cmp==cs)|(cmp==ct)
    if flag!=0{is_ts.i=1:i--}
    else{_break}
    wend
    is_ts.l_tmp_sc=-1
    return
//	sourceの先頭と末尾のスペースとタブを削除して
//	resultに代入
#deffunc sep_ff_ts var result,var source
    ls=strlen(source)
    ls++
    dim ts,ls
    dim two_byte,ls
//	配列two_byteに２byte文字情報
//	配列tsにタブとスペースの情報を書き込む
    set_is_ff_ts_at_mdl_sep_ff_ts ts,two_byte,source
 
//	行頭のタブとスペースの数を数える
    l_tmp_sc=strlen(source)
    i=0
    repeat l_tmp_sc
        if ts.cnt==1{i++}
        else{break}
    loop
 
//	行頭のタブとスペースを取り除く
    tmp=strmid(source,-1,(l_tmp_sc-i))
 
//	行末のタブとスペースの数を数える
    l_tmp=strlen(tmp)
    ii=l_tmp_sc-1
    iii=0
    repeat ii
        if ts(ii-cnt)==1{iii++}
        else{break}
    loop
 
//	行末のタブとスペースを取り除く
    l_tmp-=iii
    result=strmid(tmp,0,l_tmp)
 
//	デバッグ
    if is_dbg!=0{
        logmes source
        s=""
        repeat ls
            s+=two_byte.cnt
        loop
        logmes s
        ss=""
        repeat ls
            ss+=ts.cnt
        loop
        logmes ss
    }
    return
#global

  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

#include "FILE_sep_ff_ts.hsp"
 
init_at_mdl_sep_ff_ts 1
 
sdim s,256
sdim r,256
s="1-ソあbいう2a"
 
sep_ff_ts r,s
mes r
mes strlen(r)
 
s="  abc  "
sep_ff_ts r,s
mes r
mes strlen(r)
 
s="  def"
sep_ff_ts r,s
mes r
mes strlen(r)
 
 
s="  ghi"
sep_ff_ts r,s
mes r
mes strlen(r)
 
s="jkl \t"
sep_ff_ts r,s
mes r
mes strlen(r)
 
s="\t\tmno\t\t"
sep_ff_ts r,s
mes r
mes strlen(r)
 
s="\t\t\t   "
sep_ff_ts r,s
mes r
mes strlen(r)
 
s="abcde"
poke s,3,130
poke s,4,'\t'
sep_ff_ts r,s
mes r
mes strlen(r)
stop