スクリプトを簡単に他のエディタへコピー&ペーストしたい。

Idea created by user2147283 on Jul 2, 2018
    Active
    Score2
    • akira_sasaki
    • user2147283

    スクリプトワークスペースのスクリプトを簡単に他のエディタへコピー&ペーストしたい。

     

     

    理由

    スクリプトワークスペースから、他のエディタにペーストできない。

    他のエディタで編集をする場合、データベースデザインレポートで概要を書き出して、

    スクリプト欄からコピーする方法以外に見つけられなかった。また、インデントは引き継がれない。

     

     

    主な利用目的

    FileMaker コミュニティでコードを見てもらいたい。

    また、自分のブログなどへコードを投稿したい。

     

     

    以下のコードは、データベースデザインレポートから、コピーしエディタでインデントを調整したものです。

     

     

    #Creation Date: 2018/7/2 , Author: PgFlow YOUHEI SASAKI

    #phoneNumber: 08059794102 , Email: youheisasaki@outlook.jp

    #Filter_PhoneNumber Script Overview

    #フィールド値が空の場合は、なにも行わない。

    #電話番号を"0123456789"の整数、桁数は10か11桁で値をフィールドへ保存

     

     

    #フィールド値を変数へ入れる

    変数を設定 [ $FieldName; 値:Get(アクティブフィールド名) ]

    変数を設定 [ $FieldValue; 値:GetField ( Get(アクティブフィールド名 ) ) ]

    #エラーメッセージを変数へ設定する。

    変数を設定 [ $ErrorMessage; 値:"は、0から9の数字を10か11桁で入力してください。¶また、改行やスペースは入力できません。" ]

     

     

    #フィールドに値が入っていない場合は、なにも行わない。

    If [ not IsEmpty ( $FieldValue ) ]

            #フィールド値を0123456789の値でフィルターする。

            変数を設定 [ $FilterValue; 値:Filter ( $FieldValue ; "0123456789" ) ]

            #入力されたフィールド値とフィルター後の値が同じかチェックする。

            If [ Exact ( $FieldValue ; $FilterValue ) ]

                #フィルター後の値の数字の桁数が10か11桁かをチェックする。

                If [ Length ( $FilterValue ) ≥ 10 and Length ( $FilterValue ) ≤ 11 ]

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

                Else

                    #上記のチェックをパス出来ないフィールド値に修正を求める。

                    カスタムダイアログを表示 [ メッセージ: $TelephoneNumber & Get(アクティブフィールド名) & $ErrorMessage; デフォルトボタン: 「修正」, 確定: 「いいえ」 ]

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

                End If

            Else

                #上記のチェックをパス出来ないフィールド値に修正を求める。

                カスタムダイアログを表示 [ メッセージ: $TelephoneNumber & Get(アクティブフィールド名) & $ErrorMessage; デフォルトボタン: 「修正」, 確定: 「いいえ」 ]

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

            End If

    End If