VBでCSVデータから一部を抜き出したCSVデータを作成したいです

###前提・実現したいこと
・CSVデータは何行あるかはその時々で、そのCSVデータの10行から先を新たにCSVデータとして出力させたいです。
例：CSVデータ（11行）の場合は10，11行目だけをCSVデータとして出力

・CSVデータが10行以下の場合は出力しません

・CSVデータの1行目から9行目はリッチテキストボックスに表示させています。

###CSV取り込みのソースコード

VB
1 Dim fileName As String = "CSVファイルがある場所のフルパス"
2
3        'CSVファイルがあるかどうか
4        If IO.File.Exists(fileName) Then
5
6            'CSVファイルがあったら、CSVデータをShft_jisとして取り込む
7            Dim txtParser As FileIO.TextFieldParser = New FileIO.TextFieldParser "CSVファイルがある場所のフルパス",
8                System.Text.Encoding.GetEncoding("shift_jis"))
9
10            '内容は区切り文字形式として取り込む
11            txtParser.TextFieldType = FileIO.FieldType.Delimited
12
13            'デリミタはカンマとして取り込む
14            txtParser.SetDelimiters(",")
15
16            'ファイルの終わりまで一行ずつ読み込む
17            While Not txtParser.EndOfData
18
19                '一行を読み込んで配列に結果を受け取る
20                Dim splittedResult As String() = txtParser.ReadFields()
21
22                '配列からoutputへ出力する
23                For Each output As String In splittedResult
24                        'outputをテキストに代入する
25                        mytxt(i).Text = output
26                        '次のテキストボックスへ
27                        i = i + 1
28                    End If
29                Next
30            End While

###補足情報(言語/FW/ツール等のバージョンなど)
言語 VB
環境 win7 64bit
Visual Studio 2015

###最後に
無知な私ですが、どうか皆様のお知恵をお貸しください

行動規範の内容に同意します

回答1件

ベストアンサー

一番手っ取り早くやるのであれば、カウンター用の変数を用意して0-9までの処理を飛ばしてしまえばいいのではないでしょうか？

ファイル書き込みについて追記しました。デバッグなどはやってないので参考としてお持ちください。



'書き込み用のファイルストリームを定義
Dim fs As FileStream = New FileStream("出力先フルパス", FileMode.Append, FileAccess.Write)
Dim sw As StreamWriter = New StreamWriter(fs)
Dim oneLine As String

'追加部分
Dim count As integer 
count = 0

      'ファイルの終わりまで一行ずつ読み込む
      While Not txtParser.EndOfData

’追加部分
if count < 8 then
   i += 1
   Continue While
End if

      '一行を読み込んで配列に結果を受け取る
     Dim splittedResult As String() = txtParser.ReadFields()

　　　’書き込み用文字列初期化
　　　oneLine = ""　　　

     '配列からoutputへ出力する
      For Each output As String In splittedResult
         'ここでCSVの形式となるように成形してください。   
　　　　　oneLine += output + ","         
      Next
　　　
　　　sw.WriteLine(oneLine) 

End While

    sw.Close()
    fs.Close()

投稿2017/08/07 06:18

編集2017/08/07 07:42