メインコンテンツまでスキップ
バージョン: 20 R7 BETA

XML DECODE

XML DECODE ( xmlValue ; 4Dvar )

引数型説明
xmlValueText→XML構造から取得したテキスト型の値
4DvarField, Variable←変換したXMLの値を受け取る4D変数またはフィールド

説明​

XML DECODE コマンドはXML文字列に格納されている値を4D型の値に変換します。 変換は以下のルールに基づいて自動で行われます:

値例日本語システム上での変換例
数値8,58.5実数: 8.5
ブール1 0 またはtrue falseブール: True/False
BLOBBase64 デコード
ピクチャBase64 デコード + BLOB to picture コマンド
日付2009-10-25T01:03:20+01:00時間部とタイムゾーンを取り除く: !10/25/2009!
時間2009-10-25T01:03:20+01:00日付部を取り除く: ?01:03:20? 警告:タイムゾーンは、ローカル時間と異なる場合にのみ使用されます。例: "2009-10-25T01:03:20+05:00" は、UTC+1のローカル時間では、?21:03:20? とデコードされます

4Dvar 引数の型が未定義の場合、デフォルトでテキスト型が使用されます。

例題​

XMLドキュメントから、属性として格納されているデータを読み込む。
XMLドキュメントの例:

<CD  Date="2003-01-01T00:00:00Z" Description="This double CD reissued by EMI  in 1995 combines 
4 Stabat mater hymns. One by Rossini interpreted by the  Berlin Symphony Orchestra, directed by Karl Forster. 
Followed by a work  of Verdi, by the Philharmonic Orchestra, directed by Carlo Maria  Giulini. On the second CD, 
you will find Francis Poulenc interpreted by  Régine Crespin. This compilation ends with a little-known version, that  of the Polish composer Karol Szymanowski. Polish National Radio Symphony  Orchestra directed by Antoni Wit" 
Double="true" 
Duration="7246"  
Type="Sacred music" 
CD_ID="5" 
Performer="Various" 
Price="8.5" 
Title="4  Stabat mater"/>
 Repeat
    MyEvent:=SAX Get XML node(DocRef)
 
    Case of
       :(MyEvent=XML Start Element)
          ARRAY TEXT(arrAttrNames;0)
          ARRAY TEXT(arrAttrValues;0)
          SAX GET XML ELEMENT(DocRef;vName;vPrefix;arrAttrNames;arrAttrValues)
          If(vName="CD")
             CREATE RECORD([CD])
             For($i;1;Size of array(arrAttrNames))
                $attrName:=arrAttrNames{$i}
                Case of
                   :($attrName="CD_ID")
                      XML DECODE(arrAttrValues{$i};[CD]CD_ID)
                   :($attrName="Title")
                      [CD]Work:=arrAttrValues{$i}
                   :($attrName="Price")
                      XML DECODE(arrAttrValues{$i};[CD]Price)
                   :($attrName="Date")
                      XML DECODE(arrAttrValues{$i};[CD]Date entered)
                   :($attrName="Duration")
                      XML DECODE(arrAttrValues{$i};[CD]Total_duration)
                   :($attrName="Double")
                      XML DECODE(arrAttrValues{$i};[CD]Double_CD)
                End case
             End for
          End if
          ...
    End case
 Until(MyEvent=XML End Document)

参照​

BASE64 DECODE
BASE64 ENCODE