---

Jeg skal læse indholdet af en fil ind i en textbox - og det volder mig
lidt problemer.

Jeg har indtil videre lavet følgende kode:

Private Sub Command1_Click()
cmdDlg.FileName = ""
cmdDlg.Action = 1
txtFileName.Text = cmdDlg.FileName

Open cmdDlg.FileName For Input As #1
' ... og her kommer jeg i tvivl

End Sub

Jeg skal jo læse alle linier fra filen ind i min textbox - men
samtidig bevare linieskift etc.

Hvordan gør jeg det ?



--
Jesper Stocholm
http://stocholm.dk

---

Jesper Stocholm <tdc@H50EMstocholm.dk> (slet H50EM) skrev:
>Jeg skal læse indholdet af en fil
>ind i en textbox - og det volder mig
>lidt problemer.
>
>Private Sub Command1_Click()
> cmdDlg.FileName = ""
> cmdDlg.Action = 1
> txtFileName.Text = cmdDlg.FileName
>
> Open cmdDlg.FileName For Input As #1
> ' ... og her kommer jeg i tvivl
>
>End Sub

det var søreme ikke så svært igen:

Open cmdDlg.FileName For Input As #1
While Not EOF(1)
Input #1, sLine
sFileData = sFileData & sLine & vbCrLf
Wend
txtEditFile.Text = sFileData
Close #1


--
Jesper Stocholm
http://stocholm.dk