投稿に使用したメディアをリストする [FileMaker で WordPress]

[
	{
		"NameEndSize" : "525x235",
		"attach_id" : 14833,
		"height" : "235",
		"src" : "https://www.digitalboo.net/main/wp-content/uploads/2024/03/posts_postmeta-525x235.png",
		"type" : "img",
		"url" : "https://www.digitalboo.net/main/wp-content/uploads/2024/03/posts_postmeta.png",
		"width" : "525"
	},
	{
		"alt" : "postmeta 例",
		"attach_id" : 15117,
		"height" : "145",
		"src" : "https://www.digitalboo.net/main/wp-content/uploads/2024/05/postmeta-example.png",
		"type" : "img",
		"url" : "https://www.digitalboo.net/main/wp-content/uploads/2024/05/postmeta-example.png",
		"width" : "422"
	}
]

#json から attach_id を取得

#本文に画像がなく、empty なら終了
If [ IsEmpty ( localData::json ) ]
	スクリプト実行 [ 「JSON 使用attach を作成」 ]
End If

変数を設定 [ $json; 値:localData::json ]
If [ $json = "empty" ]
	変数を設定 [ $ids ]
Else
	変数を設定 [ $jsonkey; 値:JSONListKeys ( $json ; "" ) ]
	変数を設定 [ $vc; 値:ValueCount ( $jsonkey ) ]
	変数を設定 [ $c; 値:1 ]
	変数を設定 [ $i; 値:0 ]
	Loop
		Exit Loop If [ $c > $vc ]
		変数を設定 [ $j; 値:JSONGetElement ( $json ; "[" & $i & "]" & ".attach_id" ) ]
		変数を設定 [ $ids; 値:List ( $ids ; $j ) ]
		変数を設定 [ $c; 値:$c+1 ]
		変数を設定 [ $i; 値:$i+1 ]
	End Loop
End If

#ids に thumb id を追加
変数を設定 [ $ids; 値:List ( $ids ; localData::_thumbnail_id ) ]

#ギャラリー [] を処理
変数を設定 [ $ids; 値:Substitute ( $ids ; [ "[" ; "" ] ; [ "]" ; "" ]; [ "," ; ¶ ] ) ]
変数を設定 [ $ids; 値:UniqueValues ( $ids ) ]
変数を設定 [ $ids; 値:AdjustLineBreaks ( SortValues ( $ids ; 2 ) ) ]
フィールド設定 [ localData::attach_ids; $ids ]

#---------------------------------------------------------------
# content -> elmList の準備
#---------------------------------------------------------------

# 1 ショートコード [ ] を $elmListに加える。ただし閉じタグ [/ ] は無視して改行に置換。関係ないショートコードも除外しておく（ここでは "php file" が含まれるものにみ対処 - 各自使用環境に準じる）

変数を設定 [ $vc; 値:ValueCount ( $content ) ]
変数を設定 [ $c; 値:1 ]
Loop
	変数を設定 [ $line; 値:GetValue ( $content ; $c ) ]
	変数を設定 [ $line; 値:GetValue ( Substitute ( $line ; "[/" ; ¶ ) ; 1 ) ]
	変数を設定 [ $line; 値:If ( PatternCount ( $line ; "php file" ) ; "" ; $line ) ]
	If [ Left ( $line ; 1 ) = "[" and Right ( $line ; 1 ) = "]" ]
		変数を設定 [ $elmList; 値:List ( $elmList ; $line ) ]
		変数を設定 [ $content; 値:Substitute ( $content ; $line ; "" ) ]
	End If
	変数を設定 [ $c; 値:$c+1 ]
	Exit Loop If [ $c > $vc ]
End Loop

# 2 タグ < > を改行に置換して、必要な行を $elmList に加える

変数を設定 [ $content; 値:Substitute ( $content ; [ "<" ; ¶ & "<" ]; [ ">" ; ">" & ¶ ] ) ]
変数を設定 [ $vc; 値:ValueCount ( $content ) ]
変数を設定 [ $c; 値:1 ]
Loop
	変数を設定 [ $gv; 値:GetValue ( $content ; $c ) ]
	If [ Left ( $gv ; 1 ) = "<" and Right ( $gv ; 1 ) = ">" and PatternCount ( $gv ; "=" ) and ( PatternCount ( $gv ; "src" ) // ここでは src（配置）だけを含め、href（ただのリンク） を含めない // or // PatternCount ( $gv ; "href" ) ) ]
		変数を設定 [ $elmList; 値:List ( $elmList ; $gv ) ]
	End If
	変数を設定 [ $c; 値:$c+1 ]
	Exit Loop If [ $c > $vc ]
End Loop
	変数を設定 [ $elmList; 値:Substitute ( $elmList ; [ "<" ; "" ]; [ "[" ; "" ]; [ " />" ; "" ]; [ "]" ; "" ] ) ]
#処理するリスト elmList が完成した

img class="km wp-image-15216 size-full" src="https://www.digitalboo.net/main/wp-content/uploads/2024/05/parent_ids-1.png" alt="parent_ids フィールド" width="212" height="269"
img class="alignnone wp-image-15188" src="https://www.digitalboo.net/main/wp-content/uploads/2024/05/thumb_id-320x77.png" alt="" width="240" height="58"
img class="wp-image-15221" src="https://www.digitalboo.net/main/wp-content/uploads/2024/05/script-post-attachGet-525x697.png" alt="使用スクリプト" width="320" height="425"
gallery link="file" columns="2" size="medium" ids="5133,5134,5135,5137"
video width="768" height="576" mp4="https://www.digitalboo.net/main/wp-content/uploads/2012/01/sequenceYAMA-1.mp4"

#------------------------------------------
# $elmList 1行を1グループとして処理する
#------------------------------------------

変数を設定 [ $vc; 値:ValueCount ( $elmList ) ]
If [ $vc = 0 ]
	# 本文中に画像がない場合は "empty" を書き込んで終了
	フィールド設定 [ localData::json; "empty" ]
	現在のスクリプト終了 [ ]
End If
変数を設定 [ $c; 値:1 ]
Loop
	#LOOP 1 group
	Exit Loop If [ $c > $vc ]
	#この行
	変数を設定 [ $gv; 値:GetValue ( $elmList ; $c ) ]
	変数を設定 [ $groupName; 値:Trim ( LeftWords ( $gv ; 1 ) ) ]
	スクリプト実行 [ 「elmListの行を解析 groupJson作成」; 引数: $gv ]
	変数を設定 [ $groupJson; 値:Get ( スクリプトの結果 ) ]
	変数を設定 [ $json; 値:JSONSetElement ( $json ; [ "[" & $c-1 & "]" ; $groupjson; 3 ] ) ]
	#LOOP 1 group
	変数を設定 [ $c; 値:$c + 1 ]
End Loop
フィールド設定 [ localData::json; $json ]

#elmLine を解析して key val リストを作成

変数を設定 [ $group; 値:Get ( スクリプト引数 ) ]
変数を設定 [ $groupName; 値:LeftWords ( $group ; 1 ) ]
変数を設定 [ $groupJson ]
変数を設定 [ $gvList; 値:Substitute ( $group ; [ $groupName & " " ; "" ] ; [ "\"" & " " ; "\"" & ¶ ]; [ "\"" & ">" ; "\"" ] ; [ ">" ; ¶ ] ; [ "<" ; ¶ ] ; [ "[" ; ¶ ] ; [ "]" ; ¶ ] ) ] 変数を設定 [ $vc; 値:ValueCount ( $gvList ) ] 変数を設定 [ $c; 値:1 ] Loop Exit Loop If [ $c > $vc ]
	変数を設定 [ $gv; 値:GetValue ( $gvList ; $c ) ]
	#key と val
	変数を設定 [ $key; 値:GetValueSep ( $gv ; "=" ; 1 ) ]
	変数を設定 [ $val; 値:Substitute ( GetValueSep ( $gv ; "=" ; 2 ) ; "\"" ; "" ) ]
	#val が URL、且つ src でも poster でもない場合、key を url に
	If [ PatternCount ( $val ; "uploads/" ) > 0 and $key ≠ "src" and $key ≠ "poster" ]
		変数を設定 [ $key; 値:"url" ]
	End If
	#----------------------------------------------------

	If [ $key = "style" ]
		#"style" ... 無視する
		変数を設定 [ $key ]
		変数を設定 [ $val ]
	Else If [ $key = "class" ]
		#"class" 特殊なkey. さらに分割
		スクリプト実行 [ 「elmlistLine classの処理」; 引数: $val ]
		変数を設定 [ $theJson; 値:Get ( スクリプトの結果 ) ]
		変数を設定 [ $groupJson; 値:JSONSetElement ( $groupJson ; $groupName ; $theJson ; 3 ) ]
	Else If [ $key = "ids" ]
		#"ids" は idの羅列なのでその処理
		変数を設定 [ $key; 値:"attach_id" ]
		変数を設定 [ $theJson; 値:JSONSetElement ( "" ; $key ; "[" & $val & "]" ; 4 ) ]
		変数を設定 [ $groupJson; 値:JSONSetElement ( $groupJson ; $groupName ; $theJson ; 3 ) ]
	Else If [ $key = "src" ]
		#"src" URLとサイズに分離する処理
		スクリプト実行 [ 「elmListLine src の処理」; 引数: $val ]
		変数を設定 [ $theJson; 値:Get ( スクリプトの結果 ) ]
		変数を設定 [ $groupJson; 値:JSONSetElement ( $groupJson ; $groupName ; $theJson ; 3 ) ]
	Else If [ $key = "poster" ]
		#"poster" ポスター画像の id と URL をゲット
		スクリプト実行 [ 「elmListLine posterの処理」; 引数: $Val ]
		変数を設定 [ $theJson; 値:Get ( スクリプトの結果 ) ]
		変数を設定 [ $groupJson; 値:JSONSetElement ( $groupJson ; $groupName ; $theJson ; 3 ) ]
	Else
	#その他通常の key val 処理
		If [ not IsEmpty ( $key ) and not IsEmpty ( $val ) ]
			If [ PatternCount ( $val ; "uploads/" ) ]
				スクリプト実行 [ 「url uploads から id をゲット」; 引数: $val ]
				変数を設定 [ $id; 値:Get ( スクリプトの結果 ) ]
				変数を設定 [ $theJson; 値:JSONSetElement ( $theJson ; "attach_id" ; $id ; 2 ) ]
			End If

		変数を設定 [ $theJson; 値:JSONSetElement ( $theJson ; $key ; $val ; 1 ) ]
		変数を設定 [ $groupJson; 値:JSONSetElement ( $groupJson ; $groupName ; $theJson ; 3 ) ]
		End If
	End If
	変数を設定 [ $c; 値:$c+1 ]
End Loop

変数を設定 [ $theJson; 値:JSONSetElement ( $theJson ; "type" ; $groupName ; 1 ) ]
変数を設定 [ $groupJson; 値:JSONSetElement ( $groupJson ; $groupName ; $theJson ; 3 ) ]
現在のスクリプト終了 [ 結果: $theJson ]

#elmListLine から、key が class の value の処理
# 処理するclass - 他に見つかれば追加すること wp-image-, size-

変数を設定 [ $val; 値:Get(スクリプト引数) ]
変数を設定 [ $valList; 値:Substitute ( $val ; " " ; ¶ ) ]
変数を設定 [ $vc; 値:ValueCount ( $valList ) ]
変数を設定 [ $c; 値:1 ]
Loop
	Exit Loop If [ $c > $vc ]
	変数を設定 [ $gv; 値:GetValue ( $valList ; $c ) ]
	If [ PatternCount ( $gv ; "wp-image-" ) ]
		#wp-image-
		変数を設定 [ $key; 値:"attach_id" ]
		変数を設定 [ $val; 値:Substitute ( $gv ; "wp-image-" ; "" ) ]
		変数を設定 [ $json; 値:JSONSetElement ( $json ; $key ; $val ; 1 ) ]
	Else If [ Left ( $gv ; 5 ) = "size-" ]
		#size-
		変数を設定 [ $key; 値:"sizeName" ]
		変数を設定 [ $val; 値:Substitute ( $gv ; "size-" ; "" ) ]
		変数を設定 [ $json; 値:JSONSetElement ( $json ; $key ; $val ; 1 ) ]
	End If
	変数を設定 [ $c; 値:$c+1 ]
End Loop

現在のスクリプト終了 [ 結果: $json ]

#src の処理。$val(URL)を受け取って、newKeyValList を返す

変数を設定 [ $val; 値:Get ( スクリプト引数 ) ]
変数を設定 [ $fileName; 値:GetValueSep ( $val ; "/" ; PatternCount ( $val ; "/" )+1 ) ]
変数を設定 [ $ext; 値:GetExtension ( $fileName ) ]
変数を設定 [ $filename; 値:Substitute ( $fileName ; "." & $ext ; "" ) ]
#サイズ -123ｘ456.があれば抜き出す
If [ PatternCount ( $filename ; "-" ) and PatternCount ( $filename ; "x" ) ]
	変数を設定 [ $gv1; 値:GetValue ( Substitute ( $filename ; "-" ; ¶ & "-" ) ; ValueCount ( Substitute ( $filename ; "-" ; ¶ & "-" ) )) ]
	変数を設定 [ $gv2; 値:Substitute ( $gv1 ; [ "-" ; "-" & ¶ ];[ "x" ; ¶ & "x" & ¶ ] ) ]
	If [ GetValue ( $gv2 ; 1 ) = "-" and GetValue ( $gv2 ; 2 ) = Filter ( GetValue ( $gv2 ; 2 ) ; "0123456789" ) and GetValue ( $gv2 ; 3 ) = "x" and GetValue ( $gv2 ; 4 ) = Filter ( GetValue ( $gv2 ; 4 ) ; "0123456789" ) ]
		#$gv1はサイズの表記である
		変数を設定 [ $nameEndSize; 値:Substitute ( $gv1 ; "-" ; "" ) ]
		#url
		変数を設定 [ $url; 値:Substitute ( $val ; "-" & $nameEndSize ; "" ) ]
		変数を設定 [ $json; 値:JSONSetElement ( "" ; [ "NameEndSize" ; $nameEndSize ; 1 ] ; [ "url" ; $url ; 1 ] ; [ "src" ; $val ; 1 ] ) ]
	Else
		#$gv1はサイズ表記ではない。URL = valである
		変数を設定 [ $url; 値:$val ]
		変数を設定 [ $json; 値:JSONSetElement ( "" ; [ "url" ; $url ; 1 ] ; [ "src" ; $val ; 1 ] ) ]
	End If
Else
	#URL = valである
	変数を設定 [ $url; 値:$val ]
	変数を設定 [ $json; 値:JSONSetElement ( "" ; [ "url" ; $url ; 1 ] ; [ "src" ; $val ; 1 ] ) ]
End If

スクリプト実行 [ 「url uploads から id をゲット」; 引数: $url ]

If [ Get ( スクリプトの結果 ) = "error" ]
変数を設定 [ $json; 値:JSONSetElement ( $json ; [ "attach_id" ; Get ( スクリプトの結果 ) ; 1 ] ) ]
Else
	変数を設定 [ $attach_id; 値:Get ( スクリプトの結果 ) ]
	変数を設定 [ $json; 値:JSONSetElement ( $json ; [ "attach_id" ; $attach_id ; 2 ] ) ]
End If
現在のスクリプト終了 [ 結果: $json ]

#poster の処理

変数を設定 [ $val; 値:Get ( スクリプト引数 ) ]
If [ PatternCount ( $val ; "uploads/" ) ]
	変数を設定 [ $file; 値:GetValue ( Substitute ( $val ; "/uploads/" ; ¶ ) ; 2 ) ]
	#postmeta から $file を探す
	レイアウト切り替え [ 「workshop postmeta」 (postmeta) ]
	検索モードに切り替え [ ]
	フィールド設定 [ postmeta::meta_value; $file ]
	エラー処理 [ オン ]
	検索実行 [ ]
	If [ Get ( 最終エラー ) = 0 ]
		変数を設定 [ $id; 値:postmeta::post_id ]
		レイアウト切り替え [ 元のレイアウト ]
		変数を設定 [ $newKeyValList; 値:List ( $newKeyValList ; Quote ( "attach_id" ) & ":" & Quote ( $id ); Quote ( "url" ) & ":" & Quote ( $val ) ) ]
		#json
		変数を設定 [ $json1; 値:JSONSetElement ( "{}" ; [ "attach_id" ; $id ; 1 ] ; [ "url" ; $val ; 1 ] ) ]
		#json "poster"
		変数を設定 [ $json; 値:JSONSetElement ( "" ; "poster" ; $json1 ; 3 ) ]
		現在のスクリプト終了 [ 結果: $json ]
	Else
	レイアウト切り替え [ 元のレイアウト ]
	End If
End If