topic Re: A script for advance label expression in ArcGIS Enterprise Portal Questions

A script for advance label expression

SiyangTeo — Mon, 24 Sep 2012 07:21:54 GMT

Hi, I was wondering if anyone can help with a specific script for labelling the below. I am totally new to VBscript so any help will be greatly appreciated!

There are two fields: [Animal] & [Species_Name]. E.g.: [Animal] = Frog, [Species_Name] = Rana catesbeiana Shaw, 1802

How could I make the label appear like this below?

Frog
Rana catesbiana
Shaw,1802

Basically the font size for the frog is set and bold, and the second field is text wrapped after the second spacing.

Thank u in advance!

Re: A script for advance label expression

MarcinGasior — Sat, 11 Dec 2021 15:09:25 GMT

Try the following code in Label Expression with Advanced marked:

Function FindLabel ( [Animal], [Species_Name] )
  FindLabel = "<BOL><FNT name='Arial' size='12'>" & [Animal] & "</FNT></BOL>" & _
  "<FNT name='Arial' size='10'>" & vbnewline & _ 
  Split( [Species_Name]) (0) & " " & Split( [Species_Name] )(1) & _ 
  vbnewline & _
  Split( [Species_Name] )(2) & " " & Split( [Species_Name] )(3) & "</FNT>"
End Function

This code, after setting Left Horizontal Alignment in Symbol properties, gives me this result:
[ATTACH=CONFIG]17913[/ATTACH]

You can read more about advanced labeling and formatting tags here.

Re: A script for advance label expression

SiyangTeo — Mon, 24 Sep 2012 14:34:29 GMT

That's really useful! I think I can decipher most of what you wrote there.

However, my field [Species_Name] contains a few differing names, some with 2 spaces, 3 spaces and so on.

For example, three of the [Species_Name] are:

Cassia fistula L.
Andrographis paniculata (Burm. f.) Wall. ex Nees
Fittonia albivensis (Lindl. ex hort. Veitch)

They will not show up in the labels since the expression did not specify the number of spaces. How do edit your code so that only the first two characters are at the first line while the remainder in the second?

Specifically, how do I make them like this:

Frog
Cassia fistula
L.

Frog
Andrographis paniculata
(Burm. f.) Wall. ex Nees

Frog
Fittonia albivensis
(Lindl. ex hort. Veitch)

Thanks once again for the help.

Re: A script for advance label expression

MarcinGasior — Tue, 25 Sep 2012 08:36:51 GMT

In this case the following script should do the work:

Function FindLabel ( [Animal], [Species_Name] )   Dim SpNameArray   SpNameArray = Split([Species_Name])   Dim Authors   Authors = ""   For i=2 to UBound(SpNameArray)     Authors = Authors & SpNameArray(i) & " "    Next   FindLabel = "<BOL><FNT name='Arial' size='12'>" & [Animal] & "</FNT></BOL>" & _   "<FNT name='Arial' size='10'><ITA>" & vbnewline & _    Split( [Species_Name]) (0) & " " & Split( [Species_Name] )(1) & "</ITA>" & _    vbnewline & Authors & "</FNT>" End Function

Here's the result:
[ATTACH=CONFIG]17952[/ATTACH]

This script puts two first words from [Species_Name] in one line and the rest words from this field in second line.

Re: A script for advance label expression

SiyangTeo — Tue, 25 Sep 2012 10:40:14 GMT

Thanks! I'm learning quite a lot of vbscript through your help.

Actually I found that this function of yours earlier works best for me, since the authorship of the species is redundant for my purpose. I modified slightly to become this:

Function FindLabel ( [Animal] , [Species_Name] )
FindLabel = "<BOL><FNT name='Arial' size='12'>" & [Animal] & "</FNT></BOL>" & _
"<FNT name='Arial' size='10'>" & vbnewline &_
Split ( [Species_Name] ) (0) & " " & Split ( [Species_Name] ) (1)
End Function

So:

Frog
Rana catesbiana
Shaw,1802

Will become this instead:

Frog
Rana catesbiana

However, I encountered another problem. I found out that when a species names [Species_Name] is not listed, the entire point for it will not be labelled at all. How can I modify this code so that when such a case happen, the label will show only the [Animal] field?

For this case, it means that only Frog will be shown when it has no species name.

Thanks again in advance.

Re: A script for advance label expression

MarcinGasior — Tue, 25 Sep 2012 11:05:34 GMT

I suppose the easiest way will be to create additional Label Class (in Label Manager) and apply SQL Query to chose only those record with empty [Species_Name] field and then use label expression with only first part.
The Default Label Class should have SQL Query specified to select only those record with [Species_Name] not empty.

Re: A script for advance label expression

SiyangTeo — Tue, 25 Sep 2012 13:33:04 GMT

Thanks! It works now~

Appreciate the help 🙂