有关标注(记)表达式的更多信息 (copied)
转自:http://support.esrichina-bj.cn/2006/0804/1192.html
Howto:利用“标注表达式”将字符串转为正确大小写
文章编号: 31542 软件: ArcGIS-ArcEditor8.3,9.0,9.1,9.2,9.3,9.3.1ArcGIS-ArcInfo9.0,8.3,9.3.1ArcGIS-ArcView8.3,9.3.1
摘要: 说明文件介绍了如何利用“标注表达式”将大写、小写或两者混合的字符串转为正确的格式。例如,如果一个字符串是以下格式: 利用“标注表达式”可以将其统一转换为"Hello World"。 内容: 在ArcMap的“字段计算器”中,可以使用VBA表达式中的StrConv将字符串转为正确格式。然而,默认的标注表达式解析器VBScript没有这个功能。以下标注表达式解决了VB脚本存在的限制: 1. 打开“标注表达式”对话框。 2. 点击“高级”按钮。
Function FindLabel ([MyFieldName])
FindLabel = PCase([MyFieldName]) End Function Function PCase(strInput) Dim iPosition Dim iSpace Dim strOutput iPosition = 1 Do While InStr(iPosition,strInput," ",1) <> 0 iSpace = InStr(iPosition,1) strOutput = strOutput & UCase(Mid(strInput,iPosition,1)) strOutput = strOutput & LCase(Mid(strInput,iPosition + 1,iSpace - iPosition)) iPosition = iSpace + 1 Loop strOutput = strOutput & UCase(Mid(strInput,iPosition + 1)) PCase = strOutput End Function 4. 当一次转换多个字段时,可以用以下代码。记得改字段名,需要的话可以增加更多字段。
Function FindLabel ([MyFieldName1],[MyFieldName2],[MyFieldName3])
FindLabel = PCase([MyFieldName1] & " " & [MyFieldName2] & " " & [MyFieldName3]) End Function Function PCase(strInput) 5. 点击“标注表达式”对话框的确定。 6. 确保“图层属性”的“标注”标签中“标注此图层中的要素”已勾选。 7. 点击“标注”标签中的确定。 创建时间:2006-08-04 最近更新: 2011-05-03 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |