- 627 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/04/21(火) 23:41:11 ID:IgF/yRNQ0]
- >>625
こういう方法ならどうだろう？
xxx：元の文字列
$puts(strToCnt,xxx)
$puts(cntOrigin,$len2($get(strToCnt)))
$puts(cntOriginQ,$sub($get(cntOrigin),$len2($replace($get(strToCnt),?,))))
$add($sub($get(cntOrigin),$add($len2($replace($ascii($get(strToCnt)),?,)),$get(cntOriginQ))),$get(cntOrigin))
$asciiで全角文字が「?」につぶれることを利用してみた。
