' $System.Print = 1
' Set $PersonalCustomer = $Command.Customer.GetPersonalCustomer $WID
' If $Company
'  Set $Import = $PersonalCustomer.ImportCompany
'  $fencoding = $Command.String.DecodeURLEncode $fencoding
'  $ImportCompany.Encoding = $fencoding
'  Set $CSVFile = $ImportCompany.CSVFile
' Else
'  Set $Import = $PersonalCustomer.ImportPerson
'  $fencoding = $Command.String.DecodeURLEncode $fencoding
'  $ImportPerson.Encoding = $fencoding
'  Set $CSVFile = $ImportPerson.CSVFile
' EndIf
' Set $CompanyItems = $Customer.Company.Items
' Set $PersonItems = $Customer.Person.Items
'' <!-- テーブルの表示 -->
<table width="100%" border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
 <tr bgcolor="#cccccc">
' For Each $Item in $Import.Items
'  $IID = $Item.Item
'  If $IID = "Company"
'   $IID = $Item.IID
'   Set $CompanyItem = $CompanyItems.$IID
'   If $CompanyItem
  <td nowrap>$CompanyItem.Name</td>
'   EndIf
'  Elif $IID = "Person"
'   $IID = $Item.IID
'   Set $PersonItem = $PersonItems.$IID
'   If $PersonItem
  <td nowrap>$PersonItem.Name</td>
'   EndIf
'  Elif $IID = "CGID"
  <td nowrap>顧客グループ</td>
'  Elif $IID = "Code"
  <td nowrap>顧客コード</td>
'  Elif $IID = "Name"
  <td nowrap>名前</td>
'  Elif $IID = "Yomi"
  <td nowrap>よみ</td>
'  Elif $IID = "Section"
  <td nowrap>部課</td>
'  Elif $IID = "Tel"
  <td nowrap>電話番号</td>
'  Elif $IID = "Mail"
  <td nowrap>メールアドレス</td>
'  Elif $IID = "User"
  <td nowrap>担当</td>
'  Elif $IID = "Post"
  <td nowrap>配信停止</td>
'  Elif $IID = "CompanyCGID"
  <td nowrap>会社グループ</td>
'  Elif $IID = "CompanyCode"
  <td nowrap>会社コード</td>
'  Elif $IID = "CompanyName"
  <td nowrap>会社名</td>
'  Elif $IID = "CompanyYomi"
  <td nowrap>会社よみ</td>
'  Elif $IID = "CompanyTel"
  <td nowrap>電話番号(会社)</td>
'  Elif $IID = "CompanyUser"
  <td nowrap>担当(会社)</td>
'  EndIf
' Next
 </tr>
' $Size = $Import.Items.Count
' $Count = 0
' $Skip = $Import.ItemName
' For Each $Row in $CSVFile
'  If $Skip
'   $Skip = 0
'   Continue
'  EndIf
 <tr valign="top">
'  $i = 1
'  For Each $Cell in $Row
'   If $i > $Size
'    Exit
'   EndIf
'   Inc $i
  <td nowrap>\\
'   If $Cell
'    View $Cell
'   Else
<br>\\
'   EndIf
</td>
'  Next
'  For $j = $i to $Size
<td><br></td>
'  Next
 </tr>
'  Inc $Count
'  If $Count = 5
'   Exit
'  EndIf
' Next
</table>