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