type data
a as long
b as long
end type
Open App.Path & "\data.dat" For Random As #1 Len = Len(data)
一般用的方法是回圈讀取，這樣速度太慢了，怎么能區塊讀取呢
比如讀取指標為2-20的資料保存到一個陣列中
uj5u.com熱心網友回復：
你要“區塊”讀取，應該用Binary模式操作檔案才行吧！如果要想讀寫“結構體陣列”的“中間一段元素”，
1維陣列比較好辦，可以把這個對應的“資料區”系結到一個Byte陣列上，并設定相應的位元組大小，
然后就可以直接通過位元組陣列來“讀一片資料”了。
多維的話就比較麻煩了，因為VB6的多維陣列，與“平常認為”的存盤順序不一樣。
uj5u.com熱心網友回復：
一口氣把檔案直接讀入記憶體的例子，然后你再慢慢處理。
Private Sub Command2_Click()
Dim aryInput() As Byte
Debug.Print Now(), "開始"
ReDim aryInput(FileLen("B:\1.txt") ) '按照檔案長度設定資料讀取記憶體大小
Open "B:\1.txt" For Binary As #1
Get #1, , aryInput
Close #1
Debug.Print Now(), "輸入檔案讀取完畢"
End Sub
uj5u.com熱心網友回復：
就像樓上說的，用Binary模式來打開檔案，而且Get陳述句可以定位到你想要讀的那塊檔案位置，然后讀一個指定陣列大小的資料上來。uj5u.com熱心網友回復：
檔案很大沒辦法讀取到陣列中
uj5u.com熱心網友回復：
分開讀 Get #1, XXXX , aryInput 指定一下讀寫位置就好了
uj5u.com熱心網友回復：
這樣讀取的都是BYTE吧，要轉TYPE格式的話就比較麻煩了不
uj5u.com熱心網友回復：
不麻煩。如果你要轉成字串，用 StrConv 函式就可以了。
uj5u.com熱心網友回復：
我說的方法就“不麻煩”，你“讀到位元組陣列”內時，它實際同時就已經放入你的“結構體陣列”對應的元素中了。
并且，要“寫入檔案”也是一樣。
uj5u.com熱心網友回復：
你這個可以舉例個代碼嗎？帶TYPE的呢？謝謝
uj5u.com熱心網友回復：
Private Declare Function GetTickCount Lib "kernel32" () As LongPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GzGdType
GD(3) As Byte
Dx(3) As Byte
End Type
Private Type TerrInfo
GD As Byte
index As Byte
GDtype As GzGdType
G As Byte
G1 As Byte
G2 As Byte
G3 As Byte
G4 As Byte
End Type
Private Sub Command1_Click()
Open "e:\Terr.map" For Random As #15 Len = 15
Open "e:\Terr.map" For Binary As #1 Len = 15
Dim tempdata(300) As TerrInfo
c = GetTickCount()
ReDim TempMapData(300, 300) As TerrInfo
For i = 0 To 300
For j = 0 To 300
Get #15, 2 + (i) + (j) * 5000, TempMapData(i, j)
Next
Next
d = GetTickCount()
c1 = d - c
c = GetTickCount()
For j = 0 To 300
Get #1, 2 + (j) * 5000, tempdata()
Next j
d = GetTickCount()
c2 = d - c
MsgBox ("分個讀取：" & c1 & "區塊讀取：" & c2)
Close #15
Close #1
End Sub
先不說讀取是否正確，反而變慢了呢
uj5u.com熱心網友回復：
你是說后面的300次“區塊讀取”，比前面的90000次“單個讀取”還慢？感覺不會這樣吧。
uj5u.com熱心網友回復：
其實就是懶，我懶得把代碼寫完整，你也懶得改改代碼試一下，好人做到底，按你的type改一下代碼。
Option Explicit
Private Type TyData
a As Long
b As Long
End Type
Private Sub Command1_Click()
Dim aryInput() As TyData
Debug.Print Now(), "開始"
ReDim aryInput(FileLen("B:\1.dat") / 8 - 1) '因為tydata的長度為8個位元組
Open "B:\1.dat" For Binary As #1
Get #1, , aryInput
Close #1
Debug.Print Now(), "輸入檔案讀取完畢"
End Sub
用來測驗的資料如下，懶得多造，就造16個位元組，一次性讀進來。實際使用這段代碼的時候自己搞清楚資料結構，算清楚讀取的起止偏移，自己算清楚陣列的大小。
不要怕大，100兆的檔案也可以這么讀，超過讀取時間超過10秒算我輸。讀進來你的程式崩潰我請吃飯
資料在UE里面編輯如下。自己搞清楚資料的格式哈。
執行后效果如下
uj5u.com熱心網友回復：
資料弄到100兆
用上面的代碼讀入
一秒不到，而且是你要的資料結構。
滿足了么？
結貼吧。
uj5u.com熱心網友回復：
其實樓主不是想全檔案讀取，是要讀其中的一段。試試：
Dim bytData(20-2) As Byte
Open App.Path & "\data.dat" For Binary As #1
Get #1, 2, bytData
Close #1
uj5u.com熱心網友回復：
他的分段讀取無非就是覺得一條一潭訓圈讀太慢，一口氣讀的話又怕自己無法把控。我給的代碼也就一簡單用例，告訴他程式能做到什么，讓他放開手腳干。然后要注意我在帖子中的提示：
“實際使用這段代碼的時候自己搞清楚資料結構，算清楚讀取的起止偏移，自己算清楚陣列的大小。”
uj5u.com熱心網友回復：
比如讀取指標為2-20的資料保存到一個陣列中？也可以把一個結構直接保存為一個檔案。反過來如果要從檔案中把相應的結構再還原成陣列那也應該是可以的。
假如一個檔案中保存了5個陣列的資料，每個陣列占用多少位元組，這個是要精確記錄好的。然后還原陣列。
假如3-20才是一個陣列的完整內容，你少了一個位元組就沒法還原。
這就像是一個你看不懂的WAV錄音檔案一樣，其實他可能是由很多個小小的片斷聲音位元組組成的。EXE也是有他自個的PE結構.
qq:2776478814,可以一起研究
uj5u.com熱心網友回復：
給一個完整的范例（包含DEMO.DAT檔案生成）從 Istart 位元組開始 一次讀入 Lrec 個記錄(可以是任意型別）的資料到 DatBuf
Option Explicit
Private Type DataType
A As Long
B As Long
End Type
Dim FileName$ '檔案名
Dim Istart As Long '起始位元組
Dim Lrec As Long '需讀取的記錄數
Dim DatBuf() As DataType '資料存放陣列
Private Sub Command1_Click()
'讀取資料檔案
Dim L&
ReDim DatBuf(Lrec - 1)
L = Len(DatBuf(0)) * Lrec
If FileLen(FileName) < L + Istart - 1 Then
MsgBox "檔案長度太小！"
Else
Open FileName For Binary As #1
Get #1, Istart, DatBuf
Close #1
'
MsgBox "檔案讀取成功，從" & Istart & "位元組起讀取了" & L & "位元組。"
End If
End Sub
Private Sub Command2_Click()
' 生成DEMO資料
ReDim DatBuf(Lrec - 1)
Dim i&, H$
For i = 1 To Lrec
DatBuf(i - 1).A = Int(Rnd * 10000)
DatBuf(i - 1).B = Int(Rnd * 10000)
Next i
Open FileName For Binary As #1
H = "This is a DEMO !"
Put #1, , H
Put #1, Istart, DatBuf
Close #1
End Sub
Private Sub Form_Load()
FileName = "demo.dat"
Istart = 17 '檔案位元組從1起算
Lrec = 32767
End Sub
uj5u.com熱心網友回復：
第22行一次都入所有資料
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/43646.html
標籤：VB基礎類
上一篇：在ifix中 添加DTpicker 控制元件 ，用來顯示時間 運行提示 microsoft access driver 引數不足， 期待是1