Domino 9 und frühere Versionen > ND6: Entwicklung

Array beschneiden

<< < (2/4) > >>

ata:
Hallo,

... in LS geht auch solch ein Konstrukt:

Dim vValue As Variant
Dim vArray( 0 to 3 ) As String
vArray( 0 ) = "1"
vArray( 1 ) = "2"
vArray( 2 ) = "3"
vArray( 3 ) = "4"
vValue = vArray
Redim Preserve vValue( 0 to 1 )
MsgBox Implode( vValue , Chr(10) )

Toni

bikerboy:
So habe nun folgende Lösung , vllt habt ihr lust sie noch zu verbessern, weil ich bestimmt Aspekte vergessen habe, aber das wichtigste es funktioniert


--- Code: ---Function appendLogEntry( varListHistory As Variant, strLogText As String,doc As NotesDocument)As Variant
' varListHistory = Der Feldinhalt aus dem aktuellen Dokument
' strLogText = der Text der angehangen werden soll
' doc = das Dokument ( wird nur für das Evaluate benutzt )

Dim strTemp As String

strTemp = Implode(varListHistory,"~")
strTemp = strLogText  + "~" + strTemp
varListHistory = Split(strTemp,"~")

        Call doc.ReplaceItemValue("listHistory",varListHistory)

If Ubound(varListHistory) > 24Then
varListHistory = Evaluate({@Subset(listHistory;25)},doc)
End If

appendLogEntry = varListHistory

End Function

--- Ende Code ---

m3:

--- Zitat von: koehlerbv am 07.04.08 - 11:49:22 ---Ich würde erwarten, dass Evaluate ("@Subset ..." bedeutend schneller ist als eine For-Schleife, da ja hierdurch direkt die API-Funktion aufgerufen wird, also Maschinensprache vs. Interpreter.
--- Ende Zitat ---
Naja. Aber die Ergebnisse müssen hin- und her kopiert werden, etc.

Na ev. find ich heute ein bisschen Zeit, da mal was auszuprobieren.

bikerboy:
So finde die Lösung von ata schöner als meine, weil ich so die möglichkeit habe das ganze einfacher zu konfigurieren über ein Profildokument zum Beispiel und ich muss das Dokument nicht übergeben! ganz grosses Plus.

Besten Dank

ata:
... danke ... ;D

Toni

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete