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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
CSVファイルのデータを2次元配列で読み込む際、どんな手段を取りますか?
Visual Basic(VBA)
-
CSVファイルから文字列を読み込む
Visual Basic(VBA)
-
vb.netです。2次元配列の要素をFor Eachでひとつづつ取得したい。
Visual Basic(VBA)
-
-
4
DBから取得した値を配列へ代入する
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
【VB.NET】Excelの最終行までの取得方法
Microsoft ASP
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
配列数式の解除
-
VBA 1次元配列を2次元に追加する
-
subの配列引数をoptionalで使う...
-
ListViewで、非表示列って作れ...
-
Excel-VBAの配列「Public Const...
-
2つ以上の変数を比較して最大数...
-
delphiで配列を、コピーするには。
-
2次元動的配列の第一引数のみを...
-
《エクセル2000》A列・B列の商...
-
VB6 配列を初期化したい
-
配列変数の添字が範囲外ですと...
-
[Excel2000_VBA] 型が一致しま...
-
Dim は何の略ですか?
-
VLOOKUP関数で、一番下...
-
for each の現在の配列ポインタ...
-
Access 2007 複数のテキストボ...
-
fortranのwrite文について
-
配列を任意の数値で埋める方法
-
エクセルで最小値から0を除く方法
-
VBのコントロール配列を二次元...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
VBA 1次元配列を2次元に追加する
-
特定のセル範囲で4文字以上入力...
-
for each の現在の配列ポインタ...
-
VBのFunctionで、配列を引数...
-
subの配列引数をoptionalで使う...
-
VB6 配列を初期化したい
-
ListViewで、非表示列って作れ...
-
配列変数の添字が範囲外ですと...
-
Excel-VBAの配列「Public Const...
-
2次元動的配列の第一引数のみを...
-
VBAで近似曲線の係数取得
-
VLOOKUP関数で、一番下...
-
配列に同じ値を入れる方法
-
エクセルで最小値から0を除く方法
-
linest関数に配列を渡す
-
配列を任意の数値で埋める方法
-
Dim は何の略ですか?
-
配列内の内容を全て表示する方法
おすすめ情報