Need help with Visual Basic 6

Reply #3

hypersoniq — Sun, 13 May 2007 16:13:29 GMT

Thanks for the input!

What I ended up doing was hard-coding the number of draws and the resulting array loading code is...

Dim intFileNumber As Integer

Dim B1 As Integer

Dim B2 As Integer

Dim B3 As Integer

intReadFileNumber = FreeFile

Open C:\P3.csv For Input As intReadFileNumber

Dim intLoadArray As Integer

For intLoadArray = 1 To 10382 Step 1

Input #intReadFileNumber, B1

Input #intReadFileNumber, B2

Input #intReadFileNumber, B3

intDrawHistory(intLoadArray, 1

Reply #2

paurths — Sun, 13 May 2007 10:51:20 GMT

Hi hypersoniq,

first, you should create a multidimensional array as should be done,

meaning that the second dimension is the one that is flexible (i don't know the correct word in English, sorry...)

dim intDrawHistory () as Integer

Then you can redim it, using preserve, to the correct size

Redim intDrawHistory(3,AnyVariableHere) '--> 3 represents each digit of the number

Here is an example, where a textfile is saved as example.csv at c:\example.csv

This is what is in the fi... [ More ]

Reply #1

phileight — Sun, 13 May 2007 00:31:50 GMT

Hypersonic

First, I don't program in Vbasic. I'm stuck in the past with GWBasic.

I use basic to load data all the time, in a manner similiar to what you are doing. So a Question ? You outer loop loads the draw #, Why do you not use an inner loop to load the draw data? see below

for y=1 to 3 step 1 : rem i like to keep my variables simple

get data :rem with gwbasic it would be input #x,z with x being the file number(previously defined with an open statement) and z would be... [ More ]

Need help with Visual Basic 6

hypersoniq — Sat, 12 May 2007 18:14:06 GMT

I am almost done automating a system I am working on, I need help loading a CSV file into a 2 dimensional array... here is the code I have so far...

Dim intDrawHistory(1 To 10382, 1 To 3) As Integer

Dim intLoadArray As Integer

'Open statement Here

For intLoadArray = 1 To 10382 Step 1

'load 1stnumber here =intDrawHistory (intLoadArray,1)

'load second number here =intDrawHistory (intLoadArray,2)

'load third number here =intDrawHistory (intLoadArray,3)

Next intLoadArray

T... [ More ]