Hejsan!

Finns det något sätt att läsa in en adress tex:

Bertil Karlsson
Storgatan 5
12345 Storeby
Tel: 012-345678

från en txt-fil till ett specifikt fält i en array och sedan läsa in en annan adress i samma txt-fil till ett annat fält i samma array?

Tack på förhand
Peter

Enl denna princip löser jag det.
Alla AdressData hamnar i AdressArray
<code>
Option Explicit
Dim AdressArray() As String
Private Sub Command1_Click()
Dim tmpArray(3) As String, aData As String
Dim fNum As Long, i As Long
fNum = FreeFile
Open "C:\AdressData.txt" For Input As #fNum
On Error Resume Next 'ifall det blir strul med 4 rader, något saknas
Do Until EOF(fNum)
Line Input #fNum, tmpArray(0)
Line Input #fNum, tmpArray(1)
Line Input #fNum, tmpArray(2)
Line Input #fNum, tmpArray(3)
For i = 0 To 3
aData = aData & tmpArray(i) & vbCrLf
Next 'i
aData = aData & ";"
Loop
Close #fNum
AdressArray = Split(aData, ";")
MsgBox "Det finns " & UBound(AdressArray) & " fält"
'Test
MsgBox "Testar fack nr. 4 " & vbCrLf & AdressArray(4)
End Sub
</code>