How do I Write the contents of a file to an array?

[devtim]

I wish to have a .txt file containing string data and read that data one piece at a time to an array, (then perhaps edit the array but this bit I know how to do) then write the array back to the file. I dont mind how that data is kept in the .txt file.

If anyone could show me the code on how to do this, I'd be very grateful.

Thanks.

[Kishore A R]

Hai,

Here is the code


option Explicit
private astrColors() as string

private Sub Command1_Click()
Dim iArrayCount as Integer
Dim j as Integer

' edit the next line to open your file
Open "D:\colors.txt" for input as #1

' read line by line to array
Do While Not EOF(1)
ReDim Preserve astrColors(iArrayCount)
Line input #1, astrColors(iArrayCount)
iArrayCount = iArrayCount + 1
Loop

' close the file
Close #1

' just print the element in debug window
for j = 0 to UBound(astrColors)
Debug.print astrColors(j)
next j

End Sub

private Sub Command2_Click()
Dim i as Integer
' edit the next line to open your file
Open "D:\colors.txt" for Output as #1

' loop through the array and write to file
for i = 0 to UBound(astrColors)
print #1, astrColors(i)
next i

' close the file
Close #1
End Sub




Place two command buttons in a form and paste the above code to the code window. This code shows how to read data from a text file in which each item is in a separate line. So, make sure in your file each item is separated by a line feed.

All the best.

Kishore.