Læse fra fil (txt)

hjælpen kommer 13:45..så er jeg hjemme ved min egen comp :)...håber du kan vente lidt

Open \"c:\\daniel\\hjælpe program\\demo.txt\" For Print #1, Text6.Text
Close #1

tror vist nok at det virker :)

arg

fik ik det hele med..vent lidt :)

Private Sub Command1_Click()

    Dim FilePath As String
    Dim Data As String
    FilePath = \"c:\\test.txt\"

    Open FilePath For Input As #1
Do Until EOF(1) & vbCrLf & Data
Loop
Text1.Text = Text1.Text
Close #1
End Sub

den er vist lidt bedre..sorry jeg fumlede lidt med det :)

Dim FilePath As String
    Dim Data As String
    FilePath = \"c:\\test.txt\"

    Open FilePath For Input As #1
Do Until EOF(1) & vbCrLf & Data
Loop
Text1.Text = Text1.Text
Close #1

Den virker ikke helt....??

Private Sub Form_load()
Open \"c:\\***.txt\" For Input As 1
Text1.Text = Input(LOF(1), 1)
Close 1
End Sub

Husk at sætte ScrollBars property til 2 (vertical) og multiline til True

Zeon>>

Hvad betyder dette her?

....Input(LOF(1), 1)

LOF Function Example
This example uses the LOF function to determine the size of an open file. This example assumes that TESTFILE is a text file containing sample data.

Dim FileLength
Open \"TESTFILE\" For Input As #1  \' Open file.
FileLength = LOF(1)  \' Get length of file.
Close #1  \' Close file.

Ok det var fint.

Men hvad med \"LOF(1), 1)\"lige hvad betyder det \"1\" det står efter det første?

Private Sub Command1_Click()
Dim tekstvariabel As String
Dim path As String

path = App.path

Open \"c:\\test.txt\" For Input As #1
    Do Until EOF(1)
      Line Input #1, tekstvariabel
      Text1.Text = Text1.Text & tekstvariabel & Chr$(13) & Chr$(10)
    Loop
Close 1
Command1.Enabled = False
End Sub

...den virker helt finno..har lige testet...sorry med de foregående koder...

arg ..bare slet de der &chr$

Input(LOF(1) fortæller os længden af 1 som jo var den txt fil

det sidste \"1\" fortæller hvad vi skal sætte ind i tekstboksen altså igen den txt fil

Elles kan du kigge lidt på Input function i hjælp, den er nok bedre til at forklare en jeg er..:)

/Zeon_rm

coldray >

chr$ bør ikke slettes - hvem ved om den næste windows version vil nægte at køre ens gamle exe\'r hvis man ikke har 100% korrekt kode :-) man bør altid definere sine variabler som tekst når de er det - og $ fortæller vb at den skal lave det til tekst (og dermed sparer man plads i hukommelsen da den afsætter langt mere plads til en variant) hvis man vil lave linjeskift er det derfor en god ide at have Chr$(13) & Chr$(10) med og ikke bare bruge Chr(13) & Chr(10).
Men jeg syntes ikke Line Input er en god idé til vb2, da han vil have hele tekstfilen er det mere smart med zeons metode.


vb2 >

LOF betyder \"length of file\" og EOF  betyder \"end of file\".

Syntaxen er: Input(number, [#]filenumber)

så det første efter Input (LOF(1)) er ifølge hjælpefilen altså det antal bytes som input skal aflæse (og da det er lig med længden af hele filen vil den altså aflæse det hele som en bid - hvilket virker fint med midnre filer)

og det næste nummer, er det nummer som viser hvilken fil den skal aflæse fra, og da du har skrevet (Open \"c:\\test.txt\" For Input As #1) #1 er det dét tal. Hvis du havde skrevet Open \"c:\\test.txt\" For Input As #2 skulle det have været 2 istedet :-)

cellaneous>
Ja det var jo nok lidt bedre en mit forsøg på at forklare..:D

/Zeon_rm

er sikker på du er bedre end mig til noget andet en anden gang :-)