例: ListSep property (NotesViewColumn - LotusScript®)

次のエージェントは、列の分離記号を切り替えます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewColumn
  Dim f As String
  Set db = session.CurrentDatabase
  Set view = db.GetView("View A")
  Set vc = view.Columns(1)
  If vc.ListSep = VC_SEP_COMMA Then
    vc.ListSep = VC_SEP_NEWLINE
    f = "Newline"
  Elseif vc.ListSep = VC_SEP_NEWLINE Then
    vc.ListSep = VC_SEP_NONE
    f = "None"
  Elseif vc.ListSep = VC_SEP_NONE Then
    vc.ListSep = VC_SEP_SEMICOLON
    f = "Semicolon"
  Elseif vc.ListSep = VC_SEP_SEMICOLON Then
    vc.ListSep = VC_SEP_SPACE
    f = "Space"
  Else
    vc.ListSep = VC_SEP_COMMA
    f = "Comma"
  End If
  Messagebox f,, "New list separator"
End Sub