Load en textfil

og der skal lige siges at det er hele txt filen der skal indsættes i testboxen og ikke kun en linie

Dim FileName As String
Dim lne$
FileName=\"<navn på din fil>\"
F=FreeFile
Open FileName For Input As #F
Line Input #F, lne$
List1.AddItem lne$

Kan altså ikke lige se hvordan den kan komme ind i textboxen text1!

hov det var til en listbox, her kommer koden til en text:

Dim Path,data As String
     
    path = curdir & \"navnetpådendertxtfil.txt\"
    Open Path For Input As #1
       
    Do Until EOF(1) \' looper indtil EOF (end of file)
   
        Line Input #1, Data \'læser en linie ad gangen
        Text1.Text = Text1.Text & vbCrLf & Data
        \' og smider den ind i text1
       
    Loop
   
    Close #1
    \'lukker filen
End Sub

håber det var bedre!

Når jeg kører programmet kommer den med en fejl på linien:

    Open Path For Input As #1

Skal koden så ind på (for eksempel) denne måde:

Private Sub Command1_Click()
\'koden
end sub

eller hvordan?

ehhmmm...ved path skal det da ikke være app.path?

Sorry, men jeg er altså en Newbie til programmet og har ikke lige hørt curdir før!

jo den skal ind som:


private sub command1_click()
\'kode
end sub

men deklarationerne af variabler skal du sætte ind i \"general\" - helt i toppen af kodevinduet.

det som curdir gør er at fortælle hvilket bibliotek programmet kører fra,f.eks. c:\\mitprogram - jeg mente at det nok var her at text filen lagde, hvis ikke kan du bare slette curdir, samt & tegnet, og skrive stien til filen mellem de to \"\" tegn.
& tegnet bruger man i textstrenge til at samle forskellige stykker tekst til en stor text.
for at løse problemet med linien, prøv at bytte
open path... linien ud med:
path = curdir & \"\\navnetpådendertxtfil.txt\"

-så burde det virke.

ups. tilføjelse
der mangler et mellemrum i variabel deklarationen så den i stedet kommer til at hedde:

Dim Path,data As String

en ting du nok også burde have med under deklarations delen er option explicit  -den gør at du ikke kan komme til at \"glemme\" at definere en variabel, noget der kan være meget irriterende når man skal til at debugge.

Det er præcis ligsom i de gamle QBASIC-dage!

Jeg synes der mangler dette forslag:

I dette udpluk fra mit program står filen med fuld sti i et labelfelt:  \"labjourfil\" (en juournal),  indholdet læses til tekstfeltet: \"txtjour\", således at der kan skrives videre.

Open labjourfil.Caption For Input As #5
    txtjour.Text = Input(FileLen(labjourfil.Caption), 5)
Close #5

App.path er altid dér hvor vb-programmet eksekveres fra.  Hvis tekst-filen ikke vælges i en filelistbox, må programmet på anden vis have oplyst fuld sti til den.

M.v.h.  Jørn

Til jelzin101, dit første svar skal virke, rent brotset fra en enkelt lille detalje,
Du skrev path = curdir & \"filnavn.txt\", hvis man satte et backslash ind foran filnavn, sådan her:
path = curdir & \"\\filnavn.txt\", så tror jeg den er der!!
dth :-)

Ups, sorry jelzin101, havde ikke set dit andet svar!!!!!
dth :-)

Tak, nu virker det og begge virker fint, jeg har også valgt at give point til Joern da jeg måske kan bruge det svar en anden gang.

takker