ArcGIS 同时上下标

Function FindLabel ( [NAME] )

  Dim lLen

  lLen=StrLen( [NAME]  )/2

  Dim i

  Dim sStr

  sStr=""

  i=0

  Do While i<lLen * 2

    sStr=sStr & "　"

    i=i+1

  Loop

  FindLabel = [NAME]  & "<SUP>" & "上面"  & vbcrlf & sStr & "下面" & "</SUP>"

End Function
function strlen(str)
dim p_len
p_len=0
strlen=0
p_len=len(str)
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end function

文章授权转载：gisoracle

- END -