dataOutPut = New List(Of Categories)()
Dim search1 As String = "Beverages"
Dim search2 As String = "Cheeses"
' 空のコレクションを用意
Dim queryList As IEnumerable(Of Categories) = New List(Of Categories)()
If search1 <> "" Then
queryList = queryList.Union(db.Categories.Where(Function(v) v.CategoryName.Contains(search1)).ToList())
End If
If search2 <> "" Then
queryList = queryList.Union(db.Categories.Where(Function(c) c.Description.Contains(search2)).ToList())
End If
Dim all = queryList.ToList()
'リストデータをCSVファイルに出力
ConvertListTDataToCSVFile(all, "C:\testdata\bb.csv")'本画面で、操作した後、本画面を表示する
Return View()
End Function
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
''' <summary>
''' TDataデータをCSVファイルに出力する
''' </summary>
''' <param name="sourceListData"></param>
''' <param name="csvPath"></param>
Public Shared Sub ConvertListTDataToCSVFile(ByVal sourceListData As IEnumerable(Of Categories), ByVal csvPath As String)
Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
'書き込むファイルを開く
Dim writer As New System.IO.StreamWriter(csvPath, False, enc)
For Each item In sourceListData
Dim lineData As String
lineData = item.CategoryID & "," & item.CategoryName & "," & item.Description
writer.WriteLine(lineData)
writer.Flush()
Next
'閉じる
writer.Close()
End Sub