Разбиение строки по N символов справа.

tezro 12.02.2007 16:40

На одном проекте понадобилось разбивать цену по три знака. Из 10000000 сделать 10 000 000.

Вдруг кому надо.

@spaced[string;number]
$times(^string.length[])
^times.div($number)
$times(^times.int[])
$start(^string.length[] - $times * $number)
$result[
	^string.left($start)&nbsp^;
	^for[i](1;$times){
		^string.mid(($i - 1) * $number + $start;$number)
	}[&nbsp^;]
]

---