用vbscript实现ArcMap中的上下标标注功能
1.问题描述：
如果要出一幅地质图，一般地层的表示通常要上下标方式，比如A14(其中1为上标，4为下标)，我把A14存入对应矢量要素的属性字段中，可是利用该字段标注要素时总是得不到想要的上下标。
2.解决方法：
下面的“Function FindLabel”是ArcMap标注的公式例子，在图层Label选项卡中。使用之前应该将“Advanced”钩选上，并将“SHAPE_Length”改为您自己的列名，再将其中的 "上标测试"和“下标”字样改成您的上下标即可。
Function FindLabel ( [Symbol] ) Dim lLen lLen=Len( [Symbol] ) Dim i Dim sStr sStr="" i=0 Do While i sStr=sStr & " " i=i+1 Loop FindLabel = [Symbol] & "" & "上标测试" & vbcrlf & sStr & "下标" & "" End Function
3.几点补充说明
上述代码只是解决了上下标的问题，因为我把上下标A14全存在一个字段里了，所以还有一个字符串提取的问题，就是说把1提出来变成上标，把4提出来用下标。可以用vb脚本的split函数。我把A14存成“A/1/4” 然后用split("A/1/4","/")即可提出这三个字符。
如果有些只有下标。而有些只有上标则要对第二步的代码加以完善，不同情况用不同的方法。
