<%@ LANGUAGE="VBScript" %> <% Option Explicit %> <% Dim bobj Set bobj = Server.CreateObject("basp21") '// CSVファイルの取得 Dim FilePath 'ファイルのパス FilePath = "../../lp-moneylink/list/account_list.csv" '// オブジェクトの宣言 Dim FileOBJ Set FileOBJ = Server.CreateObject("Scripting.FileSystemObject") '// CSVファイルの更新日を取得し、表示します。 Dim ListFile Set ListFile = FileOBJ.GetFile(Server.MapPath(FilePath)) Dim LastModifiedDate, SplitLastModifiedDate Dim CsvFile Dim checkLastCategory1, WriteCategory1 Dim checkLastCategory2, WriteCategory2 Dim WriteCategoryClass1, WriteCategoryClass2 Dim SameCategorySource %> 入出金の明細が取り込める金融機関｜会計帳簿アプリ「タブレット会計」（無料）

入出金の明細が取込める金融機関<% '// ※更新日をコントロールしたい場合はこちらはコメントに LastModifiedDate = FormatDateTime(ListFile.DateLastModified,2) LastModifiedDate = Replace(LastModifiedDate,"/0","/") SplitLastModifiedDate = Split(LastModifiedDate,"/") Response.Write SplitLastModifiedDate(0) & "年" & SplitLastModifiedDate(1) & "月" & SplitLastModifiedDate(2) & "日" '// 自分で記述する場合は以下の形式に記述してください。 '// ※上の行をコメントにし、こちらを有効化して使用 'Response.write "20XX/0X/0X 現在" %> 現在

個人口座に対応法人口座に対応※マークや特別な説明がない場合は、口座の種類に係わらず取り込みに対応しています。

<% If Request.form("sword") <> "" Then %>

検索結果

<% GetSearchList(Trim(Request.form("sword"))) %>
<% End If %> <% Dim bufLine Dim bufLine_a 'bufLineの配列 Dim i Dim buf Dim Id Id = 0 Dim CategoryRepeatFlg CategoryRepeatFlg = "0" Dim CountAccountID, CountNotAccountID CountAccountID = 0 CountNotAccountID = 0 '// ファイルの存在確認 If FileOBJ.FileExists(Server.MapPath(FilePath)) = False Then Response.Write "
現在メンテナンス中です。
" Else '// 読取専用ファイルのオープン Set CsvFile = FileOBJ.OpenTextFile(Server.MapPath(FilePath) ,1,False,False) Do Until CsvFile.AtEndOfStream Id = Id+1 If Id <= 4 Then CsvFile.SkipLine Else bufLine = (CsvFile.ReadLine) '1行読み取り bufLine = bufLine & "," '行の最後にカンマを追加 bufLine = Replace(bufLine,"（","(") 'かっこは半角に bufLine = Replace(bufLine,"）",")") 'かっこは半角に bufLine_a = Split(bufLine,",") 'bufLineを配列化 '// ここから表示エリア If Trim(bufLine_a(0)) = "公共料金" Then '//公共料金は掲載しない '// 完全に無視します Else '// 前の行から持ち越した大カテゴリーの値と比較します。 If checkLastCategory1 <> bufLine_a(0) Then '// 前の行と値が異なる場合は大カテゴリーの見出しを作成します。 If bufLine_a(0) <> "銀行" Then '銀行の場合は値を置き換えます WriteCategory1 = Trim(bufLine_a(0)) WriteCategoryClass1 = Replace(bufLine_a(0),"クレジットカード","card") WriteCategoryClass1 = Replace(WriteCategoryClass1,"電子マネー","emoney") Response.write " " & vbNewLine Response.write " " & vbNewLine Response.write "
" & 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 "
" & vbNewLine Response.write "

" & WriteCategory2 & "

" & vbNewLine Response.write "
" & vbNewLine '// 見出しを立てた宣言をします（リストの最初の項目にあたるため） CategoryRepeatFlg = "1" End If End If '// 先頭項目の場合に記載を変更するための値です。現在は使用していません。 If CategoryRepeatFlg = "1" Then SameCategorySource = "" Else SameCategorySource = "" End If '// 対応しているか否かの値を判別します。 'If bufLine_a(13) = "1" Or (bufLine_a(5) = "-" Or bufLine_a(5) = "×") And (bufLine_a(8) = "-" Or bufLine_a(8) = "×") Then If (bufLine_a(5) = "-" Or bufLine_a(5) = "×") And (bufLine_a(8) = "-" Or bufLine_a(8) = "×") Then '// 対応していないので記述しません。 If WEBSERVER_FLG <> 0 Then End If Else '// 掲載件数をカウントアップ CountAccountID = CountAccountID + 1 Response.write "

" Response.write bufLine_a(2) Response.write "

" & vbNewLine End If '// 比較用開催日を一旦カラに（念の為です） checkLastCategory1 = "" checkLastCategory2 = "" CategoryRepeatFlg = "0" '// 比較用開催日に現レコードの値を入れる checkLastCategory1 = bufLine_a(0) checkLastCategory2 = bufLine_a(1) End If End If Loop 'ファイルを閉じる。 CsvFile.Close 'ファイルの関連付けを解除する。 Set FileOBJ = Nothing End If %>
▲
<% '/////////////////////////////////////////////////////////////////////////////// '// Function '// 検索結果を表示します。 '/////////////////////////////////////////////////////////////////////////////// Function GetSearchList(search_word) '//検索ワードを 'Response.write search_word & "
" & vbNewLine Dim ReplaceSearchWord, SplitSearchWord Dim searchResultId Dim searchFlg Dim j Dim SearchTargetText Dim WriteTable ReplaceSearchWord = bobj.StrConv(search_word,4) ReplaceSearchWord = Replace(ReplaceSearchWord,"信用金庫","信金") ReplaceSearchWord = Replace(ReplaceSearchWord,"労働金庫","労金") ReplaceSearchWord = Replace(ReplaceSearchWord,"信組","信用組合") ReplaceSearchWord = Replace(ReplaceSearchWord," ","　") ReplaceSearchWord = Replace(ReplaceSearchWord,",","　") ReplaceSearchWord = Replace(ReplaceSearchWord,vbTab,"　") ReplaceSearchWord = Replace(ReplaceSearchWord,"、","　") ReplaceSearchWord = Replace(ReplaceSearchWord,"，","　") ReplaceSearchWord = Replace(ReplaceSearchWord,"　　　　","　") ReplaceSearchWord = Replace(ReplaceSearchWord,"　　　","　") ReplaceSearchWord = Replace(ReplaceSearchWord,"　　","　") ReplaceSearchWord = Trim(ReplaceSearchWord) 'Response.write ReplaceSearchWord & "

" & vbNewLine SplitSearchWord = Split(ReplaceSearchWord,"　") '// ファイルを開く Set CsvFile = FileOBJ.OpenTextFile(Server.MapPath(FilePath) ,1,False,False) searchResultId = 0 Do Until CsvFile.AtEndOfStream Id = Id+1 If Id <= 4 Then CsvFile.SkipLine Else bufLine = (CsvFile.ReadLine) '1行読み取り bufLine = bufLine & "," '行の最後にカンマを追加 bufLine = Replace(bufLine,"（","(") 'かっこは半角に bufLine = Replace(bufLine,"）",")") 'かっこは半角に bufLine_a = Split(bufLine,",") 'bufLineを配列化 searchFlg = 0 For j=0 To UBound(SplitSearchWord) 'Response.write "SplitSearchWord(j):" & SplitSearchWord(j) & "
" & vbNewLine 'Response.write "　bufLine_a(2):" & bufLine_a(2) & "
" & vbNewLine 'Response.write InStr(bufLine_a(2),SplitSearchWord(j)) & "
" & vbNewLine SearchTargetText = bobj.StrConv(bufLine_a(2),4) 'Response.write "SearchTargetText:" & SearchTargetText & "
" & vbNewLine If InStr(SearchTargetText,SplitSearchWord(j)) > 0 Then searchFlg = searchFlg + 1 Else searchFlg = searchFlg End If Next If searchFlg > 0 Then '// 対応しているか否かの値を判別します。 'If bufLine_a(13) = "1" Or ((bufLine_a(5) = "-" Or bufLine_a(5) = "×") And (bufLine_a(8) = "-" Or bufLine_a(8) = "×")) Or Trim(bufLine_a(0)) = "公共料金" Then If ((bufLine_a(5) = "-" Or bufLine_a(5) = "×") And (bufLine_a(8) = "-" Or bufLine_a(8) = "×")) Or Trim(bufLine_a(0)) = "公共料金" Then '対応していないので何も記載しない Else WriteTable = WriteTable & "

" & bufLine_a(2) & "

" & vbNewLine searchResultId = searchResultId + 1 End If End If End If Loop '// ファイルを閉じる。 CsvFile.Close '// 検索結果を表示します。 If searchResultId = 0 Then Response.write """" & ReplaceSearchWord & """ の検索結果はありませんでした。
" ' Response.write "【ヒント】 下の金融機関の一覧表示に合わせたキーワードになっているかご確認ください" Else ' Response.write "
""" & ReplaceSearchWord & """ の検索結果：" & searchResultId & "件
" ' Response.write "" Response.write WriteTable ' Response.write "
" End If End Function %>