GetTextData

種別 アノテーション
説明 テキスト文字列を取得。フィールド以外の文字列も取得できます。

構文 GetTextData(no, sts[, ti_info])
引数 no:0から始まる取得するテキストの番号。

sts:
  0:テキスト数を取得する
  1:フィールドを除く、テキストの取得(フィールドはNULL値になる)
  2:フィールドを含めた、テキストの取得
  3:フィールドのみ取得(非フィールドはNULL値になる)
  4:テキスト情報のみ取得(非テキスト情報はNULL値になる)
  10:始点X
  11:始点Y
  12:終点X
  13:終点Y

ti_info :TIフィールド名を指定すると、TIデータを返す。
戻り値 テキスト文字列、テキスト数、TIデータ。
使用例 Dim max,i,xs,ys,xe,ye,s
max = GetTextData(0, 0)'テキスト数を取得する
for i=0 to max
   s = GetTextData(i, 1)
  'フィールドを除く、テキストの取得(フィールドはNULL値になる)
  
  s = GetTextData(i, 2)
  'フィールドを含めた、テキストの取得
  
  s = GetTextData(i, 3)
  'フィールドのみ取得(非フィールドはNULL値になる)

  s = GetTextData(i, 1, "製品番号")   
  'フィールドを除く、テキストの「製品番号」に関するTIデータ

  s = GetTextData(i,4)
  'テキスト情報のみ取得(非テキスト情報はNULL値になる)

  xs = GetTextData(i, 10)'始点X
  ys = GetTextData(i, 11) '始点Y
  xe = GetTextData(i, 12) '終点X
  ye = GetTextData(i, 13) '終点Y
next i
実例  
備考 関連する関数(XdwAnnotation、AnnProperty、XdwAnnImage、
XdwAnnShape、XdwFieldData、GetTextData)