Hej när jag skriver till filen använder jag detta

Private Sub Command1_Click()
Open "txt.dat" For Output As #1
Write #1, Text1; Text2; Text3; Text4; Text5
Close #1
End Sub

Men när jag vill hämta text, hur gör jag då!
Jag har 5st textboxar och vill kunna hämta text till boxarna från filen

Sören

Dim strInput As String
Dim strTextArray() As String
Open "txt.dat" For Input As #1
Input #1, strInput
Close #1

strTextArray() = Split(strInput, ";")

Text1.text = strTextArray(0)
Text2.text = strTextArray(1)
Text3.text = strTextArray(2)
Text4.text = strTextArray(3)

ett snyggare sätt är att använda index till textfälten istället.. så alla heter t.ex txtField men har olika index. då kan du skriva så här istället:

For i = 0 to 3
txtField(i).text = strTextArray(i)
next i

Hej
>Write #1, Text1; Text2; Text3; Text4; Text5

Varför använder du Write ? Print borde väl sitta bättre, eller ?

Till Gein
>strTextArray() = Split(strInput, ";")

Tror inte att ; kommer med i textfilen

Sven

Tusen tack för hjälpen...

Sören

självklart sven!.. Jag var lite snabb där.. mitt exempel förutsätter
att du lägger in ett ;-tecken mellan varje text du lägger in.

.P