Ответ

Maxx 16.01.2008 01:04 / 16.01.2008 01:06

@main[]

$data[^table::create{name	age
Вова	27 
Леша	22
Вася	24
Антон	67
Павлик	99
}] 

^printTable[$data;3]



@printTable[table;iCols][r1;r2;iShift;sAfter]
$iShift{^eval(^table.line[]%$iCols)} ^rem{флаг "сдвига"}
$r1[]	^rem{первая строка td} 
$r2[]	^rem{вторая строка td} 
^table.menu{
	^if($iShift){
		$r1[$r1<td>$table.name</td>]
		$r2[$r2<td>$table.age</td>]

	}{
		$r1[$r1<td>$table.name</td>]
		$r2[$r2<td>$table.age</td>]
		$result[${result}<tr>$r1</tr><tr>$r2</tr>]
		$r1[] $r2[]
	}
}
$sAfter[^for[i](1;$iCols-$table%$iCols){<td></td>}] ^rem{сколько пустых ячеек в конце}
$result[<table>${result}<tr>${r1}$sAfter</tr><tr>${r2}$sAfter</tr></table>]

это первое что пришло в невыспавшуюся голову, без претензии на красоту и универсальность.

---