Vise en *.txt fil i TextBoxen

Hej Terra.

Private Sub cmdOpen_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
  Open CommonDialog1.FileName for Input as #1
    text1.Text = Input(FileLen(CommonDialog1.FileName), 5)
  close #1
End Sub

Eller én linie ad gangen:

Private Sub cmdOpen_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
  Open CommonDialog1.FileName for Input as #1
    Do while EOF(1)= False
      Line Input #1, linie
      Text1.text = text1.text & linie 
    Loop
  close #1
End Sub

Ikke afprøvet, kode ud af hukommelsen.

M.v.h.  Jørn

Hei Jørn,
Takk for hjelpen.
Den siste virker efter 'End If' smidd ind:)

Et lite spørgsmål:)
Må jeg bruge:
'CommonDialog1.ShowOpen' eller kan
jeg oppgi filnavn.txt og åbne den dirrekte?

Takker, Terra

Hej Terra.

Tak for point.  Du kan sagtens direkte angive et filnavn, eller vælge filnavn i VB's egen fil-liste kontrol.  Denne bør så kombineres med kontroller for vaæg af drev og af mappe.

Filnavnet kan også dannes af tekst + variable:

  filnavn = "Bu" & var1 & ".txt"
Eller :

Open netsti & "\Bu" & var1 & ".txt" for Input as #1

M.v.h.  Jørn

Takk for det Jørn,
Ha en fin kveld.

Hilsen Terra.