write 1-dimensional array of integers to text file
 

Having some trouble with what seems to be a simple problem.
I have to write a 1-dimensional array of integer numbers to a text file.
The output has to be in this format:

1247
8541
329125
14

Have tried all the possible combinations of write and print, but can't get
the above result.
I have no problem doing this with a 2-dimensional array.
Thanks for any advice.


RBS

write 1-dimensional array of integers to text file
 

RBS

This worked

Sub WriteInt()

Dim MyArr As Variant
Dim FName As String
Dim Fnum As Long
Dim i As Long

FName = "c:\dick\ng\oct\integers.txt"
Fnum = FreeFile

MyArr = Array(1247, 8541, 329125, 14)

Open FName For Output As Fnum

For i = LBound(MyArr) To UBound(MyArr)
Print #Fnum, MyArr(i)
Next i

Close Fnum

End Sub

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"RB Smissaert" wrote in message
...
Having some trouble with what seems to be a simple problem.
I have to write a 1-dimensional array of integer numbers to a text file.
The output has to be in this format:

1247
8541
329125
14

Have tried all the possible combinations of write and print, but can't get
the above result.
I have no problem doing this with a 2-dimensional array.
Thanks for any advice.


RBS

write 1-dimensional array of integers to text file
 

Thanks.
My problem was that I hadn't realised that IsMissing for function arguments
doesn't work when the argument is an integer.

RBS


"Dick Kusleika" wrote in message
...
RBS

This worked

Sub WriteInt()

Dim MyArr As Variant
Dim FName As String
Dim Fnum As Long
Dim i As Long

FName = "c:\dick\ng\oct\integers.txt"
Fnum = FreeFile

MyArr = Array(1247, 8541, 329125, 14)

Open FName For Output As Fnum

For i = LBound(MyArr) To UBound(MyArr)
Print #Fnum, MyArr(i)
Next i

Close Fnum

End Sub

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"RB Smissaert" wrote in message
...
Having some trouble with what seems to be a simple problem.
I have to write a 1-dimensional array of integer numbers to a text file.
The output has to be in this format:

1247
8541
329125
14

Have tried all the possible combinations of write and print, but can't
get
the above result.
I have no problem doing this with a 2-dimensional array.
Thanks for any advice.


RBS

write 1-dimensional array of integers to text file
 

Technical nitpicking...

The IsMissing function works just fine irrespective of the data type of
the arguments. It's just that an argument of type Integer is never
'missing.'

--
Regards,

Tushar Mehta, MS MVP -- Excel
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article ,
says...
Thanks.
My problem was that I hadn't realised that IsMissing for function arguments
doesn't work when the argument is an integer.

RBS


"Dick Kusleika" wrote in message
...
RBS

This worked

Sub WriteInt()

Dim MyArr As Variant
Dim FName As String
Dim Fnum As Long
Dim i As Long

FName = "c:\dick\ng\oct\integers.txt"
Fnum = FreeFile

MyArr = Array(1247, 8541, 329125, 14)

Open FName For Output As Fnum

For i = LBound(MyArr) To UBound(MyArr)
Print #Fnum, MyArr(i)
Next i

Close Fnum

End Sub

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"RB Smissaert" wrote in message
...
Having some trouble with what seems to be a simple problem.
I have to write a 1-dimensional array of integer numbers to a text file.
The output has to be in this format:

1247
8541
329125
14

Have tried all the possible combinations of write and print, but can't
get
the above result.
I have no problem doing this with a 2-dimensional array.
Thanks for any advice.


RBS