Нашел, но только у меня были tab-разделенные таблицы

Никита Козин 13.11.2006 14:47

# $sTableName - имя таблицы в базе
# $tColumns - поля
# $tData - таблица с данными, (nameless!)
@insertData[sTableName;tColumns;tData][fData;sData]
^tData.save[nameless][/temp/${sTableName}.tbl][
	$.encloser[']
	$.separator[,]
]
$fData[^file::load[text;/temp/${sTableName}.tbl]]
$sData[^fData.text.trim[]]
$sData[(^sData.replace[^table::create[nameless]{^taint[^#0A]	^),^(}])]
^MAIN:oSQLServer.void{
	INSERT INTO $sTableName (^tColumns.menu{$tColumns.piece}[,])
	VALUES ^taint[as-is][$sData]
}
# end @insert[]