MyTetra Share
Делитесь знаниями!
Binary File
16.03.2019
23:43
Раздел: !Закладки - VBA - VBA / Excel / Access / Word - File Path

create temporary binary file test.bin

Option Explicit


Private Sub CreateBinaryFile()

Dim sq As Double, i

Open Environ("temp") + "\test.bin" For Binary As #1

For i = 1 To 100

sq = Sqr(i)

Put #1, , sq

Next i

Close #1

End Sub


open file, show first three entries in immediate window

 
Private Sub LoadBinaryFile()
  Dim dbl As Double, i
  Open Environ("temp") + "\test.bin" For Binary As #1
  Seek #1, 8 * 14 + 1
  For i = 1 To 3
    Get #1, , dbl
    Debug.Print dbl
  Next i
  Close
End Sub

  
Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования