# メモリの使用量を減らしたい

**URL:** <https://developer.jra-van.jp/t/topic/161>\
**Category:** 過去ログ\
**Tags:** programming, jv-link, document\
**Created:** [2025 年 5 月 10 日午前 5:12 UTC](https://developer.jra-van.jp/t/topic/161 "2025-05-10T05:12:01Z")\
**Posts on this page:** 1\
**Page:** 1

<div class="post-metadata">

**Author:** ![JRA-VAN\_Staff](https://yyz1.discourse-cdn.com/flex029/user_avatar/developer.jra-van.jp/jra-van_staff/32/48_2.png) [@JRA-VAN\_Staff](https://developer.jra-van.jp/u/JRA-VAN_Staff)\
**Post date:** [2025 年 5 月 10 日午前 5:12 UTC](https://developer.jra-van.jp/t/topic/161/1 "2025-05-10T05:12:01Z")

</div>

| | タイトル | ： **メモリの使用量を減らしたい** |
| --- | --- | --- |
| — | — | |
| 記事No | ： **5097** | |
| 投稿日 | ： 2023/08/27(Sun) 00:22 | |
| 投稿者 | ： **平山** | |

Win11 VSStudio Community 2022 (64 ビット) で  
x86 CPU 32Bit VB で使用しています。  
ビルドして動作させタスクマネージャで確認すると予想以上にメモリを使用し  
ています。プログラムのコツがありましたら教えて下さい。

Do

ReDim bytData(BuffSize) 'メモリの解放と新規確保  
iReturnCode = Jvlink.JVGets(strB, BuffSize, BuffName)

If 0 \< iReturnCode Then '正常に全データを読  
み込んだ

’ JVGetsでセットされたobject "strB"をバ  
イト配列に変換  
bytData = CType(strB, Byte())

以下 読み込んだデータを処理

iReturnCode =0 を確認して終了

loop

正常に動作しています。5分間隔で速報データを読み込み 発走時刻 天候 馬  
場状態 全レースオッズの取得してHDDに書き込みを一日中しています。  
取得したデータは全R発走５分前までは上書きです。発走５分前を過ぎたデータ  
は破棄です。年月日競馬場コードR番号をKeyにして全RをDim G取得dataDic As D  
ictionary(Of String, String())に登録しています。  
５分に１回だけ速報データ取得、登録、HDDに出力で 殆どが５分を待つだけに  
費やしているのでタスクマネージャのCPU使用率は0%です。しかしメモリ使用率  
は52MByte～300MByteまでを表示します。VBでメモリ使用率を減らすコツがあり  
ましたら教えて下さい。|

| | タイトル | ： **Re: メモリの使用量を減らしたい** |
| --- | --- | --- |
| — | — | |
| 記事No | ： **5098** | |
| 投稿日 | ： 2023/08/27(Sun) 09:40 | |
| 投稿者 | ： **平山** | |

お騒がせしました  
自己解決です。  
JVGetの周辺をJRA-VAN Data lab SDK のサンプルプログラム VB2019と同じ内  
容に書き換えました。5分に１回の取得を終日おこないます。取得完了するとjVL  
ink=nothing として５分経過後の取得直前にJVLink初期化、取得を行います。結  
果タスクマネージャ表示は6.7MByte と大きく減少しました。これで納得です。|