Csv *Resolved*

[GingerNut]

Hey guys, need a little help here. I'm writing a small prog that reads a text file and outputs the necessary data to a csv file. I got it to sort of work:

Dim NumberofTemps As Integer
Dim TempDate As String
Dim Temperature As Integer
Dim TempNumber As Integer
Open cdlFiles.FileName For Input As #1
Open App.Path + "\temp.csv" For Output As #2
Input #1, NumberofTemps
For TempNumber = 1 To NumberofTemps
    Input #1, TempDate, Temperature
    Write #2, TempNumber, Temperature
Next TempNumber
Close 1
Close 2

Each text file can have up to 31 lines like the following:
01/08/02 HighTemp = ,19
It then outputs to the csv file:
1,19

But I can only get it to do the first line.

[agmorgan]

can you post a sample file?
it doesnt look that hard to do

is NumberofTemps greater than 1?

[JordanChris]

Just after:
Input #1, NumberofTemps

Put a:
MsgBox "Loops: " & NumberofTemps

and tell us what it says.

It could well be that you need to manipulate NumberOfTemps (make sure its a valid integer value) between reading it and using it in your loop.

[GingerNut]

It says "Loops: 1"

[GingerNut]

It's ok, I got it sorted. I changed to this:

Dim NumberofTemps As Integer
Dim TempDate As String
Dim Temperature As Integer
Dim TempNumber As Integer
Open cdlFiles.FileName For Input As #1
Open App.Path + "\temp.csv" For Output As #2
TempNumber = 1
Do Until EOF(1)
    Input #1, TempDate, Temperature
    Write #2, TempNumber, Temperature
    TempNumber = TempNumber + 1
Loop
Close 1
Close 2