ST GET URL

4D v20 R7

ST GET URL


ST GET URL ( {* ;} object ; urlText ; urlAddress {; startSel {; endSel}} )

引数	型	説明
*	演算子	指定時: object はオブジェクト名(文字列)、省略時: object は変数またはフィールド
object	フォームオブジェクト	オブジェクト名( * 指定時)、または変数やフィールド( * 省略時)
urlText	テキスト	リンクの表示テキスト
urlAddress	テキスト	URL アドレス
startSel	倍長整数	選択範囲の開始地点
endSel	倍長整数	選択範囲の終了地点

説明

ST GET URLコマンドは、 object 引数で指定されたスタイル付テキストフィールドまたはテキスト変数内で見つかった最初のURL の表示テキストとアドレスを返します。

表示テキストとURL アドレスは、それぞれ urlText 引数と urlAddress 引数に返されます。もし選択範囲内にURL が含まれない場合は、これらの引数には空の文字列が返されます。

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

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

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

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である場合を除く)。

例題

ダブルクリックイベントがあると、URLが実際にあるかどうかをチェックし、あった場合にはユーザーがそれを変更できるようにその値を取得したダイアログボックスを表示する、という場合について考えます:

 Case of

    :(Form event code=On Double Clicked)

       GET HIGHLIGHT(*;"StyledText_t";startSel;endSel)

       If(ST Get content type(*;"StyledText_t";startSel;endSel)=ST URL type) //URL

          ST GET URL(*;"StyledText_t";vTitle;vURL;startSel;endSel)

          $winRef:=Open form window("Dial_InsertURL";Movable form dialog box;Horizontally centered;Vertically centered;*)

          SET WINDOW TITLE("URL settings")

          DIALOG("Dial_InsertURL")

          If(OK=1)

             ST INSERT URL(*;"StyledText_t";vTitle;vURL;startSel;endSel)

             HIGHLIGHT TEXT(*;"StyledText_t";startSel;startSel+1)

          End if

       End if

 End case

参照

ST INSERT URL