Copy メソッド (NotesJSONElement)

NotesJSONElement から別の NotesJSONElement に値をコピーします。

注記： このメソッドは、バージョン 14.5.1 から使用できます。

定義位置

NotesJSONElement

パラメータ

NotesJSONElement

使用例

    Dim session As New NotesSession
    Dim jsnav As NotesJsonNavigator
    Dim ele As NotesJSONElement
    Dim s As String	
    Dim jsnav1 As NotesJsonNavigator
    Dim ele1 As NotesJSONElement
    Set jsnav1 = session.CreateJSONNavigator("")
    
    s = |{"name":"John Doe","age":30,"contact":{"email":"john.doe@example.com","phone":"555-1234"}}|
    Set jsnav = session.CreateJSONNavigator(s)
    
    REM copy all element
    Set ele = jsnav.GetFirstElement()
    While Not (ele Is Nothing) 
    Set ele1 = jsnav1.AppendElement("", ele.Name)
    Call ele1.Copy(ele)
    Set ele = jsnav.GetNextElement()
    Wend
    'Result: {"name":"John Doe","age":30,"contact":{"email":"john.doe@example.com","phone":"555-1234"}}