以国土三调土地利用现状库未利,标注 地类编码、地类名称和权属单位名称,方法如下:
直接上代码:
二分式:
FUNCTION myFind( DZM, NAME )
a=strlen(dzm)
b=strlen(NAME)
IF a>b then
myFind ="<und>" & DZM &"</und>" & vbcrlf & NAME
ELSE
str= space((b-a)/2)
myFind ="<und>" & str & DZM &str &"</und>" & vbcrlf & NAME
END if
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
Function FindLabel ([DLBM],[TBBH])
FindLabel = myFind([DLBM],[TBBH])
End Function
三分式:
'by qq443440204-------FUNCTION STRLEN(STR)----------
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
FUNCTION myFind(cunname,DJH,SHAPE_Area)
dim str
str=SHAPE_Area
dim d
d=strlen(str)
dim d1
dim d2
d1=strlen(cunname) /2
if d1<1 then
d1=1
end if
d2=strlen(DJH) /2
if d2<1 then
d2=1
end if
if d2>d1 then
d1=d2
end if
myFind = cunname & space(d) & vbnewline & string(d1,"—") & str & vbnewline & DJH & space(d)
END Function
'编制日期:2024-02-02
Function FindLabel ([DLMC],[DLBM],[QSDWMC])
FindLabel = myFind([DLMC],[DLBM],[QSDWMC])
End Function