Mehr

Was stimmt nicht mit meiner Etikettenformatierung?


Ich habe einige Formatierungsprobleme mit meinen Etiketten. Ich verwende einen ziemlich geradlinigen Ausdruck (siehe unten). Es funktioniert irgendwie gut, aber einige Formatierungen werden ignoriert, nämlich die ALL CAPS ACP-Tags. Alle Eigentümernamen sind in Kleinbuchstaben, wobei der erste Buchstabe groß geschrieben wird. Ich möchte sie in Großbuchstaben anzeigen und nur EINIGE Etiketten werden mit großgeschriebenen Eigentümern ausgegeben. Ich verwende auch kursive Tags, wenn ein Anspruchsnummernwert vorhanden ist und das funktioniert gut.

Ein weiteres Problem ist, dass, obwohl ich KEINE Zeichen verbreiten in Maplex, einige Labels, aber nicht alle haben die Namen des Besitzers verbreitet, aber seltsamerweise nicht die PIN-Nummern und Anspruchsnummern, die alle Teil einer einzigen String-Variablen sind.

Es gibt andere Probleme mit dem Stapeln von Labels in Maplex, die bei Verwendung von Stacking Separator nicht richtig gestapelt werden, aber lassen Sie uns dies für diese Frage ignorieren.

Gibt es eine Möglichkeit, dies zu beheben, oder muss ich in Anmerkungen exportieren und manuell beheben?

Funktion FindLabel ([Owner], [MNDMF_Active_Mining_Claims_CLAIM_NUM], [PIN], [PIN_Surface], [PIN_Mining] ) FindLabel = "" if not isnull([Owner]) then if trim([Owner]) <> "" then FindLabel = FindLabel & trim("" & [Inhaber] & "") end if end if if not isnull([MNDMF_Active_Mining_Claims_CLAIM_NUM]) then if trim([MNDMF_Active_Mining_Claims_CLAIM_NUM]) <> "" then if len(FindLabel) > 0 then FindLabel = FindLabel & vbnewline end if FindLabel = "" & "Anspruch: " & [MNDMF_Active_Mining_Claims_CLAIM_NUM] & "" end if end if if not isnull([PIN]) then if trim([PIN]) <> "" then if len(FindLabel) > 0 then FindLabel = FindLabel & vbnewline end if FindLabel = FindLabel & trim([PIN] ) end if end if if not isnull([PIN_Surface]) then if trim([PIN_Surface]) <> "" then if len(FindLabel) > 0 then FindLabel = FindLabel & vbnewline end if FindLabel = FindLabel & trim([PIN_Surface] )& " S" end if end if if not isnull([PIN_Mining]) then if trim([PIN_Mining]) <> "" then if len(FindLabel) > 0 then FindLabel = FindLabel & vbnewline end if FindLabel = FindLabel & trim ([PIN_Mining])& "M" end if end if End Funktion

Sowohl "<" als auch "&" sind Sonderzeichen, die dazu führen, dass die Formatierung fehlschlägt, wenn diese in Ihren Textzeichenfolgen enthalten sind. Sie müssen diese in Ihrem Code wie folgt ersetzen:

Funktion FindLabel ([LABELFIELD]) NewString = Replace([LABELFIELD],"&","&") FindLabel = "" & Neue Zeichenfolge & "" Funktion beenden

Weitere Informationen zur Formatierung finden Sie in der Hilfedokumentation


Schau das Video: Was stimmt nicht mit meinen Blutwerten? (Oktober 2021).