![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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です。2次元配列の要素をFor Eachでひとつづつ取得したい。
Visual Basic(VBA)
-
VB.NETでのイベントの途中終了
Visual Basic(VBA)
-
-
4
<VB.NET>INSERT文でDBにデータを入れたい
Visual Basic(VBA)
-
5
DBから取得した値を配列へ代入する
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
配列数式の解除
-
for each の現在の配列ポインタ...
-
2つ以上の変数を比較して最大数...
-
VBA 1次元配列を2次元に追加する
-
VBAで近似曲線の係数取得
-
配列変数の添字が範囲外ですと...
-
fortranでのcsvファイルの読み込み
-
特定のセル範囲で4文字以上入力...
-
subの配列引数をoptionalで使う...
-
[VB.net] StringからByte配列へ...
-
【EXCEL】条件+上位○位までを...
-
Excel-VBAの配列「Public Const...
-
Excel VBA配列をFunctionに渡す
-
配列を任意の数値で埋める方法
-
VBのFunctionで、配列を引数...
-
ListViewで、非表示列って作れ...
-
matlabにおける行列の格納
-
Excel2000 絶対値の集計
-
VB6 配列を初期化したい
-
順列の作成
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
for each の現在の配列ポインタ...
-
VBA 1次元配列を2次元に追加する
-
特定のセル範囲で4文字以上入力...
-
配列変数の添字が範囲外ですと...
-
subの配列引数をoptionalで使う...
-
えfor文とか使っちゃう時点で時...
-
ListViewで、非表示列って作れ...
-
Excel-VBAの配列「Public Const...
-
VBAで近似曲線の係数取得
-
VB6 配列を初期化したい
-
VBのFunctionで、配列を引数...
-
エクセルで最小値から0を除く方法
-
《エクセル2000》A列・B列の商...
-
Dim は何の略ですか?
-
配列を任意の数値で埋める方法
-
友愛数を探すプログラム
-
verilogで配列の任意の8bitを取...
-
配列内の内容を全て表示する方法
おすすめ情報