Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
sden
Зарегистрирован: 01.06.2011 Сообщения: 2
|
Добавлено: Пт Июн 03, 2011 10:43 am Заголовок сообщения: Выгрузка в mif/mid |
|
|
Как выгрузить слой на котором находится около 1000 объектов в mif/mid по отдельности, т.е., получить около 1000 файлов |
|
Вернуться к началу |
|
|
Alex_47
Зарегистрирован: 01.07.2009 Сообщения: 66 Откуда: Н.Новгород
|
Добавлено: Сб Июн 04, 2011 8:27 pm Заголовок сообщения: |
|
|
Если я правильно понял то надо сделать так:
Импортировать таблицу из мифки в таб
а потом вот так
Fetch First From ИМЯ_ЭКСПОРТИРОВАННОЙ_ТАБЛИЦЫ
Do While Not EOT(ИМЯ_ЭКСПОРТИРОВАННОЙ_ТАБЛИЦЫ)
Commit Table ИМЯ_ЭКСПОРТИРОВАННОЙ_ТАБЛИЦЫ As ИМЯ_НОВОЙ_ТАБЛИЦЫ
Fetch Next From ИМЯ_ЭКСПОРТИРОВАННОЙ_ТАБЛИЦЫ
Тупой перебор таблицы |
|
Вернуться к началу |
|
|
SergS
Зарегистрирован: 01.11.2010 Сообщения: 51
|
Добавлено: Пн Июн 06, 2011 5:06 am Заголовок сообщения: |
|
|
Alex_47 писал(а): |
Если я правильно понял то надо сделать так:
Импортировать таблицу из мифки в таб
а потом вот так
Fetch First From ИМЯ_ЭКСПОРТИРОВАННОЙ_ТАБЛИЦЫ
Do While Not EOT(ИМЯ_ЭКСПОРТИРОВАННОЙ_ТАБЛИЦЫ)
Commit Table ИМЯ_ЭКСПОРТИРОВАННОЙ_ТАБЛИЦЫ As ИМЯ_НОВОЙ_ТАБЛИЦЫ
Fetch Next From ИМЯ_ЭКСПОРТИРОВАННОЙ_ТАБЛИЦЫ
Тупой перебор таблицы |
гы, а я вот понял наоборот. Но суть та же самая (mapbasic, куда ж без него):
dim irow as integer
Fetch First From ИМЯ_ЭКСПОРТИРУЕМОЙ_ТАБЛИЦЫ
While Not EOT(ИМЯ_ЭКСПОРТИРУЕМОЙ_ТАБЛИЦЫ)
irow=ИМЯ_ЭКСПОРТИРУЕМОЙ_ТАБЛИЦЫ.rowid
select * from ИМЯ_ЭКСПОРТИРУЕМОЙ_ТАБЛИЦЫ into t1 noselect where rowid = irow
export t1 into "новая_таблица_" + str$(irow) type "MIF"
close table t1
Fetch Next From ИМЯ_ЭКСПОРТИРУЕМОЙ_ТАБЛИЦЫ
wend |
|
Вернуться к началу |
|
|
|