' $System.Access Template
' $Command.Template.AccessFile
' $System.NoWarning
' If ! $Start
'  Set $PersonalImport = $Command.Template.GetPersonalImport $WID
'  $ImportTemplate.WID = $WID
'  $ImportTemplate.FileName = $PersonalImport.FileName
'  If ! $Line
'   $ImportTemplate.ItemName = $PersonalImport.ItemName
'  EndIf
'  $ImportTemplate.CTID = $PersonalImport.CTID
'  $ImportTemplate.Line = $Line
'  $ImportTemplate.Current = $Current
'  $ImportTemplate.ReadAll = 0
'  $fencoding = $Command.String.DecodeURLEncode $fencoding
'  $ImportTemplate.Encoding = $fencoding
'  $Line = $ImportTemplate.Import
'  $Current = $ImportTemplate.Current
'  $FileSize = $ImportTemplate.Size
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $Line or $Start
<meta http-equiv="Refresh" content="0;URL=$Server?page=TemplateImportExec&wid=$WID&line=$Line&current=$Current&fencoding=$fencoding">
'  $CaptionTitle = "データのCSVファイルからの読み込み(実行中)"
'  Call cmHead $CaptionTitle
</head>
<body>
'  Call cmHeaderBasic
'  Sub temp_mainColumn
<div class="desc">
'  If $Start
CSVファイルからデータを読み込みます。しばらくお待ち下さい。
'  Else
CSVファイルからデータを読み込んでいます。しばらくお待ち下さい。
<blockquote>
<b>$Line</b>行読み込みました。引き続きデータを読み込み中です。
<table border="1" width="400" cellspacing="0" cellpadding="2" bgcolor="#ffffff"><tr>
'   $RT = $System.Rate $Current $FileSize
'   If $RT
<td width="$RT%" nowrap bgcolor="#0000ff"><br></td>
'   EndIf
<td nowrap><br></td>
</tr></table>
</blockquote>
</div>
'  EndIf
<div class="desc">※ ブラウザをそのままにしてお待ち下さい。<br>
　 ブラウザを閉じたり、中止ボタンや更新ボタンを押さないでください。<br>
　 (データが途中まで読み込まれ、破損などの原因になる場合があります)<br>
</div>
'  EndSub
'  Call layout_view "" "" 0 temp_mainColumn
'  Call cmFooter
</body>
' Else
'  $CaptionTitle = "データのCSVファイルからの読み込み(完了)"
'  Call cmHead $CaptionTitle
</head>
<body>
'  $AppliName = $WorkSpace.Template.Name
'  $System.SetParameter BackURL "$Server?page=TemplateFile&wid=$WID"
'  $System.SetParameter URLTemplateIndex "$Server?page=TemplateIndex&wid=$WID"
'  Call cmHeader $CaptionTitle $URLTemplateIndex $AppliName $BackURL "ファイル入出力"
'  Sub mainColumn
<div class="desc">
データのCSVファイルからの読み込みが正常に終了しました。
</div>
'  EndSub
'  Call layout_view "" "" 0 mainColumn
'  Call cmFooter $BackURL "ファイル入出力へ"
</body>
' EndIf
</html>