MyTetra Share
Делитесь знаниями!
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - VBA / Excel / Access / Word - File Path
Запись: xintrea/mytetra_db_adgaver_new/master/base/1512990093i6vt9x1emi/text.html на raw.githubusercontent.com

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.59
Яндекс индекс цитирования