Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: robertpp am 22.10.08 - 15:10:09

Titel: Evaluate @Sort Zahlen
Beitrag von: robertpp am 22.10.08 - 15:10:09
Hallo,

Ich hab da ein kleines Problem wo ich gerade nicht weiterkomme.
Ich habe dieses Script das auch normal funktioniert:
Sub Click(Source As Button)
   Dim iString As String
   Dim i(3) As String
   Dim iSort1 As Variant
   Dim iSort2 As Variant
   i(0) = "345"
   i(1) = "233"
   i(2) = "12"
   i(3) = "112"

   
   iString = Implode( i , " : " )
   iSort1 = Evaluate( |@Sort(| & iString & |)|)
End Sub

Jetzt will ich die Zahlen jedoch nicht mit String sondern mit Integer haben und bekomme das einfach nicht hin:

   Dim i2 As Variant
   i2 = Evaluate (|112 : 345 : 233 : 12|)   
   iSort2 = Evaluate(|@Sort(112 : 345 : 233 : 12)|)

So wie es jetzt da steht geht es auch noch, ich will aber bei @Sort die Variable i2 übergeben und nicht die Zahlen direkt in der Formel hinterlegen!
Titel: Re: Evaluate @Sort Zahlen
Beitrag von: Axel am 22.10.08 - 19:33:45
So direkt fällt mir dazu auch nix Schlaues ein. Evaluate will als Parameter einen String.

Was funktionieren könnte wäre, die Integer - Werte in ein Mehrfachfeld zuschreiben und mit Evaluate auf dieses Feld zuzugreifen. Bin mir aber nicht sicher ob das bei dir möglich ist, da ich nicht weiß wo und wie du das einsetzen willst. Ist aber nur mal ein Denkanstoß.


Axel
 
Titel: Re: Evaluate @Sort Zahlen
Beitrag von: TRO am 22.10.08 - 20:48:23
Mal abgesehen von der Frage nach dem Sinn...

   Dim i2 As Variant
   i2 = Evaluate (|112 : 345 : 233 : 12|)   
   'iSort2 = Evaluate(|@Sort(112 : 345 : 233 : 12)|)
   iSort2 = Evaluate(|@Sort( | & Implode( i2 , " : " ) & | )|)

und die Member des Variant iSort2 sind vom Typ double.

hth

Thomas
Titel: Re: Evaluate @Sort Zahlen
Beitrag von: robertpp am 23.10.08 - 09:45:09
Danke!

iSort2 = Evaluate(|@Sort( | & Implode( i2 , " : " ) & | )|)

So, hat es jetzt funktioniert!