Импорт из csv-файла

vooft 09.09.2008 23:46 / 09.09.2008 23:47

Есть необходимость заливки на сервер csv-файла через форму и импорт в mysql-базу.
Проблемы 2:
Во-первых, не получается без сохранения обработать таблицу. Передается файл через форму, потом пытаюсь через

$tbl[^table::create{$form:filename.text}[$.separator[^;]]]

создать таблицу, но следующий сразу за этим

^if(def $tbl)

показывает, что таблица пуста.
CSV-файл создается с помощью 1С и имеет стандартную структуру: столбцы отделяются точкой с запятой, строки - символом переноса строки.
Вторая проблема уже когда подгружается файл при помощи

^table::load[]

, и получается, будто названия столбцов нормально считались, а сами данные - нет.
Вот код вывода таблицы:

@PrintTable[the_table]
	<table border=1><tr>
	$cols[^the_table.columns[]]
	^cols.menu{
		<td>$cols.column</td>
	}
	</tr>

	^the_table.menu{
		<tr>
		^cols.menu{
			<td>$table.[$cols.column]</td>
		}
		</tr>
	}
	</table>

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

---