VB.netにてcsvファイルの特定箇所を抜いて保存したい。

Question

前提・実現したいこと

初めて質問させていただきます。
VB.netにてCSVファイルの特定箇所だけ抜いて保存したい場合はどのようにすれば良いでしょうか？

例えば”abc.csv”というファイルがあったとして、
その中身が
1: 458, 982, 568
2: 000, 000, 000
3: 458, 101, 259
4: 569, 000, 168
5: 000, 000, 000
6: 525, 458, 585
となっているとします。

このとき、1列目～3列目まで値が全て0である2行目と5行目を抜いて
1: 458, 982, 568
2: 458, 101, 259
3: 569, 000, 168
4: 525, 458, 585
のようにcsvファイルを保存したいです。

現在は、"SaveFileDialog"で保存を行っています。
恐れ入りますが、ご教示いただければ幸いです。

発生している問題・エラーメッセージ

csvファイルの特定箇所を抜いて保存したいが、どうすれば良いのか分からない。

該当のソースコード

 'ファイルの保存
    Private Sub SaveButton_Click(sender As Object, e As EventArgs) Handles SaveButton.Click
        With SaveFileDialog1
            '選択ダイアログを開く
            .Title = "点群ファイルの書き込み"
            .Filter = "点群ファイル(*.csv)|*.csv|すべてのファイル(*.*)|*.*"
            .DefaultExt = ".csv"

            Dim selectButton As DialogResult
            Dim filename As String

            'データの個数が0のときは何もしない
            If DataCount = 0 Then
                MessageBox.Show("データが登録されていないので保存できません。")
                Exit Sub
            End If

            '名前をつけて保存
            selectButton = SaveFileDialog1.ShowDialog()
            filename = SaveFileDialog1.FileName

            If selectButton = DialogResult.OK Then
                Dim sw As IO.StreamWriter = Nothing

                Try
                    'グリッドデータの保存
                    SaveFileText.Text = .FileName
                    sw = New IO.StreamWriter(filename, False, System.Text.Encoding.GetEncoding("Shift-JIS"))

                    For i As Integer = 0 To DataCount - 1
                        If 0 < DataA(i).A And 0 < DataB(i).B And 0 < DataC(i).C Then
                            sw.WriteLine(DataA(i).A & "," & DataB(i).B & "," & DataC(i).C)
                        End If
                    Next

                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                Finally
                    'ファイルを閉じる
                    If sw IsNot Nothing Then
                        sw.Close()
                        sw.Dispose()
                    End If
                End Try
            End If
        End With
    End Sub

試したこと

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[shinami]

このソースで実行したらどうなりますでしょうか？
DataA(i).AやDataB(i).BやDataC(i).Cがそれぞれ1列目、2列目、3列目と予想しますが、
ここにデータが入っていればある程度出来そうな気もします。
または、そうではなく訳が分からないので取り合えずDataA(i).Aなどと入力し赤い下波線が出ている状態でビルドエラーと出てしまう様な状況でしょうか？

[gorimamu]

ご質問ありがとうございます。
DataA(i).A等は、それぞれ1列目から3列目までのデータです。
また、実際にデータは入っており、ビルドエラーなどは出ません。

ソースコードでは、
If 0 < DataA(i).A And 0 < DataB(i).B And 0 < DataC(i).C Thenとありますが、
これは、それぞれのデータで0を抜いて出力することを想定したのですが、
実際はシートに何も記載されていないCSVファイルが出力されています。

If 0 < DataA(i).A And 0 < DataB(i).B And 0 < DataC(i).C Thenを抜いた場合は、
1: 458, 982, 568
2: 000, 000, 000
3: 458, 101, 259
4: 569, 000, 168
5: 000, 000, 000
6: 525, 458, 585
と出力されます。

Answer 1

いずれにしてもDataA(i).Aなどが良く分かりませんので。

Imports System.IO
Imports System.Text
Public Class Form1
    Private OpenFileDialog1 As New OpenFileDialog()
    Private sr As StreamReader
    Private sw As StreamWriter
    Private FCopyName As String 'フォルダ階層とファイル名の末尾に2を追加した名前のパス
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If OpenDlg() Then
            FileCreate()
            If DeleteSyori() Then
                MessageBox.Show("書き込みました。", "メッセージ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If

    End Sub

    Private Function OpenDlg() As Boolean

        Dim okng As Boolean = True '開く=True、キャンセル=Falseを返す

        With OpenFileDialog1
            '選択ダイアログを開く
            .Title = "点群ファイルの読み込み"
            .FileName = ""
            .Filter = "点群ファイル(*.csv)|*.csv|すべてのファイル(*.*)|*.*"
            .DefaultExt = ".csv"

            'ファイル名の表示
            Dim result As DialogResult
            result = OpenFileDialog1.ShowDialog
            If result = Windows.Forms.DialogResult.OK Then
                MessageBox.Show(.FileName & "を読み込みました。", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)

            Else
                okng = False
                MessageBox.Show(.FileName & "キャンセルが押されました。",
                                    My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If
        End With

        Return okng

    End Function

    Private Sub FileCreate()

        'オープンしたフォルダ階層とファイルのパスの末尾.csvの拡張子を削除
        FCopyName = Replace(OpenFileDialog1.FileName, ".csv", "")
        'ファイルパスの末尾に2.csvを追加
        FCopyName &= "2.csv"
        'File.Copy(OpenFileDialog1.FileName, FCopyName, True)

    End Sub

    Private Function DeleteSyori() As Boolean

        Dim okng As Boolean = True '書き込み成功／失敗
        Dim ReadItems() As String  'CSVの各項目を表す配列
        Dim PDCount As Integer = 1

        Try
            sr = New StreamReader(OpenFileDialog1.FileName, Encoding.GetEncoding("Shift-JIS"))
            'ファイルが無ければフォルダ内のファイル名の末尾に2を付けたファイル名で作成し、すでに存在していれば上書きする。
            sw = New StreamWriter(FCopyName, False, Encoding.GetEncoding("Shift-JIS"))

            '読み込んだファイルの最終行になるまで繰り返し
            Do Until sr.Peek() = -1
                ReadItems = Split(sr.ReadLine(), ",") '1行読み、ReadItemsの配列に書き込み

#If DEBUG Then
                'データ確認
                Console.WriteLine(PDCount & ":" & ReadItems(0) & vbTab & ReadItems(1) & vbTab & ReadItems(2))
                PDCount += 1 '確認用
#End If

                '1列目が000でないかつ2列目が000でないかつ3列目が000でない場合ファイルに書き込む
                If ReadItems(0) <> "000" And ReadItems(1) <> "000" And ReadItems(2) <> "000" Then
                    sw.WriteLine(ReadItems(0) & "," & ReadItems(1) & "," & ReadItems(2)) '実書き込み
                End If

            Loop
        Catch ex As Exception
            okng = False
            MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace)
        Finally
            'ファイルを閉じる
            If sr IsNot Nothing Then
                sr.Close()
                sr.Dispose()
            End If
            If sw IsNot Nothing Then
                sw.Close()
                sw.Dispose()
            End If
        End Try

        Return okng

    End Function

End Class

概要

ファイル名に2を追加したファイル名を作りその中に000を排除したものができます。
無ければ作り、すでに存在していれば上書きします。
読み込み用のファイルに上書きすれば良いのかと思いましたが、読み込み用のファイルは残ったままで新たに作るようにしています。

StreamReaderとStreamWriterはUsing、End Usingを使う方法もあります。Close()処理は要らずEnd Usingの所でクローズされます。

また、既存のソースをある程度は残して作成しています。
また、CDblなどは私は普段使いませんが数字をDouble型に変換するので今は小数点もありませんし必要ないでしょう。

Comments

[gorimamu]

回答ありがとうございます。
また、コードまでご丁寧に感謝いたします。
これを参考に少し自分で試して見たいと思います。

Answer 2

1. 読み込むCSVファイルをオープン
2. 書き込むCSVファイルをオープン
3. CSVファイルを1行読み込む
4. ファイルが尽きたら8へ
5. 1列目～3列目まで値が全て0なら3に戻る
6. 1行保存
7. 3に戻る
8. 書き込みファイルクローズ
9. 読み込みファイルクローズ

という手順で実装しましょう

Comments

[gorimamu]

回答ありがとうございます。
質問なのですが、CSVファイルの1行づつの読み込みは、
Do Until sr.Peek() = -1
ReDim Preserve PD(DataCount)
ReadItems = Split(sr.ReadLine(), ",")
DataA(DataCount).A = CDbl(ReadItems(0))
DataB(DataCount).B = CDbl(ReadItems(1))
DataC(DataCount).C = CDbl(ReadItems(2))
Loop
で行ったとして、⑤，⑥はどのように行ったらよいのでしょうか？

0なら③へ戻るというところで何を使ったらよいか教えていただけると幸いです。