度々すいません。 csvファイルを読んでいると段々遅くなっていき、メモリが足りないと言われました。
N88の知識しか基本持っておらず、何故メモリを消費しているのか、「?」です。
どなたか知恵をお借りできませんでょうか?
1、sakuin.csv1段目にファイル名が載っているのでまず読込ます
2、それ以下の段には数値が書いてあり、変数zmと同じものが無いかしらべ、あればその上部に位置するファイル名を変数fnameに代入します。
3、別ファイルfnameを開き、配列変数daに15個一組となっている数値をファイルから取込ます。
4、3番目の数値が変数zと同じであれば、配列変数daの一部を合成して表示
5、見当たらなければファイルを閉じる
と言う動きのつもりで作ってます。
コード:
Open "C:sakuin.csv" For Input As #1
for x=1 to 47
Input #1,name[x]
next
while Eof(1)=0
for x=1 to 47
Input #1,data
if zm=data then
fname="C:"+name[x]
Open fname For Input As #2
while Eof(2)=0
for q=1 to 15
Input #2,data
da[q]=data
next
if da[3]=z then
jusho=da[4]+da[5]+da[6] msgbox 0,jusho,""
ed=1
Exit While
end if
wend
close #2
Exit For
endif
next
if ed=1 then Exit while
wend
close #1