例: FieldAppendText method

1. 次のフォームアクションスクリプトは現在の文書の [本文] フィールドに「Over here, balloon man!」という文を追加します。

   Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument
     Call uidoc.FieldAppendText _
     ( "Body", "Over here, balloon man!" )
   End Sub

2. 次のスクリプトはユーザーが文書を保存するときに、今日の日付、現在のユーザー名、[Event] フィールドの内容の 3 つを空白で区切って [Log] フィールドに付加します。[Event] フィールドの内容は消去されます。

Sub Querysave(Source As Notesuidocument, Continue As Variant)
  Dim session As New NotesSession
  Call source.FieldAppendText( "Log", Cstr( Date ) )
  Call source.FieldAppendText( "Log", " " )
  Call source.FieldAppendText _
  ( "Log", session.CommonUserName )
  Call source.FieldAppendText( "Log", " " )
  Call source.FieldAppendText _
  ( "Log", source.FieldGetText( "Event" ) )
  Call source.FieldClear( "Event" )
End Sub

1. 次のボタンスクリプトは文字列リストに新しい値を付加します。スクリプトは最初にユーザーに文字列の値を入力するように求めます。[choices] フィールドが空のとき、このフィールドに新しい文字列を追加します。[choices] フィールドに既存の値があるときは、その後ろに複数の値を区切るためのセミコロンを置き、続けて新しい文字列を追加します。

   Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim currentChoices As String
     Dim newChoice As String
     Set uidoc = workspace.CurrentDocument
     currentChoices = uidoc.FieldGetText( "choices" )
     newChoice = Inputbox$( "Please enter a new choice: " )
     If ( currentChoices = "" ) Then
       Call uidoc.FieldSetText( "choices", newChoice )
     Else
       Call uidoc.FieldAppendText("choices", ";" & newChoice)
     End If
   End Sub