こんにちは。質問させていただきます。
(Visual Basic 2010 エクスプレス)
下記のように書いたのですが、ファイルの内容どおりに読み込んでくれません。
ファイルの中身は
さささ,0,ししししししし
すすす,0,せせせせせせ
そそそ,0,たたたたた
となっているのですが、最初の一行を読み込み、しかも最初の一行を繰り返し2段目3段目の
テキストボックスに表示させてしまいます。
具体的には
さささ ししししししし
さささ ししししししし
さささ ししししししし
です。
本来は
さささ ししししししし
すすす せせせせせせ
そそそ たたたたた
と表示させたいのです。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Using reader As New System.IO.StreamReader("C:\csvtest\test.csv", System.Text.Encoding.GetEncoding("Shift-JIS"))
Dim Items() As String 'CSVの各項目を表す配列
Dim Line As String = reader.ReadLine 'CSVの一行
Do Until IsNothing(Line)
Items = Line.Split(",") '一行を, (カンマ)で区切って項目ごとに分解
With reader
TextBox1.Text = Items(0)
CheckBox1.CheckState = Items(1)
TextBox2.Text = Items(2)
Line = reader.ReadLine '次の行を読み込む。
TextBox3.Text = Items(0)
CheckBox1.CheckState = Items(1)
TextBox4.Text = Items(2)
Line = reader.ReadLine '次の行を読み込む。
TextBox5.Text = Items(0)
CheckBox1.CheckState = Items(1)
TextBox6.Text = Items(2)
Line = reader.ReadLine '次の行を読み込む。
.Close()
End With
Loop
End Using
End Sub
問題点がわかる方、よろしくおねがいします!
No.1ベストアンサー
- 回答日時:
最初の一行を読んだときしかsplitしてないのが原因でしょう。
csv読むにはTextFieldParser使った方がだいぶラクですけどね。
http://msdn.microsoft.com/ja-jp/library/microsof …
おかげさまで出来ました!
具体的には
With reader
Items = Line.Split(",")
TextBox1.Text = Items(0)
CheckBox1.CheckState = Items(1)
TextBox2.Text = Items(2)
Line = reader.ReadLine '次の行を読み込む。
Items = Line.Split(",")
TextBox3.Text = Items(0)
CheckBox1.CheckState = Items(1)
TextBox4.Text = Items(2)
Line = reader.ReadLine '次の行を読み込む。
Items = Line.Split(",")
TextBox5.Text = Items(0)
CheckBox1.CheckState = Items(1)
TextBox6.Text = Items(2)
Line = reader.ReadLine '次の行を読み込む。
.Close()
End With
にしました。
教えていただいた
>csv読むにはTextFieldParser
の件につきましては、とりあえずメモをしておいて
後々の課題にさせていただきます。
(今はプログラムが正常に動くのを優先させたいので)
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- C言語・C++・C# C# で、あるフォルダー内にあるすべてのテキストファイルを別のフォルダーにコピーする。 4 2022/11/21 13:23
- JavaScript Javascriptを使ってQRコード読み取り、取得した情報をPOSTしたいと思っています。 1 2023/04/28 15:18
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カンマ区切りのCSVファイルから...
-
複数のcsvファイルをExcelに一...
-
CSV形式での保存時に”文字列...
-
csvファイルでの日付設定「yyyy...
-
VBAでcsvファイルを読み込んで...
-
csvファイル 項目数取得
-
マクロから出力されるcsvのダブ...
-
複数のCSVファイルのAccessテー...
-
csvファイルを列数ごとに分割す...
-
エクセル形式のファイルの読み込み
-
ADODBでSQL実行前にレコードセ...
-
バッチでCSVを処理する時、空の...
-
csvファイルのデータの間引きを...
-
【C#】パス名で無効な文字
-
PHP.laravelについて
-
COBOLでCSVをインプットにして...
-
【ExcelVBA】UTF-8の文字コード...
-
CSVファイルの項目行を削除...
-
ファイル名ないにあるカンマを...
-
エクセルで運転時間を見たい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマ区切りのCSVファイルから...
-
CSV形式での保存時に”文字列...
-
複数のcsvファイルをExcelに一...
-
csvファイル 項目数取得
-
csvファイルでの日付設定「yyyy...
-
バッチでCSVを処理する時、空の...
-
マクロから出力されるcsvのダブ...
-
csvファイルを列数ごとに分割す...
-
エクセル形式のファイルの読み込み
-
csvファイルのデータの一部を取...
-
エクセルVBA 大容量CSVファイル...
-
CSVファイル作成
-
EXCEL|csvで保存→開くcsvを閉じる
-
CSVファイルの項目行を削除...
-
巨大なCSVの加工(指定列のみの...
-
データ解析ソフトRでのファイル...
-
VBAでCSVファイルのデータを集...
-
【ExcelVBA】UTF-8の文字コード...
-
【C#】パス名で無効な文字
-
特定文字を入ってるCSVの特定の...
おすすめ情報