| |
▼いも9656 さん：
こんにちは。
>読み込んだデータは配列に入れて、セル(表)に一気に代入する方法とは違い、
>csvﾌｧｲﾙの所定箇所（ex:3番目と21番目のみ）を構造体にセットする方法を教えてください。
どのようなCSVデータですか？
とくに、文字列データはダブルクォート("")で囲まれているのですか？
文字列でもダブルクォートは付いていない裸のデータですか？
擬似コードですが、
Type 構造体
a As String
b As Double
End Type
と宣言しておいて
Dim REC() As 構造体
'行数（レコード数)取得 （）
Redim REC(1 to 行数)
Do Until EOF(io) '変数io はI/O ファイルハンドル
i = i + 1
'3番目と21番目のみを構造体にセットする
Input #io, dm, dm, REC(i).a, dm, dm, ........... , REC(i).b, ......
Loop
のような方法が考えられます。
Input #ステートメントで読み込むので、ちょっと時間がかかりますが。
ダブルクォートなしの裸のデータの羅列でしたら、
一気に配列に格納しておいて、必要な列だけ構造体？配列に転記し直しても
いいでしょう。
|
|
kanabun
- 09/9/22(火) 18:56 -
