Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
DataGridView CSV出力
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=279#CommentId1909
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
熊造
 (社会人)
投稿日時
2009/2/4 02:28:41
DataGridViewの中身をCSVに出力を作りました。
①CSVの","はやはり都度いれないといけないのでしょうか
②数字が12桁のものがありそのままでは頭0などかけてしまうので"'"をいれましたが他に方法は
ないでしょうか
③myColumns +のところで警告がでます
'myColumns' は、値が割り当てられる前に使用されています。Null 参照の例外が実行時に発生する
可能性があります。
これを回避する方法はありでしょうか 問題なく動作はすます。
独学で回りに聞くひともなくやっておりまして ひょっとしたらもっとかんたんにできるのではないか
と思いまして
よければ教えていただけないでしょうか
Dim myColumns as String
Dim myFile As New System.IO.StreamWriter(myFilePath, False, System.Text.Encoding.Default)
myFile.Close()
Dim myFile1 As New System.IO.StreamWriter(myFilePath, True, System.Text.Encoding.Default)
'ヘッダー追加
For i As Integer = 0 To DataGridView1.ColumnCount - 1
If i = 0 Then
myColumns = DataGridView1.Columns(i).HeaderText
Else
myColumns += "," & DataGridView1.Columns(i).HeaderText
End If
Next
myFile1.WriteLine(myColumns)
'詳細追加
For i As Integer = 0 To DataGridView1.Rows.Count - 1
myFile1.WriteLine("'" & DataGridView1.Rows(i).Cells(0).Value & ",'" & DataGridView1.Rows(i).Cells(1).Value & "," & _
DataGridView1.Rows(i).Cells(2).Value & "," & DataGridView1.Rows(i).Cells(3).Value & "," & _
DataGridView1.Rows(i).Cells(4).Value & "," & DataGridView1.Rows(i).Cells(5).Value & "," & _
DataGridView1.Rows(i).Cells(6).Value & "," & DataGridView1.Rows(i).Cells(7).Value & "," & _
DataGridView1.Rows(i).Cells(8).Value & "," & DataGridView1.Rows(i).Cells(9).Value & "," & _
DataGridView1.Rows(i).Cells(10).Value & "," & DataGridView1.Rows(i).Cells(11).Value)
Next
myFile1.Close()