himadaneeさん

ご回答いただき、大変ありがとうございます。
{{時刻}}、{{日付}}は、レイアウト上の挿入文字列ですね。
確かに、昔は、//や::が使われていたかも知れません。
いつぐらいまでだったでしょうか・・・。

私の記憶の話は、
2つのものが繋がっている場合の表記で、それがTO名とフィールド名の関係ではなかった、というものです。
もし、思いつく方がいらっしゃれば、ご回答よろしくお願いいたします。

ちなみに「リレーションシップ記号」という言葉はヘルプでの「フィールド名の指定」
https://help.claris.com/ja/pro-help/con … ields.html
に出てきます。私も、そこら辺でしか見たことないですが・・・。

なしたまご様

37です。解決されたようで、何よりです。

該当Appは、

三条項BSDライセンス (3-clause BSD license)
「無保証」であることの明記と著作権およびライセンス条文自身の表示を再頒布の条件とするライセンス規定

で配布しておりますので、無償でOKです。
個人使用なら全く気にしなくて良いですし、配布するようなら、
私の著作権とライセンス条項を表示いただければ、ライセンス違反にはなりません。
ただし、これを利用することで生じるいかなる損害についても、開発者は責任を問わないことはご承知おき下さい。

ライセンス原文については、該当App内でも確認できるようになっています。
また、
https://licenses.opensource.jp
で確認することもできます。

よろしくお願いいたします。

himadaneeさん
Shinさん
Mozさん

重鎮の皆さんにご確認いただいたようで、大変ありがとうございます。
私もMozさんのおっしゃるような印象を持っていたので、
下記のMain()、_Loop()2つのスクリプトを用意してテストしてみました。

私のESCの押し方にも問題があるのかもしれませんが、
何度試しても、Endのカスタムダイアログが表示されません。
ちなみに⌘＋.でも同じ挙動でした。

一時的なバグならよいのですが、皆さんの感触だと、以前からも同じ動きを
していそうなので、あまり解決策はない、と考えた方がよいのでしょうか？
引き続き、ご意見をいただければと思います。よろしくお願いいたします。

Main()

ユーザによる強制終了を許可 [ オフ ]
カスタムダイアログを表示 [ "Start" ; "開始しました。" ] 
スクリプト実行 [ 指定: 一覧から ; 「_Loop()」 ; 引数:    ]
ユーザによる強制終了を許可 [ オフ ]
カスタムダイアログを表示 [ "End" ; "終了しました。" ] 

_Loop()

ユーザによる強制終了を許可 [ オン ]
Loop
	Exit Loop If [ Let ( [   $counter = $counter + 1;   $wait = 0 ];   1000 < $counter ) ] 
	Loop
		Exit Loop If [ Let ( [   $wait = $wait + 1 ];   1000 < $wait ) ] 
	End Loop
	新規レコード/検索条件
End Loop

himadaneeさん

ありがとうございます。
xmlとして保存
にそんな利用方法があったのかと驚きです。
（他に活用方法があるのでしょうか？）

このxmlで、
問題を表向き解決したファイルと、
解決していないファイル
の２つで比較したのですが、明らかな違いは見つかりませんでした。

あえていうならoptionタグで囲まれた数値が違っていますが、他のフォルダを見ても、
その法則は分かりませんでした。

なお、ファイルはFMP16からコピーしながら使っているものです。
ただ、フォルダ等はすべて、FMP19で作成したものだと思います。

これは、先に述べた、カスタムメニューのインポートが難しいので、
テンプレートファイルを作って、それをコピーして使い回していたと言う理由からです。

ちなみに、先に「他のファイル」と表現した、想定どおりの動きを
したDBファイルも、同じ経緯で作成されたものです。

XMLの情報を見る限りでは、ファイルに保存された情報ではなく、
クライアントのどこかに保管された情報が邪魔をしているのかも知れません。

引き続き、新情報がわかったら教えてください。

himadaneeさん

たびたびの検証ありがとうございます。
Appを完全終了させてからの書き換えに間違いはありませんでした。

今、当方で確認できている状況を説明すると、

PlistのScrpitWorkspaceを、すべてゼロにした状態で、該当ファイルを開くと、
2つのフォルダが開いていて、1つのフォルダが閉じています。
（毎回同じ状態で、3つのフォルダがあります）

その状態のまま変化させずに、appを完全終了させてplistを確認すると、
ScriptWorkspaceのうち2つが1に変わっていました。
その変わったもののUUIDで検索をかけると3つがヒットするのですが、
うち2つがScriptWorkspaceで、もう1つは、値がMarkerになっている
項目Markerでした。

それぞれを再びゼロに戻して、再度ファイルを開いても、元の状態のままで、
今度は、3つ全てのフォルダを開いて、appを完全終了させ、plistを確認すると、
先ほどのUUIDで4つヒットし、3つのScriptWorkspaceが１になっていました。
（もう一つは先程の項目Marker）

そのまま、再度ファイルを開くと、やはり元の状態のままで、
2つのフォルダが開いていて、1つのフォルダが閉じています。
そこで、appを完全終了させ、plistを確認し、UUIDで検索するとヒットするのが
3つに減っており、2つのScriptWorkspaceが1になっていて、ゼロになっている
ScriptWorkspaceはありませんでした。

引き続きよろしくお願いいたします。

Shinさん

早速の情報提供ありがとうございます。

サーバーでも調整したいと思っておりますが、
私の気色悪く思っているところは、ローカルに置いてあるファイルで、
スクリプトワークスペースの表示を変更しても、それがappを落とした後だと、
ファイルを閉じた時の状態が再現されないところです。
しかも、開いているフォルダと閉じているフォルダ両方があるところです。

スクリプトワークスペースの「ファイルのデフォルト」というのが、
何を意味しているのか？ そのデフォルトはどうやったら変更できるのか？
が分かるとよいと思っております。

引き続き、よろしくお願いいたします。

42さん、himadaneeさん

ご意見ありがとうございました。
ヘルプは見ていたはずなのですが、意識を持って読まないと、意味が理解できていないことがよく分かりました（汗）。

仕様としてそうなっているなら、安心して空白（""）を用いることもできますし、JSONオブジェクトか、JSON配列かを明確化するとの要素も、よく分かりました。

一応、下記のようなカスタム関数を考えており、ここでの引数としてキーが空白が指定されても、
エラーにならないで欲しく、その手法に迷っておりました。
仕様が分かれば、キーの最初の文字を判別して処理を分ける方法もあったのだと思うのですが、
それよりは下記例の方がシンプルかと思っております。

// JSONPushElementToArray ( %JSON; %key; %value; %type )
// Purpose
//   JSON内の該当する配列にpushさせる（新しい値を最後に付け加える）。
// Parameter
//   %key:  配列が格納されているJSONキー。
//   %value:  Pushするデータ。
//   %type:  PushするデータのJSONタイプ。

Let ( [
  %JSON = If ( Exact ( %JSON; "{}" ) or Exact ( %JSON; "[]" );
            "";
            %JSON
          );
  %key = If ( Exact ( Left ( %key; 2 ); "['" );
           "." & %key;
           %key
         );
  %last = If ( IsEmpty ( %JSON );
            0;
            ValueCount ( JSONListKeys ( %JSON; %key ) )
          )
];
  JSONSetElement ( %JSON;
    %key & "[" & %last & "]"; %value; %type
  )
)