ｃｓｖファイルを検索してるとメモリが足りないと・・

返信する


答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
BBCode: ON
[img]: ON
[url]: ON
スマイリー: OFF
トピックのレビュー
   

展開ビュー トピックのレビュー: ｃｓｖファイルを検索してるとメモリが足りないと・・

by kobo » 2008年8月31日(日) 23:05

お助けありがとうございます。
ＡＢ４.24　を使用して　ＸＰ　ＳＰ３上で動かしています。
表示は１度だけです。該当するものが１つしかないのが解っていますので
それがあるかないかを探す作業です。
ファイル名を確定後に開くファイルが３００ＫＢほどあり、小さいファイルで試すと問題なくいくのですが３００ＫＢになるとエラーを表示します。
メモリリークをしているのかもしれないとの事でＩＮＰＵＴで大きなデータから何かを検索するのは向かないのかもしれませんね。
以前に回答されていたように、一度ファイルを取り込んでから調査しようとしておりますが、こちらも取り込んだデータを分解していくのに速度が上がらずで思考中です。

宣言部も含め投稿します。

コード: 全て選択

dim data As String
dim name[47] As String
dim da[15] As String
dim q As Long
dim x As Long
dim z As String
dim zm As String
dim ed As Long
dim fname As String

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

by konisi » 2008年8月31日(日) 10:11

宣言部も書いてください。da配列がString型なのかBytePtr型なのか判断に苦しみます。
使っているのはAB3ですか？AB4でも試してみてください。
Input#関数内ではちょっとした手抜き工事がされているので、そこでメモリリークしているのかもしれません。

それとトレースしてみたのですが、一度表示したらループせずに終了しているような気が。

ｃｓｖファイルを検索してるとメモリが足りないと・・

by kobo » 2008年8月31日(日) 01:19

度々すいません。　ｃｓｖファイルを読んでいると段々遅くなっていき、メモリが足りないと言われました。
Ｎ８８の知識しか基本持っておらず、何故メモリを消費しているのか、「？」です。
どなたか知恵をお借りできませんでょうか？
１、sakuin.csv1段目にファイル名が載っているのでまず読込ます
２、それ以下の段には数値が書いてあり、変数zmと同じものが無いかしらべ、あればその上部に位置するファイル名を変数fnameに代入します。
３、別ファイルfnameを開き、配列変数daに15個一組となっている数値をファイルから取込ます。
４、3番目の数値が変数ｚと同じであれば、配列変数daの一部を合成して表示
５、見当たらなければファイルを閉じる
と言う動きのつもりで作ってます。

コード: 全て選択

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

ページトップ