I have this large Excel table with 10 000 rows and 300 columns. I have this VB6 program that needs some of the data to preform some calcultations. But I dont whant a user to get access to the raw data.
My solution was to create a large .dat file to go with the program. Since the user dont know what is included in the .dat file it is hard to access the raw data. When my program access the data it only pick 100 records given some inital row and col. The problem is that my code cant handle this. It just gives me a compile error: "static data cant exceed 64 kb" when I try to write this .dat file. Does anyone know how to do this in another way or can I change my code in some way?
Code:Public Type tStart start(10000, 300) As Single End Type 'Write to file: #If writeFile Then Static PStart As tStart Open OutputFolder & FileStart For Random As #1 Len = Len(PStart) For r = 0 To 300 For t = 1 To 10000 PStart.start(t,r) = LargeArray(t,r) Next t Next r Put #1, , PStart Close #1 #End If 'Read file Static PStart As tStart, result() As Variant ReDim result(0, 100) Open OutputFolder & FileStart For Random As #1 Len = Len(PStart) r=1 Get #1, , PStart Close #1 For t = tStart To tStart +100 result(t-tStart+1,0) = PStart.start(t,r) Next t




Reply With Quote