XdwFieldData

種別 アノテーション
説明 指定したDocuWorksファイルの指定フィールドのデータを取得する。

構文 XdwFieldData(Name[, page][, tno][, Data])
引数 Name ：他にパラメータのない時は、DocuWorksファイル。
　　それ以外は、取得するフィールド名

page ：取得するページ番号（0であれば、ファイルに書込）

tno ：テーブル番号（テーブル以外の場合は指定しない）
　　page=0のときは、名前を変える場合の保存ファイル名

Data ：設定するフィールドデータ（読込時は指定しない）
戻り値 指定フィールドの文字例を返す
使用例 Dim sFile,s,pno,tno,pcnt
sFile = "C:\aaa\bbb\ccc.xdw"

'データとページ数の取得（ファイル名以外は、パラメータを指定しない）
pcnt = XdwFieldData(sFile)

for pno = 1 to pcnt
　　'テーブル以外からのフィールド・データを取得
　　s = XdwFieldData("企業CO", pno)
　　s = XdwFieldData("会社名", pno)
　　s = XdwFieldData("本・支店名", pno)
　　s = XdwFieldData("電話番号", pno)

　　'テーブルからのフィールド・データを取得
　　for tno = 1 to 3
　　　　s = XdwFieldData("監査CO", pno, tno)
　　　　s = XdwFieldData("監査項目", pno, tno)
　　　　s = XdwFieldData("評価点", pno, tno)
　　　　s = XdwFieldData("備考", pno, tno)
　　next tno
next pno


'ファイルへのフィールド・データ書込
for pno = 1 to pcnt
　　XdwFieldData("企業CO",1,0,"")
　　XdwFieldData("会社名",1,0,"プラスソフト")
　　XdwFieldData("本・支店名",1,0,"長野県上田")
　　XdwFieldData("住所",1,0,"上田市腰越12345")
　　XdwFieldData("電話番号",1,0,"0123-45-6789")
　　XdwFieldData("担当者",1,0,"山田太郎")
　　XdwFieldData("実施日",1,0,"2022/10/08")
　　
　　for i = 1 to 5
　　　　XdwFieldData("監査CO", 1, i,"CO" & i)
　　　　XdwFieldData("監査項目", 1, i,"項目" & i)
　　　　XdwFieldData("評価", 1, i, i)
　　　　XdwFieldData("備考", 1, i,"備考" & i * 12345)
　　next i
next pno

'ファイルへの書込。ファイル名を指定し、ページ番号=0にする。XdwFieldData(sFile, 0)

'ファイルへの書込。名前を変更して保存
XdwFieldData(sFile, 0, "C:\ddd\fff\hhh.xdw")
実例  
備考 関連する関数（XdwAnnotation、AnnProperty、XdwAnnImage、
XdwAnnShape、XdwFieldData、GetTextData）

ver7.0以降、利用可能。