![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VB.NET を知って今日で30日目という初学者です。
付属一覧.csv
品番001, 品番001用付属1, 品番001用付属2, 品番001用付属3
品番002, 品番002用付属1, 品番002用付属2, 品番002用付属3
品番003, 品番003用付属1, 品番003用付属2, 品番003用付属3
品番004, 品番004用付属1, 品番004用付属2, 品番004用付属3
品番005, 品番005用付属1, 品番005用付属2, 品番005用付属3
今、上記のCVSファイル配列に読み込む方法を探っています。
Using MyReader As New TextFieldParser(aFile, Encoding.Default)
While Not MyReader.EndOfData
aLines.Add(MyReader.ReadLine())
End While
End Using
と、ここまでは何とか回答に助けられて到達。
aLines は List です。
しかし、これは一次元配列。
Dim aFields(,) As String
ReDim aFiles(N, M) As String
とやれば、行ではなくフィールドで読めば、二次元配列も可能とは思っています。
しかし、これは N を確定する手続きが必須。
そこで質問は、そうしない妙手に関してです。
宜しくお願いします。
No.1ベストアンサー
- 回答日時:
あー、この間から質問の意図がよく分からなかったから回答してなかったけど,やっと分かった気がする。
Option Explicit On
Option Strict On
Option Compare Binary
Option Infer Off 'VB2008から
Class Program
Shared Sub Main()
Dim aLines As System.Collections.Generic.List(Of String())
aLines = New System.Collections.Generic.List(Of String())()
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\hoge.csv", System.Text.Encoding.Default)
MyReader.SetDelimiters(",")
While Not MyReader.EndOfData
aLines.Add(MyReader.ReadFields())
End While
End Using
System.Console.WriteLine(aLines(0)(0))
System.Console.ReadKey(true)
End Sub
End Class
みたいなことがやりたいのかな?
#僕自身はList(Of String())ではなくList(Of List(Of String))を好むが
利点は特に無い。
完全に目的を達しました。
Sub Main()
Dim I As Integer
Dim J As Integer
Dim aDatas As List(Of String())
aDatas = New List(Of String())()
Dim N = CSVReadToArray("D:\Temp\付属一覧.csv", aDatas) - 1
For I = 0 To N
For J = 0 To 3
Debug.Print(aDatas(I)(J))
Next J
Next I
End Sub
[デバッグ ウインドウ]
品番001
品番001用付属1
品番001用付属2
品番001用付属3
品番002
品番002用付属1
品番002用付属2
品番002用付属3
品番003
品番003用付属1
品番003用付属2
品番003用付属3
品番004
品番004用付属1
品番004用付属2
品番004用付属3
品番005
品番005用付属1
品番005用付属2
品番005用付属3
今日で一ヶ月一日目という初学者。
正に、何がわかっていないのかがわかっていない状態です。
つたない質問へのバッチリの回答に心からお礼を申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- メルカリ メルカリでハイブランドの偽物を掴まされない注意点て何がありますか? 偽物の心配するなら正規店で買えと 4 2023/02/22 12:50
- その他(住宅・住まい) ロンカラーと言う勝手口ドアの網戸ですが、網戸側の磁石が壊れてしまいました。網戸が固定できるように勝手 1 2022/06/26 14:03
- DIY・エクステリア SANEI トイレ部品 ロータンク密結パッキン がの我がトイレとの互換性を教えてください。 3 2023/07/16 06:22
- Excel(エクセル) エクセルで30日以内に同内容の入力があったら色を付ける 2 2023/03/04 12:32
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- カスタマイズ(車) Dream Makerのカーナビを使用しています。 付属のフルセグ用のアンテナは感度が悪く、 別売り 1 2023/01/30 08:32
- その他(芸術・クラフト) ☆金属部品について みなさんが今まで見た中で一番ユニーク、もしくは芸術作品のような美しい金属のパーツ 5 2023/05/28 14:21
- iPad iPadのミラーリングのケーブルについて 5 2023/05/09 06:50
- iPhone(アイフォーン) HUAWEIのの急速充電器でiphone12pro機に使っても大丈夫ですか? 3 2022/04/10 10:52
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
CSVファイルのデータを2次元配列で読み込む際、どんな手段を取りますか?
Visual Basic(VBA)
-
VB.NETでのイベントの途中終了
Visual Basic(VBA)
-
csvファイルのデータの一部を取り出したい
Visual Basic(VBA)
-
-
4
<VB.NET>INSERT文でDBにデータを入れたい
Visual Basic(VBA)
-
5
vb.netです。2次元配列の要素をFor Eachでひとつづつ取得したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
配列数式の解除
-
コントロール配列のループ
-
《エクセル2000》A列・B列の商...
-
特定のセル範囲で4文字以上入力...
-
Excel-VBAの配列「Public Const...
-
VBA 1次元配列を2次元に追加する
-
2次元動的配列の第一引数のみを...
-
Excel VBA TREND関数について
-
メッセージボックスのOKボタ...
-
UserForm1.Showでエラーになり...
-
エクセルで別のセルにあるふり...
-
ブレーカー落ちで壊れたりしな...
-
VBAコードのインデント表示
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
[VBA] CountIfに変数を使いたい
-
Excel マクロ VBA プロシー...
-
教えて下さい
-
マクロ実行時、自動で背景色を...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
for each の現在の配列ポインタ...
-
配列変数の添字が範囲外ですと...
-
VBA 1次元配列を2次元に追加する
-
特定のセル範囲で4文字以上入力...
-
subの配列引数をoptionalで使う...
-
ListViewで、非表示列って作れ...
-
VB6 配列を初期化したい
-
Excel-VBAの配列「Public Const...
-
配列を任意の数値で埋める方法
-
Dim は何の略ですか?
-
verilogで配列の任意の8bitを取...
-
VBのFunctionで、配列を引数...
-
2次元動的配列の第一引数のみを...
-
エクセルで最小値から0を除く方法
-
VBA Match関数の限界
-
Excel VBA配列をFunctionに渡す
-
VB2008: CSV を二次元配列に読...
-
fortranでのcsvファイルの読み込み
おすすめ情報