OB SET

4D v16.3

OB SET


OB SET ( object ; property ; value {; property2 ; value2 ; ... ; propertyN ; valueN} )

引数	型	説明
object	Object, Object Field	構造化されたオブジェクト
property	テキスト	設定したいプロパティの名前
value	テキスト, 日付, ブール, ポインター, Number, Object	プロパティの新しい値

説明

OB SETコマンドは、 object 引数で指定したランゲージオブジェクトの中に、一つ以上のプロパティ/値のペアを作成もしくは変更します。

object で指定するオブジェクトは、 C_OBJECT コマンドを使用して作成されている、あるいはオブジェクトフィールドが選択されている必要があります。

注: このコマンドは (WP SET ATTRIBUTESコマンドと同様に) 4D Write Pro objects に定義されている属性をサポートします (例題10を参照ください)。しかしながら、WP SET ATTRIBUTESとは異なり、OB SET はピクチャー変数やフィールドを属性値として直接扱うことはできません。

property 引数には、作成または修正したいプロパティのラベル(名前)を渡して下さい。object 内に指定されたプロパティが存在する場合、その値は指定した値で上書きされます。プロパティが存在しない場合、新たにプロパティが作成されます。
property 引数では、大文字と小文字は区別されることに注意して下さい。

value 引数には、プロパティに設定したい値を渡して下さい。渡せる値としては複数の型がサポートされています。渡す際には以下のことに注意して下さい:

ポインターを渡した場合、それはそのままの形で保存されます。値を解決するためには JSON Stringify コマンドを使用します。
日付を渡す場合には、"YYYY-MM-DDTHH:mm:ss.SSSZ" というフォーマットで表現されている必要があります。4D日付をオブジェクトに保存する前にテキストに保存する場合、プログラムはデフォルトでローカルのタイムゾーンを考慮します。この振る舞いはSET DATABASE PARAMETERコマンドのJSON use local time セレクターを使用する事で変更する事ができます。
時間を渡した場合、object 内にミリ秒単位(実数)として保存されます。
ランゲージオブジェクトを渡した場合、コマンドはオブジェクトの参照を使用し、実際にコピーを作成するわけではありません。

例題 1

オブジェクトを作成し、テキスト型のプロパティを追加する場合を考えます:

 C_OBJECT($Object)

 OB SET($Object ;"FirstName";"John";"LastName";"Smith")

  // $Object = {"FirstName":"John","LastName":"Smith"}

例題 2

オブジェクトを作成し、ブール型のプロパティを追加する場合を考えます:

 C_OBJECT($Object)

 OB SET($Object ;"LastName";"smith";"age";42;"client";True)

  // $Object = {"LastName":"smith","age":42,"client":true}

例題 3

プロパティを修正する場合:

  // $Object = {"FirstName":"John","LastName":"Smith"}

 OB SET($Object ;"FirstName";"Paul")

  // $Object = {"FirstName":"Paul","LastName":"Smith"}

例題 4

プロパティを追加する場合:

  // $Object = {"FirstName":"John","LastName":"Smith"}

 OB SET($Object ;"department";"Accounting")

  // $Object = {"FirstName":"Paul","LastName":"Smith","department":"Accounting"}

例題 5

プロパティの名前を変更する場合:

 C_OBJECT($Object)

 OB SET($Object ;"LastName";"James";"age";35)

  // $Object = {"LastName":"James","age":35}

 OB SET($Object ;"FirstName";OB Get($Object ;"LastName"))

  // $Object = {"FirstName":""James","nom":"James","age":35}

 OB REMOVE($Object ;"LastName")

  // $Object = {"FirstName":""James","age":35}

例題 6

ポインターを使用する場合:

  // $Object = {"FirstName":"Paul","LastName":"Smith"}

 C_TEXT($LastName)

 OB SET($Object ;"LastName";->$LastName)

  // $Object = {"FirstName":"Paul","LastName":"->$LastName"}

 $JsonString:=JSON Stringify($Object)

  // $JsonString="{"FirstName":"Paul","LastName":""}

 $LastName:="Wesson"

 $JsonString:=JSON Stringify($Object)

  // $JsonString="{"FirstName":"Paul","LastName":"Wesson"}

例題 7

オブジェクトを使用する場合:

 C_OBJECT($ref_smith)

 OB SET($ref_smith ;"name";"Smith")

 C_OBJECT($ref_emp)

 OB SET($ref_emp ;"employee";$ref_smith)

 $Json_string :=JSON Stringify($ref_emp)

  // $ref_emp = {"employee":{"name":"Smith"}} (object)

  // $Json_string = "{"employee":{"name":"Smith"}}" (string)

値をプログラム実行中に変えることもできます:

 OB SET($ref_smith ;"name";"Smyth")

  // $ref_smith = {"employee":{"name":"Smyth"}}

 $string:=JSON Stringify($ref_emp)

  // $string = "{"employee":{"name":"Smyth"}}"

例題 8

[Rect]Desc フィールドがオブジェクトフィールドとして定義されているとき、以下のように記述することができます:

 CREATE RECORD([Rect])

 [Rect]Name:="Blue square"

 OB SET([Rect]Desc;"x";"50";"y";"50";"color";"blue")

 SAVE RECORD([Rect])

例題 9

変換された4D date を含む JSON形式のデータを書き出したい場合を考えます。変換が起きるのは日付がオブジェクトに保存されたときなので、 OB SETコマンドが呼び出される前に SET DATABASE PARAMETERコマンドを使用する必要があることに注意して下さい:

 C_OBJECT($o)

 SET DATABASE PARAMETER(JSON use local time;0)

 OB SET($o ;"myDate";Current date) // JSON への変換

 $json:=JSON Stringify($o)

 SET DATABASE PARAMETER(JSON use local time;1)

例題 10

4D Write Proエリアを含むフォームメソッド内に、以下のように書く事ができます:

 If(Form event=On Validate)

    OB SET([MyDocuments]My4DWP;"myatt_Last edition by";Current user)

    OB SET([MyDocuments]My4DWP;"myatt_Category";"Memo")

 End if

ドキュメントのカスタム属性を読み出す事もできます:

vAttrib:=OB Get([MyDocuments]My4DWP;"myatt_Last edition by")

参照

OB REMOVE
OB SET ARRAY
OB SET NULL