ASP.NET(VB)でCSVファイルをコネコネするシリーズ3
前回までは、作ってダウンロードして、ってしたけどCSVからデータを取得してそのままDBに登録する、とか色んな処理が必要なのよね。
今回はCSVファイルの読込みです。
本当に読込むだけ。
色んな処理はまた今度にしましょう。


#Region "ＣＳＶファイルのデータ読込み"
'=====================================================
' ＣＳＶファイルの読込み
'-----------------------------------------------------
'【引　数】なし
'【戻り値】なし
'【注　意】先頭でSystem.IOをインポートしているのが前提
'=====================================================
Private Sub Csv_Update()

Dim UPDIR_NAME As String = "C:\CSV\"
Dim FileName As String = "test.csv"
Dim Fullpath As String = UPDIR_NAME & strFileName
Try
'受信したファイルを読み込む
Dim sr As StreamReader = New StreamReader(Fullpath, System.Text.Encoding.Default)
Dim strLine As String = sr.ReadLine()

While (strLine <> "")
Dim strCol() As String = strLine.Split(CChar(",") & CChar(""""))
Dim intCol As Integer
For intCol = 0 To strCol.Length - 1
' ダブルクォーテーションでくくられている場合、クォーテーションを取り除く
If strCol(intCol).StartsWith("""") AndAlso strCol(intCol).EndsWith("""") Then
strCol(intCol) = strCol(intCol).Substring(1, strCol(intCol).Length - 2)
End If
Next intCol

'読み出したデータを利用するのであればここに処理を挿入

'次の行へ
strLine = sr.ReadLine()
End While

sr.Close()

Catch ex As Exception
Throw ex
End Try

End Sub
#End Region

ASP.NET(VB)でCSVファイルをコネコネするシリーズ2。
今回は前回作成したCSVファイルをダウンロードしてみる関数を作成。
実際にはもっと色々チェックも入れて画面から選択したファイル名を取得してやらその他諸々ちゃんとしてるんだけどその辺は省略。
指定したCSVファイルを存在チェックしてダウンロードすることができます。

#Region "ＣＳＶをダウンロード"
'=====================================================
'ＣＳＶをダウンロード
'-----------------------------------------------------
'【引　数】なし
'【戻り値】なし
'【注意】Exceptionは共通で指定しておいてね
'=====================================================
Private Sub FileDownLoad()
Try
Dim DirName As String = "C:\CSV\"
Dim FileName As String = "test.csv"
Dim strFullpath As String = DirName & FileName
Dim TypeName As String = Mid(FileName, FileName.Length - 3, 4)

'ファイル存在チェック
If File.Exists(strFullpath) = True Then
'今回は簡易的に拡張子のみでCSVかどうかをチェック
If TypeName <> ".csv" Then
Throw New Exception("処理中エラー：CSVファイルではありません。")
End If

If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 5.5;") > 0 Then
'IE5.5バグ対応
Response.ContentType = "application/octet-stream-dummy"
Else
'IE5.5以外
Response.ContentType = "application/octet-stream"
End If

'ファイルをダウンロード
Response.AddHeader("Content-Disposition", "attachment; filename=" & HttpUtility.UrlEncode(strFullpath))
Response.WriteFile(strFullpath)
Response.End()
End If
Catch ex As Exception
Throw ex
End Try

End Sub
#End Region

CSVファイルをコネコネするシリーズ1。
ASP.NET(VB)でCSV作成用関数を作成。
指定したフォルダにカンマ区切りCSVファイルが作成できます。


#Region "ＣＳＶファイル作成"
Private Sub CsvMake()
'=====================================================
'ＣＳＶファイル作成
'-----------------------------------------------------
'【引　数】
'【戻り値】なし
'=====================================================

Try
Dim DirName As String = "C:\CSV\"
Dim FileName As String = "test.csv"
Dim strFullpath As String = DirName & FileName
Dim strLine() As String = Nothing

'格納するフォルダが存在しない場合、フォルダを作成
If System.IO.Directory.Exists(DirName) = False Then
System.IO.Directory.CreateDirectory(DirName)
End If

Dim i As Integer
For i = 0 To 10
strLine(i) = "aaa"
Next i

'ＣＳＶを作成
Dim sw As System.IO.StreamWriter
sw = New System.IO.StreamWriter(strFullpath, True, System.Text.Encoding.GetEncoding(932))
sw.WriteLine(strLine)

sw.Close()

Catch ex As Exception
Throw ex
End Try

End Sub
#End Region