配列を多次元配列に変換する
配列データを多次元配列に変換するための関数。
多次元配列は途中で列数を増やすことができないため、事前に設定された列数より取り込む要素が多い場合は処理を終了するようにした。
使用例
Sub Main() Dim lineTxt As Variant lineTxt = ImportTxt("C:\bin\test.txt") Const txtCol = 3 '多次元配列の最大列数 Dim multiTxt As Variant multiTxt = MultiDimention(lineTxt, txtCol - 1, ",") End Sub
先日書いたテキストファイルを1行ずつ配列に取り込む関数で取り込んだ"lineTxt"を多次元配列に変換する流れ。前述の通り多次元配列の最大列数はこのMainで記載している。
必要な最大列数を調べる関数があればもっと汎用的になるか・・・。