質問: i + 1 End If Next End While ``` ### 補足情報(言語/FW/ツール等のバージョンなど) 言語 VB 環境 win7 64bit Visual Studio 2015 ### 最後に 無知な私ですが、どうか皆様のお知恵をお貸しください
回答: 一番手っ取り早くやるのであれば、カウンター用の変数を用意して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() ```