| 種別 | DocuWorksファイル |
|---|---|
| 説明 | DocuWorksファイルのユーザー定義（文書属性）の取得／設定／削除 |
| 構文 | XdwUserAttr([Name][, Data][, FilePath][, Kind]) |
| 引数 | Name：属性名（指定しない場合、全ての定義を取得する） Data：属性データ、設定／削除する場合に指定する。 （指定しない場合、取得を行う。削除の際は"<@DELETE@>"を指定する） FilePath：DocuWorksファイルパスを指定。 （指定しなければ、現在編集中のDocuWorksファイル） Kind：種類。0：数値、1：テキスト、2：日付、 3：有無（指定しない場合は、テキストになる） ※ 本関数は、DocuWorks文書だけを対象としていますので、 バインダーでは動作しません。 |
| 戻り値 | 読込んだ文字列。読込みに失敗した場合は、NULL（""）が返ります。 |
| 使用例 | dim s,sFile,i,c,cnt,a[],b[],ss sFile = "c:\aaa\bbb\ccc.xdw" 'ユーザー定義「企業名」から文字列を取得 s = XdwUserAttr("企業名") '指定ファイルのユーザー定義「企業名」から文字列を取得 s = XdwUserAttr("企業名",,sFile) 'ユーザー定義「企業名」に文字列を設定 XdwUserAttr("企業名", "株式会社プラスソフト") '指定ファイルのユーザー定義「企業名」に文字列を設定 XdwUserAttr("企業名", "株式会社プラスソフト", sFile) XdwUserAttr("日付", "2024/05/19",,2)'日付の設定 XdwUserAttr("数値", 9876,,0) '数値の設定 XdwUserAttr("フラグON", 1,,3) '有無の有 XdwUserAttr("フラグOFF", 0,,3) '有無の無 'ユーザー定義「企業名」を削除 XdwUserAttr("企業名", "<@DELETE@>") '指定ファイルのユーザー定義「企業名」を削除 XdwUserAttr("企業名", "<@DELETE@>", sFile) 'ユーザー定義から文字列を全取得 ' （XdwUserAttr(,,sFile)で指定ファイルの全取得） s = XdwUserAttr() ss = "" cnt = Split(s, "<@CRLF@>", a) for i = 0 to cnt - 1 cnt = Split(a[i], "<@TAB@>", b) ss = ss & b[0] & "," & b[1] & vbCrLf next i 'DocuWorksのプロパティで、「概要」タブに表示される内容を、設定／取得 XdwUserAttr(#UA_TITLE#, "ファイルのタイトル") XdwUserAttr(#UA_SUBJECT#, "ファイルのサブタイトル") XdwUserAttr(#UA_AUTHOR#, "ファイルの作成者") XdwUserAttr(#UA_KEYWORDS#, "ファイルのキーワード") XdwUserAttr(#UA_COMMENTS#, "ファイルのコメント") s = XdwUserAttr(#UA_TITLE#) 'ファイルのタイトル s = XdwUserAttr(#UA_SUBJECT#)'ファイルのサブタイトル s = XdwUserAttr(#UA_AUTHOR#) 'ファイルの作成者 s = XdwUserAttr(#UA_KEYWORDS#) 'ファイルのキーワード s = XdwUserAttr(#UA_COMMENTS#) 'ファイルのコメント |
| 実例 | |
| 備考 | 関連する関数（XdwInsert、XdwProperty、XdwGetPage、XdwAttachFile、XdwChgData、XdwFindText
、XdwPageImage、XdwAppChg、XdwBinder、XdwUserAttr、XdwUserAttrX、XdwClose） ver9.0以降 |