> 私が昔VB、Cを少しかじった程度かつ、電子機器製造の零細で誰も聞ける人間が居ないので助かります・・(T_T)
わっちはこういうの弱くてですね
とりあえずサンプルコードを載せておきますよ
Private Sub Form_Load()
Const FilePath = "c:\test.bin"
Dim i As Long
Dim k As Long
Dim Rows As Long
Dim Ary() As Double
Dim Tst() As Double
'配列の確保
Rows = 20: ReDim Ary(1 To Rows, 1 To 500)
'値の代入
For i = LBound(Ary, 1) To UBound(Ary, 1): For k = LBound(Ary, 2) To UBound(Ary, 2)
Ary(i, k) = Rnd
Next: Next
'書き込み
i = FreeFile(): Open FilePath For Binary Access Write Lock Write As i
Put #i, 1, Ary
Close i
'テスト
ReDim Tst(1 To Rows, 1 To 500)
i = FreeFile(): Open FilePath For Binary Access Read Lock Write As i
Get #i, 1, Tst
Close i
For i = LBound(Ary, 1) To UBound(Ary, 1): For k = LBound(Ary, 2) To UBound(Ary, 2)
If Ary(i, k) <> Tst(i, k) Then Debug.Print "err:"; i, k
Next: Next
End Sub