VB6 「Line Input」でのリークについて

質問

VB6での「Line Input」命令使用時のメモリリークについて教えて下さい。
1分毎に3600行のCSVファイルを読み込むプログラムを作成しています。
　（CSVファイルは1行500文字程度）

以下の【パターン１】は作成したプログラムの1部ですが、
（１）を3600回ループ時にパフォーマンスモニタでの「Private Bytes」が増加してしまいます。
　　（1ループ毎に増加せず、数十回ループする毎に増加します。）

試しに【パターン２】を作成し、CSVファイルはオープンのみ行い、
読み込みは行わずに、500文字の文字列が入った変数をコピーした場合は、
「Private Bytes」は増加しません。

基本的に違いは（１）と（２）の箇所だけなのですが、
「Line Input」命令の使用方法などで間違っている箇所があるのでしょうか？
ご存知の方、教えて下さい。お願いします。

【パターン１】
Private Sub read_Timer()

Dim i As Long
Dim CsvDataBuf(3600) As String 'CSV読込み変数
Dim FP As Integer 'ファイル番号

（省略）
：
FP = FreeFile
Open "C:\test.csv" For Input As #FP
i = 0
Do While Not EOF(FP) And i <= (3600 - 1)
Line Input #FP, CsvDataBuf(i) 　　　　←（１）
i = i + 1
Loop
Close #FP
：
（省略）

【パターン２】
Private Sub read_Timer()

Dim i As Long
Dim CsvDataBuf(3600) As String 'CSV読込み変数
Dim tempBuf As String
Dim FP As Integer 'ファイル番号

（省略）
：
tempBuf = "～500文字の文字列～"
FP = FreeFile
Open "C:\test.csv" For Input As #FP
i = 0
Do While Not EOF(FP) And i <= (3600 - 1)
CsvDataBuf(i) = tempBuf 　　　　　　←（２）
i = i + 1
Loop
Close #FP
：
（省略）

回答No.1

TooManyBugs · ベストアンサー

ベーシックでは文字列変数は実際にその場所に文字列があるのではなく、文字列へのポインタが有るのみです。

パターン１では毎回文字列を読み込むので少なくとも文字列長×３６００のメモリを必要とします。
パターン２では実際の文字列"～500文字の文字列～"へのポインタが3600個出来るだけですから幾ら読み込んでもメモリの使用料は増加しません。

お礼

早速の回答ありがとうございます。

【パターン２】ではポインタができるだけなので、メモリの使用量は増えないのですね。
　　　　　　　知りませんでした。
【パターン１】ですが、3600回のループ中にメモリ使用量が増えたとしても、
　　　　　　　read_Timer()終了時（次回read_Timer()開始時）にはメモリ使用量が元の数値に
　　　　　　　戻っても良い気がするのですが、間違っていますでしょうか？

　　　　　　　現在はファイルを読み込んだ変数（CsvDataBuf(3600)）は何も行わずに
　　　　　　　read_Timer()を終了させていますが、
　　　　　　　1～3分ごとにメモリ使用量が4096バイトずつ増加します。

　　　　　　　又、「Line Input」命令だけでなく、他のプログラムの処理に問題があり、
　　　　　　　結果的に「Line Input」命令の箇所でメモリ使用量が増加している
　　　　　　　可能性もあるので調査してみます。