Chapter06_list6-29

制御文字とnull対策

リスト6-29及び次々頁

Function Tsv() As ActionResult

        Dim members = db.Members.ToList()

        Dim str = New StringBuilder()

        members.ForEach(Function(m) str.Append(

                            String.Format("{1}{0}{2}{0}{3}{0}{4}{0}{5}{0}{6}" & vbNewLine,

                                          vbTab,

                                          m.Id,

                                          m.Name,

                                          m.Email,

                                          m.Birth.ToShortDateString,

                                          m.Married,

                                          If(IsNothing(m.Memo), Nothing, m.Memo.Replace(vbNewLine, "")))))

        Response.AddHeader("Content-Disposition", "attachment;filename=sample.txt")

        Return Content(str.ToString(), "text/tab-separated-values", Encoding.GetEncoding("Shift_JIS"))

    End Function