mmi consult - tipps und tricks blog

Nicht selten kann man erst zur Laufzeit ermitteln, wie viele Werte man in einem Array sammeln muß. Hierzu verwendet man dann dynamische Arrays: Dim vArray () As Variant ... ... If x 1 then .. mehr

Ein Beispiel für indirekte Adressierung in Lotusscript. Auf einer Maske sind zwei Listenfelder. In Abhängigkeit eines dritten Feldes (zB. Optionsschaltflächen) soll eine der beiden Listen ausgewerte .. mehr

Function AddToList (Value As Variant, ValueList As Variant) Dim tmpValueList As Variant ' Load the array element by element so that the datatype is preserved Redim tmpValueList(U .. mehr

Public Function RemoveNthEntries( NthToRemove, arrayToRemoveFrom ) As Variant '=== Removes entries from arrayToRemoveFrom whos index value is in listEntriesToRemove '=== Returns a variant that cont .. mehr

Public Function RemoveEntries( ValuesToRemove, arrayToRemoveFrom, compMethod As Integer ) As Variant '=== Removes entries from arrayToRemoveFrom whos value is in the ValuesToRemove array '=== Retur .. mehr

Public Function AddValues( valuesToAdd, valuesToAddTo, iStartAt As Integer ) As Variant '=== Adds array or single value in valuesToAdd into valuesToAddTo array starting at the '=== iStartAt positio .. mehr

Function EntryInList (Value As Variant, ValueList As Variant) As Integer ' This will return a 1 based value if the position in the list EntryInList = 0 i = 1 Forall Entrie .. mehr

Function Implode( valueToImplode, Seperator As String) As String '=== Returns the value of the list or array imploded into a single string using separator '--- If not array or list then quit .. mehr

Function Explode( valueToExplode As String, Seperator As String) As Variant '=== Gets the ValueToAdd and uses the Seperator as the '=== delimiter to populate the Strings Array Dim Strings .. mehr

Function RemoveFromList (Value As Variant, ValueList As Variant) Dim tmpValueList() As String x = 0 Redim Preserve tmpValueList(x) Forall vals In ValueList If Not Value = vals Then Redim Preser .. mehr

Function RemoveItemFromList (intItem As Integer, ValueList As Variant) ' *** intItem should be passed in zero based as well as ValueList Dim tmpValueList() As Variant Dim intItemCnt As Integer ' .. mehr

Function RemoveRangeFromList (intStartPos As Integer, intEndPos As Integer, varInput As Variant) As Variant Dim tmpList() As Variant Dim intPosCnt As Integer intPosCnt = 0 .. mehr