[VBA ] 請教VBA dictionary 與 讀取大資料的問題
1 小弟要讀取一個大約600MB的 txt file 但是會出現out of memory 如何改善?
小弟電腦配備如下 win7 64 bit 16G ram
code 如下
Private Function ReadFile1(sFile As String) As Byte()
Dim nFile As Integer
nFile = FreeFile
Open sFile For Input Access Read As #nFile
If LOF(nFile) > 0 Then
ReadFile1 = InputB(LOF(nFile), nFile)
End If
Close #nFile
End Function
2 VB的dictionary 如何 加入新的type到item
例如 在dictionary的item加入dictionary 語法如下
ditionary.add "string1",new dictionary
ditionary.add "string2",new dictionary
string1 和 string2的item是不同的object
但是type如何加到dictionary
小弟試過code如下
Type A
B as integer
C as string
End type
dim A1 as A
A1.B=1
dictionary.add "string1",A1
A1.B=2
dictionary.add "string2",A1
但是此時 string1 & string2 的 A1.B都是相同的
如何令string1的A1.B=1 & string2的A1.B=2
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.173.162.193
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1432738045.A.790.html
→
05/28 09:46, , 1F
05/28 09:46, 1F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
