;=============================================================== ; 末尾\n、\040、\011 カットモジュール ;=============================================================== #module "_wf_chomp" ; 末尾不要文字列カット ;--------------------------------------------------------------- #defcfunc wf_chomp str aa ; 新関数「wf_chomp」を生成 ;【パラメータ】 sdim a,256 : a=aa ;【返し値】 ;a ;【レスポンス】 mref stt,64 ; stat l=strlen(a) sdim b,l+3 getstr b,a,0 ; 改行 (\n) a=b *srch l=strlen(a) p=instr(a,l-1," ") ; タブ (\011/$09) if p == -1 { l=strlen(a) p=instr(a,l-1," ") ; スペース (\040/$20) if p == -1 { goto *end_of_srch }else{ b=strmid(a,0,l-1) a=b } }else{ b=strmid(a,0,l-1) a=b } goto *srch *end_of_srch stt=strlen(a) return a #global