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