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

发布网友 发布时间：2022-05-05 08:55

我来回答

共1个回答

热心网友 时间：2023-10-26 04:24

把下面的代码拷贝到文本文档中，修改文件名为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文件后删除不需要的列即可。

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

热心网友 时间：2023-10-26 04:24

把下面的代码拷贝到文本文档中，修改文件名为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文件后删除不需要的列即可。

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

热心网友 时间：2023-10-26 04:24

把下面的代码拷贝到文本文档中，修改文件名为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文件后删除不需要的列即可。

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