掌握林业信息技术 共创中国蓝 加入收藏  设为首页 
您现在的位置: 主页 > 技术园地 > 林业勘测 >
分类归档
林业技术新闻
林业基础知识
植物价值
技术园地
行业标准
政策法律法规
林业软件
林业勘测内容

使用Visual Foxpro 7.0将林地落界图层中的乡村代码转


发布日期:2015-11-13 19:59      阅读次数:       文章摘自:未知

经常使用ARCGIS打开SHP格式的落界图层时,里面都是代码,常常需要将其与中文名称对应起来,往往需要实现挂库或者其他的办法,这里介绍一个新建字段进行替换的办法,将落界小班图层的乡村代码在新字段中实现中文名称的显示。需要准备XCDM.DBF文件和XBSJ.DBF文件。使用VFP程序(Visual Foxpro 7.0)编写简单代码实现替换功能。代码如下:
CLOSE ALL
   select 1
   MESSAGEBOX("请打开乡村代码表!")
use ? ALIAS xcdm  &&注释:打开乡村代码库别名为xcdm
IF TYPE("no")="U" &&注释:判断字段“NO”是否存在
alter table xcdm add column NO N(14,1) &&注释:字段“NO”如果不存在,新建“NO”字段
REPLACE xcdm.no WITH 10^6+VAL(xcdm.dwbh) all &&注释:替换“NO”字段内容
 
ENDIF
        &&注释:一下执行SCAN循环,将乡村代码替换为中文名称
 scan 
   lid2=xcdm.no
   l2=xcdm.dwmc
   select 2
   USE xbsj
   IF TYPE("xzmno")="U" or TYPE("cmno")="U" or TYPE("cm")="U" or  TYPE("xzm")="U"
   alter table xbsj add column xzmno N(14,1)
   alter table xbsj add column cmno N(14,1)
   alter table xbsj add column xzm C(50)
   alter table xbsj add column cm C(50)
   REPLACE xbsj.xzmno WITH 10^6+VAL(xiang)*10^4 all  
   REPLACE xbsj.cmno WITH 10^6+VAL(xiang)*10^4+VAL(cun)*10^2 all 
   ENDIF
  
 
   REPLACE ALL xbsj.xzm WITH l2  FOR xbsj.xzmno=lid2 
   REPLACE ALL xbsj.cm WITH l2  FOR xbsj.cmno=lid2 
   
 ENDSCAN
 CLOSE ALL 
  
  

VFP程序下载地址:链接: http://pan.baidu.com/s/1bnwSr99 密码: s4g4
   
   
   

尚未注册畅言帐号,请到后台注册