Как выгрузить по отдельности все объеты из слоя с именами

[Дмитрий_0786]

Как выгрузить по отдельности все объеты из слоя с именами которые перечисленны в одной из колонок в имеющейся таблице???

Необходимо разбить один миф\мид файл с большим количеством площедных объектов на множество миф/мид файлов в которых лишь по 1 площедному объекту, а имена получившихся файлов должны совпадать с одной из колонок.описаных в мид файле???
Можно выгружать по отдельности селекцией объектов, но для 1000000 объектов это очень долго.

Подскажите пожалуйста есть ли утилита для реализации данной задачи??

[Дмитрий_0786]

Подскажите пожалуйста есть ли специальная утилита, ии возможность сделать это инструментами Mapinfo?

[Донецков]

Выбор по указанием парметров из нужной колонки, потом экспорт в txt...

[Дмитрий_0786]

-

[sysrepos]

думаю нужно писать специальную утилиту, средствами мапинфо мне кажется такого не сделать.

[thegeo]

MapInfo тут уже ни к чему. Нужно просто выполнить разбор одного большого текстового файла и сохранить много маленьких текстовых файлов. Предлагаю вариант решения.

[sysrepos]

вот накатал на скорую руку, название файла из первой колонки берется (при условии что там все имена уникальные, иначе вылетит с ошибкой) и мид уже должен быть открыт как таб

Код: Выделить всё

Include "mapbasic.def"
Include "icons.def"
Declare Sub Main
Declare Sub proc1
Declare Sub clear
Declare Sub coordset

Sub Main
Set Distance Units "m"
call coordset

Create ButtonPad "Мои Кнопки" As PushButton
Icon MI_ICON_ZOOM_QUESTION
Calling proc1
HelpMsg "кнопка1"

PushButton
Icon MI_ICON_ZOOM_QUESTION
Calling clear
HelpMsg "clear"

show
End Sub



Sub  proc1
dim koltab as integer
dim str() as string
dim str2 as string
dim namefile as string
dim nametab as string
dim kolob as integer
dim i as integer

nametab=tableinfo(1,tab_info_name)
kolob=tableinfo(1,tab_info_nrows)

for i=1 to kolob
select * from nametab where rowid=i into q1 noselect
fetch first from q1
namefile=q1.col1
namefile=namefile+".mif"
print namefile

export q1  into namefile type "mif"

next

'koltab=numtables()
'redim str(koltab)


'str2="e:\str.mif"
'export str(i)  into str2 type "mif"


End Sub


sub clear
print chr$(12)
end sub


Sub coordset
dim s1 as string
if numtables()=0  then exit sub end if
s1=tableinfo(1,tab_info_coordsys_clause)
Run command "set " + s1
end sub

[Дмитрий_0786]

sysrepos огромное спасибо, программа то что нужно