'----------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 NEXTEND functionFUNCTION myFind( cunname, DJH,SHAPE_Area,lb ) dim str str=SHAPE_Area dim d d=strlen(str) dim d1 dim d2 d1=strlen(cunname) /2 d2=strlen(DJH) /2 if d2>d1 then d1=d2 end if myFind ="　" & space(d-1) &cunname & vbnewline & str & string(d1, "—") & lb & vbnewline & space(d) & DJH END Function'編制日期:2012-03-25Function FindLabel ([小班號],[林種],[樹種],[小班面積],[完成面積],[密度],[完成情況],[類別] ) FindLabel = myFind( [林種] & "-" & [小班面積] & "（" & [完成面積] & "）",[樹種] & "-" & [密度] & "-" & [完成情況], [小班號],[類別])End Function