メインコンテンツまでスキップ
バージョン: 開発中

ST Get content type

ST Get content type ( {* ;} object {; startSel {; endSel {; startBlock {; endBlock}}}} ) : Integer

引数説明
*演算子指定時: object はオブジェクト名(文字列)、省略時: object は変数またはフィールド
objectanyオブジェクト名( * 指定時)、または変数やフィールド( * 省略時)
startSelInteger選択範囲の開始地点
endSelInteger選択範囲の終了地点
startBlockInteger選択範囲内の、同一のタイプの開始地点
endBlockInteger選択範囲内の、同一のタイプの終了地点
戻り値Integer内容のタイプ

このコマンドはスレッドセーフではないため、プリエンプティブなコードには使えません。

説明

ST Get content typeコマンドは、 object 引数で指定されたスタイル付テキストフィールドまたはテキスト変数内で見つかったコンテンツの型を返します。

任意の * 演算子を渡した場合、 object 引数でオブジェクト名を文字列で指定します。このとき、オブジェクトがフォーカスされていた場合にはコマンドは編集中のテキストに関しての情報を返し、オブジェクトがフォーカスされていない場合にはコマンドはオブジェクトのデータソースの情報を返します。
省略時には object 引数でフィールドまたは変数を指定します。この場合にはコマンドは変数またはフィールドの情報を返します。

省略時には object 引数でフィールドまたは変数を指定します。この場合にはコマンドは変数またはフィールドの情報を返します。

任意の startSel 引数と endSel 引数はobject 内のテキストの選択範囲を指定します。 startSelendSel は標準テキストのみをカウントし、スタイルタグは文字数としてはカウントされません。参照は一文字としてカウントされるということに注意して下さい。

  • startSelendSel の両方を渡した場合、 ST Get content type コマンドは指定された範囲内に限りコンテンツを評価します。
  • startSel のみを指定した場合、もしくは endSel の値がobject 内の総文字数より大きい場合は、 コマンドは startSel の位置からテキストの終わりまでの範囲内のコンテンツのみ評価されます。
  • startSelendSel の両方を省略した場合、現在選択されている範囲のコンテンツのみが評価されます。

4D では、選択範囲を自動的に指定するために startSel 引数と endSel 引数に渡す定数をご用意しています。これらの定数は "Multistyle Text" テーマ内にあります:

定数コメント
ST End highlight倍長整数-1001オブジェクト内のカレントのテキストセレクションの最後の文字を指定します(*)
ST End text倍長整数0オブジェクトに含まれるテキストの最後の文字を指定します。
ST Start highlight倍長整数-1000オブジェクト内のテキストのカレントセレクションの最初の文字をを指定します (*)
ST Start text倍長整数1オブジェクト内に含まれるテキストの最初の文字を指定します。

(*) これら二つの定数を使用する際には、 object 引数にオブジェクト名を渡してあげる必要があります。フィールドへの参照または変数を渡した場合、コマンドはオブジェクト内の全てのテキストに適用されます。

注: もし startSel 引数が endSel 引数より大きい場合、コマンドは何も行わず、 OK 変数は0に設定されます(ただし endSel が0である場合を除く)。

任意の startBlock 引数と endBlock 引数は、オブジェクト内、もしくはオブジェクトの中で選択された範囲の中で、タイプが連続する位置を探し、その最初と最後の文字を返します。例えば、選択範囲内に4D式に続いて標準テキストが含まれていた場合、 startBlockendBlock はそれぞれ4D式の開始地点と終了地点を返します。この操作は選択範囲内の全てを処理するためにループさせることができます。

コマンドは、選択範囲内を調べた結果特定できたタイプを示す値を返します。 返される値は、 "Multistyle Text" テーマ内にある、以下のどれかになります:

定数コメント
ST Expression type倍長整数2セレクションには式参照のみ含まれます。
ST Mixed type倍長整数3セレクションには少なくとも二つの異なる型のコンテンツが含まれます。
ST Picture type倍長整数6セレクションにはピクチャーしか含まれていません(4D Write Proエリアのみ)
ST Plain type倍長整数0セレクションにはテキストのみ含まれ、参照はありません。
ST Unknown tag type倍長整数4セレクションには、未知の型のタグのみ含まれます。
ST URL type倍長整数1セレクションにはURL参照のみ含まれます。
ST User type倍長整数5セレクションには、カスタムの参照のみ含まれます。

例題

エリア内で選択されたコンテンツのタイプによって表示されるコンテキストメニューを変えたい場合:

 Case of
    :(Form event code=On Clicked)
  //選択された範囲を取得
       GET HIGHLIGHT(*;"myText";startSel;endSel)
       If(Contextual click&(Macintosh control down=False)) //コンテキストメニューを呼び出し
          If(startSel=endSel) // コンテンツが選択されていない場合
  //一部のコマンドのみ有効化
             DISABLE MENU ITEM(<>menu_STYLEDTEXT;2)
             DISABLE MENU ITEM(<>menu_STYLEDTEXT;4)
             ENABLE MENU ITEM(<>menu_STYLEDTEXT;6)
             ...
          Else // コンテンツの型を取得
             CT_Texttype:=ST Get content type(*;"myText";startSel;endSel)
             Case of // 異なるタイプによって処理を変える
                :(CT_Texttype=ST URL type)
                   DISABLE MENU ITEM(<>menu_STYLEDTEXT;6)
                   ENABLE MENU ITEM(<>menu_STYLEDTEXT;7)
                   ...
                :(CT_Texttype=ST Expression type)
                   DISABLE MENU ITEM(<>menu_STYLEDTEXT;6)
                   DISABLE MENU ITEM(<>menu_STYLEDTEXT;7)
                   ...
                Else
                   ENABLE MENU ITEM(<>menu_STYLEDTEXT;6)
                   DISABLE MENU ITEM(<>menu_STYLEDTEXT;7)
                   ...
             End case
          End if
          MOUSE POSITION($xCoord;$yCoord;$ButtonState)
          $AlphaVar:=Dynamic pop up menu(<>menu_STYLEDTEXT;"";$xCoord;$yCoord)
          startSel:=-3
          endSel:=-3
       End if
       ...
    End if