| 分類:[VB.NET/VB2005]
バイナリデータを読み込み、2次元配列の変数に格納する処理を実現させたいのですが、その実現方法が分かりません。 VB6.0では上記内容はGETステートメントで実現できていました。
<VB6.0での実現例>--------------------------------------------- Dim fp As Integer Dim MyArray(4,9) As Integer
fp = FreeFile Open "C:\DATA\TEST.bin" For Binary Access Read Lock Write As fp Get #fp, 1, MyArray Close fp ----------------------------------------------------------------
VB.NETでは、GETステートメントに相当するのがFileGet関数となりましたが検討した内容を下記に示します。
<VB.NETでの検討例>--------------------------------------------- Dim MyArray(4, 9) As Integer Dim FileNum As Integer = FileSystem.FreeFile
FileSystem.FileOpen(FileNum, "C:\DATA\TEST.bin", OpenMode.Binary, , , 118) FileSystem.FileGet(FileNum, MyArray, 1, true) FileSystem.FileClose() ----------------------------------------------------------------
上記内容で実行するが、データが配列MyArrayにセットされません。 また、下記警告も表示されています(コンパイルが通った為、これはとりえあず無視しましたが・・これがまずい?)。 『'ByRef' パラメータ 'Value' の値を、一致する引数に戻してコピーする際の、'System.Array' から 'Integer の 2 次元配列' への暗黙的な変換です。』
ご教授よろしくお願いします。 |