2次元配列の宣言 (ID:143330)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ジャグ配列のままだと、何か都合が悪いのでしょうか? 二次元配列だと、行数や列数を変化させる場合に手間がかかりそうですし、 特に理由がなければ、今のコードのままでも問題ないように思います。 格納済みの要素にアクセスするなら、 「boxDimArray(rowIndex, colIndex)」が 「jaggedArray(rowIndex)(colIndex)」 という表記に変わるだけですし、行/列番号を指定して扱う分には大差はないかと。 > Function関数など何かございますでしょうか。 COM Interop を伴うのでお奨めはしませんが(個人的には非推奨)、一応、 ADODB.Recordset の GetRows メソッドが二次元配列を返すようになっています。 > CSVファイルから読み込むものなんですけど。 二次元配列に格納するには、csvの行数／列数をあらかじめ調べねばならないため、 いったん DataTable やジャグ配列に蓄えて、あとで変換する実装が多いかと思います。 (列数は事前に分かることもあるが、行数は可変にせざるを得ない) 列数があらかじめ分かっている場合は、行と列の順序を Dim box(列数, 行数) As String の 順にしておき、行数に応じて ReDim Preserve ステートメントで調整する実装もありますが、 それなら、ジャグ配列から変換した方が楽でしょうね。 > Dim strArray(,) As String どうしても二次元配列が必要ということであれば…。 既に完成しているジャグ配列から、インデックスの最大値(あるいは要素数)を調べる方法は分かりますか? それができれば、そこから二次元配列に並び替えるのは容易ですよね。 インデックスの最大値は、UBound 関数または GetUpperBound メソッドで調べられます。 要素数なら、Length プロパティです。 '行番号/列番号の最大値を調べる。 'CSV の列数が事前に分かっているなら、colMaxIndex の方は固定値でも OK。 Dim rowMaxIndex As Integer = jaggedArray.GetUpperBound(0) Dim colMaxIndex As Integer = Aggregate row In jaggedArray Into Max(row.GetUpperBound(0)) '二次元配列として、必要な行数/列数を確保する Dim boxDimArray(rowMaxIndex, colMaxIndex) As String 'ジャグ配列から二次元配列に転記する For rowIndex As Integer = 0 To rowMaxIndex For colIndex As Integer = 0 To colMaxIndex boxDimArray(rowIndex, colIndex) = jaggedArray(rowIndex)(colIndex) Next Next '========================================================= あるいは、ジャグ配列にしてから変換するのではなく、 Split や TextFieldParser で切り出すたびに、 二次元配列に格納していっても良いかと。 'csvファイルを、行ごとに区切った1次元配列にする Dim rows() As String = System.IO.File.ReadAllLines( "C:\temp\test.csv", System.Text.Encoding.GetEncoding("Shift_JIS")) '空行を読み捨てる。 rows = rows.Where(Function(row) Not String.IsNullOrWhiteSpace(row)).ToArray() '行数を調べる Dim rowMaxIndex As Integer = rows.GetUpperBound(0) '先頭行の「,」の数から、列数を調べる Dim cols() As String = rows.First().Split(",") Dim colMaxIndex As Integer = cols.GetUpperBound(0) '行数／列数分の二次元配列を確保する Dim strArray(rowMaxIndex, colMaxIndex) As String '確保した二次元配列に、csvデータを格納していく For rowIndex As Integer = 0 To rowMaxIndex cols = rows(rowIndex).Split(",") For colIndex As Integer = 0 To colMaxIndex strArray(rowIndex, colIndex) = cols(colIndex) Next Next