RoofRabbit Regular

Joined: 06 Jul 2005 Posts: 95 Location: Lenoir, NC USA
|
Posted: Jul 6th, 2005 11:10 PM Post subject: |
|
|
This would save and load the array, you can do as you wish with the array after it's loaded. Of course, you'll have to set the filename value in SomeFileName to something.
| Code: |
Dim MyName(2) As String 'indexes from 0 to 2 by default
Sub SaveTextArray()
Dim ch As Integer
Dim i As Integer
ch = FreeFile
Open SomeFileName For Input As ch
For i = 0 To 2
Print #ch, MyName(i)
Next i
Close #ch
End Sub
Sub LoadTextArray()
Dim ch As Integer
Dim i As Integer
ch = FreeFile
Open SomeFileName For Input As ch
For i = 0 To 2
Line Input #ch, MyName(i)
Next i
Close #ch
End Sub
|
_________________ Website - [link] |
|