把下面的代碼拷貝到文本文檔中，修改文件名為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文件後刪除不需要的列即可。
問題中提到的村圖層，不知道是面還是點圖層，如果是點圖層，那麽不是所有的信息點都能取到村的信息。如果是面圖層，則按照上述同樣的方法，在信息點圖層添加字段，並為該字段賦上村的值後處理。