---

Jeg har skrevet følgende kode. Den virker hvis der kun er en linie i filen,
hvis der er flere linier viser den kun den ene. Er der nogen som har en
forklaring:

MVH
Dennis Olesen

Option Explicit

Private Sub Command1_Click()
Dim variable1 As String
Dim filnavn As String

filnavn = Form1.Text2.Text
Open (filnavn) For Input As #1
MsgBox ("Åbner " & filnavn), , "Åbner..."
Input #1, variable1
Text1.Text = variable1
Close #1


End Sub

---

>filnavn = Form1.Text2.Text
>Open (filnavn) For Input As #1
>MsgBox ("Åbner " & filnavn), , "Åbner..."
>Input #1, variable1
Input tager en dataenhed adgangen eks:
12   13   15
Først 12
næste input tager 13 osv.


-------Citat.
Hvorfor skal man være stille i et vaskeri...
Fordi Bamseline er koncentreret.
--------

---

> Option Explicit
>
> Private Sub Command1_Click()
> Dim variable1 As String
> Dim filnavn As String
>
> filnavn = Form1.Text2.Text
> Open (filnavn) For Input As #1
> MsgBox ("Åbner " & filnavn), , "Åbner..."
DO UNTIL EOF(1) ' På dansk, gør det indtil EOF=END OF FILE 1
> Line Input #1, variable1
> Text1.Text = Text1.Text & variable1 ' Kræver at textboxen sættes til
multiline
Loop
> Close #1
>
>
> End Sub


Jesper....

---

Tak for svaret.

MVH
Dennis Olesen
"Jesper" <oz5nospam@pc.dk> skrev i en meddelelse
news:3fd50f08$0$69898$edfadb0f@dread12.news.tele.dk...
>
> > Option Explicit
> >
> > Private Sub Command1_Click()
> > Dim variable1 As String
> > Dim filnavn As String
> >
> > filnavn = Form1.Text2.Text
> > Open (filnavn) For Input As #1
> > MsgBox ("Åbner " & filnavn), , "Åbner..."
> DO UNTIL EOF(1) ' På dansk, gør det indtil EOF=END OF FILE 1
> > Line Input #1, variable1
> > Text1.Text = Text1.Text & variable1 ' Kræver at textboxen sættes til
> multiline
> Loop
> > Close #1
> >
> >
> > End Sub
>
>
> Jesper....
>
>
>