chop実装
※define部 numalias chop_str,(適当な数字) numalias chop_len,(適当な数字) defsub *chop ※実装部 *chop getparam s%chop_str len %chop_len,$%chop_str dec %chop_len mid $%chop_str,$%chop_str,0,%chop_len return
使い方は簡単。chopしたい文字列を引数に与えればいい。
numaliasを使っている場合は、chop $numaliasと記述すればいい。……まあ、こんなちまちましたものを記録するのも何だけどな。orz