" & vbNewLine
Response.write " " & WriteCategory1 & "
" & vbNewLine
Response.write " " & vbNewLine
End If
'// 見出しを立てた宣言をします(リストの最初の項目にあたるため)
CategoryRepeatFlg = "1"
End If
'// 大カテゴリーが銀行の場合の処理です。
If Trim(bufLine_a(0)) = "銀行" Then
'// 前の行と値が異なる場合は中カテゴリーの見出しを作成します。
If checkLastCategory2 <> bufLine_a(1) Then
WriteCategory2 = Replace(bufLine_a(1),"第二地銀","第二地方銀行") '第二地銀の場合は値を置き換えます
'WriteCategory2 = Replace(bufLine_a(1),"JAバンク","JAバンク 個人口座・法人口座の両方に対応") 'JAバンクの場合は値を置き換えます
WriteCategory2 = Replace(WriteCategory2,"地銀","地方銀行") '地銀の場合は値を置き換えます
WriteCategoryClass2 = Replace(bufLine_a(1),"都市銀行","bank01")
WriteCategoryClass2 = Replace(WriteCategoryClass2,"ネット銀行","bank02")
WriteCategoryClass2 = Replace(WriteCategoryClass2,"その他大手銀行","bank03")
WriteCategoryClass2 = Replace(WriteCategoryClass2,"第二地銀","bank05")
WriteCategoryClass2 = Replace(WriteCategoryClass2,"地銀","bank04")
WriteCategoryClass2 = Replace(WriteCategoryClass2,"信託銀行","bank06")
WriteCategoryClass2 = Replace(WriteCategoryClass2,"信用金庫","bank07")
WriteCategoryClass2 = Replace(WriteCategoryClass2,"ろうきん","bank08")
WriteCategoryClass2 = Replace(WriteCategoryClass2,"信用組合","bank09")
WriteCategoryClass2 = Replace(WriteCategoryClass2,"JAバンク","bank10")
WriteCategoryClass2 = Replace(WriteCategoryClass2,"JFマリンバンク","bank11")
If WriteCategoryClass2 <> "bank01" Then
Response.write "
" & vbNewLine
Response.write " " & vbNewLine
End If
Response.write "