CSV出力

最新推荐文章于 2023-08-20 15:03:02 发布

原创最新推荐文章于 2023-08-20 15:03:02 发布 · 787 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#csv #integer #string

技术专栏收录该内容

41 篇文章

订阅专栏

本文介绍了一个用于将DataTable数据导出为CSV文件的VB.NET函数psSetCsv。该函数接收DataTable对象和文件名作为参数，并将数据转换为CSV格式保存到指定路径。此外，还实现了自动下载功能。

RT
"
'-----------------------------------------------------------------------
    '関数名：psSetCsv
    '
    '[機　能]CSV出力処理
    '[引数]dtCsvData       :CSV出力データ
    '        strFile         :ファイル名前
    '[戻り値]文字列
    '[作　成]2007/02/02
    '-----------------------------------------------------------------------
    Public Sub psSetCsv(ByVal frmPage As Page, ByVal dtCsvData As DataTable, ByVal strFile As String)
        Dim objTm As System.IO.StreamWriter
        'Dim objTm As System.IO.TextWriter
        Dim strPath As StringBuilder
        Dim strLine As String = String.Empty
        Dim strP As String

        strFile = strFile & Date.Now.ToString("yyyyMMddHHmmss") & ".csv"

        'CSVパスを取得
        strPath = New StringBuilder()
        strPath.Append(frmPage.Request.ApplicationPath)
        strPath.Append("/")
        strPath.Append(System.Configuration.ConfigurationManager.AppSettings("CSVPath"))
        strPath.Append("/")
        strPath.Append(strFile)

        objTm = My.Computer.FileSystem.OpenTextFileWriter(strPath.ToString(), False, System.Text.Encoding.GetEncoding("shift_jis"))

        'ヘッダー行を生成する
        For i As Integer = 0 To dtCsvData.Columns.Count - 1
            If i = 0 Then
                strLine = """" & dtCsvData.Columns(i).ColumnName & """"
            Else
                strLine += ",""" & dtCsvData.Columns(i).ColumnName & """"
            End If
        Next
        'ヘッダーを書き込む
        objTm.WriteLine(strLine)

        For i As Integer = 0 To dtCsvData.Rows.Count - 1
            'データ行を生成する
            For j As Integer = 0 To dtCsvData.Columns.Count - 1
                If j = 0 Then
                    strLine = """" & dtCsvData.Rows(i).Item(j).ToString & """"
                Else
                    strLine += ",""" & dtCsvData.Rows(i).Item(j).ToString & """"
                End If
            Next j
            'データ行を書き込む
            objTm.WriteLine(strLine)
        Next i

        objTm.Close()

        strP = frmPage.Request.ApplicationPath
        'ダウンロード
        frmPage.ClientScript.RegisterStartupScript(frmPage.GetType(), "", _
                             "<script>window.open('" & strP & "/page/DownFile.aspx?strFile=" & strPath.ToString() & "')</script>")

    End Sub
"