arcgis字段计算字符串函数

一.字符串函数1.ASC(X)[格式]：P=Asc(X)返回字符串X的第一个字符的字符码[范例]：(2)P=Asc(“A”)输出652Chr(X)：转换字符码[格式]：P=Chr(X)返回字符码等于X的字符[范例]：(P=Chr(65)输出字符A,因为A的ASCII码等于653InStr函数：寻找字符串[格式]：P=InStr(X,Y)从X第一个字符起找出Y出现的位置P=InStr(n,X,Y)从X第n个字符起找出Y出现的位置[说明]：（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。（2）InStr(X,Y)相当于InStr(1,X,Y)。（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。（4）若Y为空字符串，则返回0。4Lcase：不论字符串中的字符为大写还是小写，一律输出为小写。Ucase:输出为大写5left(字符串,长度)：例如Left("小欣无敌",3)则返回"小欣无"6len(字符串):例如len("小欣无敌")则返回47Ltrim(string)将字符串前面的空格去掉8Mid(string,start,length)从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串9Replace:将字符串中的某些特定字符串替换为其他字符串[格式]：P=Replace(X,S,R)[说明]：将字符串X中的字符串S替换为字符串R，然后返回。[范例]：X=”VBisverygood”P=Replace(X,good,nice)输出结果为：P=”VBisverynice”10right(字符串,长度):从[字符串]的右边开始返回[长度]个字符例如Right("小欣无敌",3)则返回"欣无敌"11Rtrim(string)将字符串后面的空格去掉12space(个数):返回[个数]个空格例如space(5)则返回""(5个空格)13string(个数,字符)：返回[个数]个[字符]例如：string(3,"小")则返回"小小小",而string(3,"小欣无敌")也返回"小"，只有首字符才有效ArcGIS属性表中VBA的一些使用技巧(2009-09-2411:07:11)转载▼标签：属性表vbaarcgis文化分类：学术在ArcGIS属性表中，一般不会包含实体几何信息，可以采取VBA进行计算。下面是几个简单的代码特点:1推荐给不会使用AO的朋友2可以保存为CAL文件以备下次方便使用使用方法1打开属性表,选择计算的字段,右点选择CalculateValues；2.选择“是”，进入FieldCalculator；2选择Advance选项；3在Pre-LogicVBAScriptCode编辑框中输入VBA代码；4在下面编辑框中输入赋值部分.1--点坐标XVBA部分:DimpGeoAsIGeometrySetpGeo=[Shape]DimpPointAsIPointSetpPoint=pGeo赋值部分:pPoint.X2--点坐标YVBA部分:同上赋值部分:pPoint.Y坐标值为文件存储的固有值,和是否使用OntheFly坐标表示无关。返回当前显示的坐标值参看8,93--多边形周长VBA部分:DimpGeoAsIGeometrySetpGeo=[Shape]DimpPolygonAsIPolygonSetpPolygon=pGeo赋值部分:pPolygon.Length4--多边形面积VBA部分:DimpGeoAsIGeometrySetpGeo=[Shape]DimpPolygonAsIPolygonSetpPolygon=pGeoDimpAreaAsIAreaSetpArea=pPolygon赋值部分:pArea.Area5--多边形重心XVBA部分:DimpGeoAsIGeometrySetpGeo=[Shape]DimpPolygonAsIPolygonSetpPolygon=pGeoDimpAreaAsIAreaSetpArea=pPolygonDimpPointAsIPointSetpPoint=pArea.Centroid赋值部分:pPoint.X6--多边形重心YVBA部分:同上赋值部分:pPoint.Y7--Polyline长度VBA部分:DimpGeoAsIGeometrySetpGeo=[Shape]DimpPolylineAsIPolylineSetpPolyline=pGeoDimpCurveAsIPolycurveSetpCurve=pPolyline赋值部分:pCurve.Length8--表示点坐标XVBA部分:DimpDocAsIMxDocumentSetpDoc=ThisDocumentDimpSpRefAsISpatialReferenceSetpSpRef=pDoc.FocusMap.SpatialReferenceDimpCloneAsICloneSetpClone=[Shape]DimpGeoAsIGeometrySetpGeo=pClone.CloneDimpPointasIPointSetpPoint=pGeopGeo.ProjectpSpRef赋值部分:pPoint.X9--表示点坐标YVBA部分:同上赋值部分:pPoint.Y坐标值为OntheFly显示的坐标,不是文件存储的固有坐标10--连续编号VBA部分:StaticlCountaslonglCount=lCount+1赋值部分:lCount(从1开始)lCount-1(从0开始)