VisBasic Excel: Hente data fra .txt-fil direkte ind i en textbox

Hej tt2002
prøv med denne

Private Sub Command1_Click()
Dim FilNummer As Integer
Dim FilNavn As String
Dim Linje As String

'Unikt filnummer findes
FilNummer = FreeFile
FilNavn = "F:\Test.txt"

Open FilNavn For Input As #FilNummer
  Do
    'Henter en linje ad gangen
  Line Input #FilNummer, Linje
    Text1.Text = Linje
 
Loop Until EOF(FilNummer)
Close #FilNummer
End Sub

mvh

mvhansen

hej mvhansen...

koden virker ikke helt som den skal... der bliver kun hentet den allersidste linie af .txt-filen ind i textboxen.

i delphi, som jeg tidligere har programmeret i, var der en funktion der hed noget i retning af textbox1.lines.loadfromfile("test.txt")... er der virkelig ikke noget ligesånemt i VB?

Denne linje her:
Text1.Text = Linje

Skal bare se sådan ud:
Text1.Text = Text1.Text & Linje & vbCrLf

Prøv at ændre egenskaber "MultiLine" til "True" for tekstboksen.

supertekst... Multiline var allerede sat til true :-)

sjh... den virker nu... tak...

mvhansen og sjh... hvis I smider et par svar så deler jeg point ud...

Jeg springer over..

tt2002 her er et svar

mvh

mvhansen

tak

mvh

mvhansen