' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ' * ' * Selective replication settings ' * (class srcServer code) ' * ' * sample code from ' * LotusScript to Lotus C API Programmer Guide by Normunds Kalnberzins, (c) 2000-2003 ' * ' * http://www.ls2capi.com ' * ' * Author: Normunds Kalnberzins ' * ' * This code has been written as a sample to illustrate aspects of handling of Lotus C API from LotusScript ' * and may be reused, modified on full responsibility of the developer and provided this notice is preserved ' * ' * The author does not guaranty it to fit any particular purpose and it is up to the developer ' * to modify, test it and determine the limits of its applicability ' * ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ' * * * * * * * * START (Class) [SRCSERVER] ' * * * * * * * * ' * Public Class srcServer As aServer Public Formula As String Public Views As Variant ' array of viewtitles Public privateViews As Variant ' same only private Public Fields List As String theFields As String ' * * * * * * * * START (Property) [FIELDLIST] ' * * * * * * * * ' * Public Property Get FieldList As String ' collapse list to string Dim tmpStr As String Forall f In Me.Fields If tmpStr = "" Then tmpStr = f Else tmpStr = tmpStr + ";" + f End If End Forall FieldList = tmpStr End Property Public Property Set FieldList As String ' expand string Dim flds As Variant theFields = FieldList flds = Evaluate({@Explode("} + FieldList + {";";")}) ' explode to array ' fill in the list Erase Fields Forall f In flds Me.Fields (f) = f End Forall End Property ' * * * * * * * * END (Property) [FIELDLIST] ' * * * * * * * * ' * * * * * * * * START (Method) [NEW] ' * * * * * * * * ' * Public Sub new (t As String) End Sub ' * * * * * * * * END (Method) [NEW] ' * * * * * * * * End Class' * srcServer ' * * * * * * * * END (Class) [SRCSERVER] ' * * * * * * * *