質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.78%

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

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 1
  • VIEW 3,940

syameimaru

score 173

前提・実現したいこと

・CSVデータは何行あるかはその時々で、そのCSVデータの10行から先を新たにCSVデータとして出力させたいです。
例:CSVデータ(11行)の場合は10,11行目だけをCSVデータとして出力

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

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

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

 Dim fileName As String = "CSVファイルがある場所のフルパス"

        'CSVファイルがあるかどうか
        If IO.File.Exists(fileName) Then

            'CSVファイルがあったら、CSVデータをShft_jisとして取り込む
            Dim txtParser As FileIO.TextFieldParser = New FileIO.TextFieldParser "CSVファイルがある場所のフルパス",
                System.Text.Encoding.GetEncoding("shift_jis"))

            '内容は区切り文字形式として取り込む
            txtParser.TextFieldType = FileIO.FieldType.Delimited

            'デリミタはカンマとして取り込む
            txtParser.SetDelimiters(",")

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

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

                '配列からoutputへ出力する
                For Each output As String In splittedResult
                        'outputをテキストに代入する
                        mytxt(i).Text = output
                        '次のテキストボックスへ
                        i = i + 1
                    End If
                Next
            End While

補足情報(言語/FW/ツール等のバージョンなど)

言語 VB
環境 win7 64bit
Visual Studio 2015

最後に

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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+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 17:03

    回答に追記しました。
    ちなみに、CSVを読み込むところでtxtParserを使っていますが、CSVの内容や形式が全く同じであるのであればStreamReaderで一行そのまま読み込んで、StreamWriterで書きだしてしまうのも手だと思います。

    キャンセル

  • 2017/08/07 17:11

    何度もコメントすみません。
    一応注記事項として、上記コードはヘッダーの出力を考慮しておりません。
    ヘッダーが必要な場合は1行目を飛ばさずに2行目以降を飛ばすようにして下さい。

    キャンセル

  • 2017/08/08 08:13

    回答ありがとうございました!

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.78%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る