' $System.Access Template
' $Command.Template.AccessFile
' If $System.IsPost
'  $System.Redirect $Server/template.csv?page=TemplateExportFile&wid=$WID&ct=1&oencoding=$xoencoding
'  $Command.Template.SetPersonalExport
'  Exit
' EndIf
' $AppliName = $WorkSpace.Template.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $Env.IsMSIE
' Call cmLoadJavaScript "member_ie"
' Else
' Call cmLoadJavaScript "member_nn"
' EndIf
<!--#include file="LibraryForm.html"-->
' $System.SetParameter CaptionTitle "テンプレートの書き出し"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=TemplateFile&wid=$WID"
' Call cmHeader $CaptionTitle "$Server?page=TemplateIndex&wid=$WID" $AppliName $BackURL "ファイル入出力"
' $System.CloseDatabase "mw"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="TemplateExport">
<input type="hidden" name="WID" value="$WID">
' Set $Export = $Command.Template.GetPersonalExport $WID
' If $Export
'  $ItemName = $Export.ItemName
'  $CTID = $Export.CTID
'  $SF = $Export.SF
'  For Each $Item in $Export.Items
'   $System.AddParameter IIDs $Item.IID
'  Next
' Else
'  $ItemName = 1
'  $System.AddParameter IIDs "ID"
'  $System.AddParameter IIDs "Name"
'  $System.AddParameter IIDs "Subject"
'  $System.AddParameter IIDs "Data"
'  $System.AddParameter IIDs "Category"
'  $System.AddParameter IIDs "RichText"
' EndIf
<p>$AppliNameのデータをCSVファイルに書き出します。</p>
<p><img src="$IMG_PATH/pin.png"> 出力対象</p>
<blockquote>
<p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td>カテゴリ</td><td>
<select name="CTID">
<option value="">(全て)</option>
' $CategoryOptions = $Command.Template.GetCategoryOptions $WID $CTID
$_CategoryOptions</select>
</td><td nowrap>
' Call formCheckBox "SF" "サブカテゴリも出力対象とする" $SF 1 "SF"
</td></tr>
</table>
</p>
</blockquote>
<p><img src="$IMG_PATH/pin.png"> 出力項目</p>
<blockquote>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td align="middle">
' Call cmImageButton "Top( this.form, 'IIDs' ); return false;" "order_top20.png"
<br><br>
' Call cmImageButton "Up( this.form, 'IIDs' ); return false;" "order_up20.png"
<br><br>
' Call cmImageButton "Down( this.form, 'IIDs' ); return false;" "order_down20.png"
<br><br>
' Call cmImageButton "Bottom( this.form, 'IIDs' ); return false;" "order_bottom20.png"
</td>
<td nowrap>
<select name="IIDs" multiple size="15">
' For Each $IID in $IIDs
'  If $IID = "ID"
<option value="$IID">ID</option>
'  Elif $IID = "Name"
<option value="$IID">名前</option>
'  Elif $IID = "Subject"
<option value="$IID">件名</option>
'  Elif $IID = "RichText"
<option value="$IID">書式編集</option>
'  Elif $IID = "Data"
<option value="$IID">内容</option>
'  Elif $IID = "Category"
<option value="$IID">カテゴリ</option>
'  EndIf
' Next
<option>　　　　　　　　　　　　　　　　　　　　</option>
</select>
</td>
<td nowrap valign="middle">
' Call cmButton "<< 追加" "AddMember( this.form, 'Items', 'IIDs' );"
<br><br>
' Call cmButton "削除 >>" "RemoveMember( this.form, 'IIDs' );"
</td>
<td>
<select name="Items" multiple size="15">
<option value="ID">ID</option>
<option value="Name">名前</option>
<option value="Subject">件名</option>
<option value="Data">内容</option>
<option value="Category">カテゴリ</option>
<option value="RichText">書式編集</option>
<option>　　　　　　　　　　　　　　　　　　　　</option>
</select>
</td></tr>
</table>
</blockquote>
<p><img src="$IMG_PATH/pin.png"> その他の設定</p>
<blockquote>
<p>
' Call formCheckBox "ItemName" "先頭行に項目名を書き出す" $ItemName 1 "ItemName"
</p>
<p>文字コード\\
' Call formOEncoding "xoencoding"
</p>
</blockquote>
<p class="formCommit">
' Call cmButton "書き出す" "PreSubmit( this.form, 'Items', 'IIDs' );this.form.submit();"
' Call cmButton "キャンセルする" "location.href='$BackURL.JSEscape';"
</p>
<hr size="1">
<p>件名を空に設定しているデータについては、件名の値は「%Empty%」と出力されます。</p>
</form>
' Call cmFooter $BackURL "ファイル入出力へ"
</body>
</html>