Question

mapinfo中，如何把有网格分割的图层的注释信息导成excel表？

如下图，有3个图层，zibo图层为网格图层，其注释信息为ZB×××××，信息点、村注释信息如图，请问如何将注释信息ZB××××××、信息点、村的注释信息导出到excel中？如ZB35828 永盛家电超市;ZB35937 高青盐务局。
顶起

Answer 1

把下面的代码拷贝到文本文档中，修改文件名为test.mb，然后打开test.mb,点击ctrl+K，ctrl+U

include "mapbasic.def"

open window message

Dim sAppPath,zb as String 

Dim myobj as object

sAppPath = ApplicationDirectory$() 

open table sAppPath+"zibo.tab"  as tabzibo

open table sAppPath+"信息点.tab"  as tabinfo

Alter Table tabinfo ( add zibo char(8)) Interactive 

fetch first from tabzibo

do while not eot(tabzibo)

myobj=tabzibo.obj

zb=tabzibo.zibo'''''''''''''''修改成实际zibo文件中的标注字段

select * from tabinfo where obj within myobj into temp

update temp set zibo=zb 

fetch next from tabzibo

loop

commit table tabinfo

close all

print "OK-------"

运行结束后在mapinfo中打开信息点.tab，选择菜单table-Export，然后保存类型选择.csv

,点击保存，选择最后一行

ok即可

打开csv文件后删除不需要的列即可。

问题中提到的村图层，不知道是面还是点图层，如果是点图层，那么不是所有的信息点都能取到村的信息。如果是面图层，则按照上述同样的方法，在信息点图层添加字段，并为该字段赋上村的值后处理。

追答

那说明信息点图层里已经添加了zibo字段
你将“Alter Table tabinfo ( add zibo char(8)) Interactive ”这行删除或者修改为
“‘Alter Table tabinfo ( add zibo char(8)) Interactive ”再运行即可