Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: mikesmurph am 21.12.11 - 12:51:40

Titel: ArrayUnique
Beitrag von: mikesmurph am 21.12.11 - 12:51:40
Hallo zusammen,

ich steh mir grad wohl selbst im Weg...

Ich habe ein Dokumentenfeld PROF_Mat_EW_Wert vom Typ Text bei dem Mehrfachwerte zugelassen sind, und bei den Optionen für Mehrfachwerte folgendes drin steht:
Werte trenne bei Eingabe von : Komma, Semikolon, Neue Zeile
Getrennte Werte anzeigen mit: Neue Zeile

Der Inhalt des Feldes ist z.B.

Unwahrscheinlich
Unwahrscheinlich
Möglich
Möglich
Unwahrscheinlich
Möglich
Wahrscheinlich
Wahrscheinlich
Möglich
Wahrscheinlich
Wahrscheinlich
Sehr Wahrscheinlich
Möglich
Wahrscheinlich
Sehr Wahrscheinlich
Sehr Wahrscheinlich

Ich möchte jetzt aus den Werten eine Liste erstellen, in der alle Werte nur einmal auftauchen, also Duplikate entfernt sind.
Dazu nehme ich z.B. die folgende Funktion:

Code
sz1=Arrayunique(Split(uidoc.FieldGetText("PROF_Mat_EW_Wert"),Chr(13)))
   

Das Funzt auch soweit, nur wird der erste Eintrag immer doppelt angezeigt!
Hab das auch schon über eine Stringliste mit folgendem Code versucht:

Code
	Forall sx In sz1
		sz(sx)=sx	
	End Forall

Hat aber auch nichts gebracht. Irgendwie zweifle ich grad an mir selber.
Vielleicht kann mir jemand auf die Schnelle weiterhelfen.

vielen Dank und Grüße aus dem verschneiten Schwarzwald.

Michael
Titel: Re: ArrayUnique
Beitrag von: umi am 21.12.11 - 13:23:49
wie wärs über ein Evaluate ?

dim feldwert as string
dim liste as variant
feldwert = uidoc.fieldgetText("Prof_mat_ew_wert")
liste = evaluate({@Sort(@unique(@explode("} & feldwert & {";@newLine)));})
if isarray(liste) then

end if
Titel: Re: ArrayUnique
Beitrag von: pram am 21.12.11 - 13:30:53
OT, aber weil ich es grad sehe:
Code
sz1=Arrayunique(Split(uidoc.FieldGetText("PROF_Mat_EW_Wert"),Chr(13)))
Split sollte man nie als Argument in einer Funktion verwenden, sondern immer erst einem Variant zuweisen
https://www-304.ibm.com/support/docview.wss?uid=swg21169330
geht zwar meistens gut, aber manchmal kracht es.
Neben Split gehören da alle nativen Arrayfunktionen dazu (Replace/split/fulltrim/arrayunique)

Gruß
Roland
Titel: Re: ArrayUnique
Beitrag von: Tode am 21.12.11 - 13:41:42
Ausserdem würde ich NICHT das Frontend- Dokument nehmen (evtl. geht das mit dem Chr(13) da schief), sondern

uidoc.Document.GetItemValue( "PROF_Mat_EW_Wert" ), dann kriegst Du schon ein sauberes Array, mit dem Du weiterarbeiten kannst, ohne Split...
Titel: Re: ArrayUnique
Beitrag von: Fineas am 21.12.11 - 13:50:15
einfach und effizient:

FIELD DEINFELDNAME := @Unique( DEINFELDNAME);

oder

DEINEVARIABLE := @Unique( DEINFELDNAME);

Wenn es in LS ausgewertet werden soll, dann einfach ein zweites (verstecktes) Feld mit @unique auf das erste Feld und jenes dann auswerten. Auf diese Weise hat man die Basisdaten und die aufgeräumten Daten im Griff.

Gruß, Heiko
Titel: Re: ArrayUnique
Beitrag von: mezz am 21.12.11 - 14:07:58
Zitat von: umi am 21.12.11 - 13:23:49
wie wärs über ein Evaluate ?

dim feldwert as string
dim liste as variant
feldwert = uidoc.fieldgetText("Prof_mat_ew_wert")
liste = evaluate({@Sort(@unique(@explode("} & feldwert & {";@newLine)));})
if isarray(liste) then

end if


auch noch eine kleinigkeit zu meckern :)

derartige konstrukte sollte man am besten aus dem gedächtnis verbannen und statt evaluate direkt zu benutzen lieber einen wrapper schreiben um code injections zu verhindern.
Titel: Re: ArrayUnique
Beitrag von: Fineas am 21.12.11 - 14:19:28
@mezz:

Lustiger Gedanke: Code Injections in LND ...

Wer ein solches Konstrukt derart durchschaut, dass er dazu in der Lage wäre, der würde sich nicht diese Mühe machen, um etwas destruktiv zu bearbeiten, sondern direkter vorgehen  ;)

Formal ist der Einwand aber natürlich gerechtfertigt.

Heiko
Titel: Re: ArrayUnique
Beitrag von: mezz am 21.12.11 - 14:58:14
Zitat von: Fineas am 21.12.11 - 14:19:28
@mezz:

Lustiger Gedanke: Code Injections in LND ...

Wer ein solches Konstrukt derart durchschaut, dass er dazu in der Lage wäre, der würde sich nicht diese Mühe machen, um etwas destruktiv zu bearbeiten, sondern direkter vorgehen  ;)

Formal ist der Einwand aber natürlich gerechtfertigt.

Heiko

lustig ist das keineswegs, es ist sogar ein relativ großes problem das gerne heruntergespielt wird. ;)

Titel: Re: ArrayUnique
Beitrag von: mikesmurph am 23.12.11 - 10:54:34
Hallo zusammen,

danke für die Hilfe. Ich werde wohl die Lösung von Fineas nehmen. Scheint mir am klarsten gelöst, vor allem in 2 Monaten noch nachvollziehbar  ;D

Wünsche allen noch schönes Weihnachtsfest und ein gutes und erfolgreiches 2012!!

Viele Grüsse

Michael