Avatar billede DTP Novice
05. december 2003 - 21:50 Der er 19 kommentarer og
1 løsning

let spørgsmål

Hej jeg er newB

Hvordan åbner jeg en en .txt fil i en text1.text i vb ?

jeg har følgende indtil videre:

Private Sub Form_Load()

Open "c:\log.txt" For Input As #1

Do While EOF(1) = False

Line Input #1, Data

Loop

Close #1


End Sub


der er ikke noget der hedder print to vel???
Avatar billede Slettet bruger
05. december 2003 - 21:52 #1
Prøv dette:
Private Sub Form_Load()
  Open "c:\log.txt" For Input As #1
  Do While EOF(1) = False
    Line Input #1, Data
    text1.text = text1.text & data
  Loop
  Close #1
End Sub
Avatar billede DTP Novice
05. december 2003 - 21:56 #2
DOH ja selvfølgelig......MEN hvordan viser jeg HELE filen og ikke kun line input #1 (første linie) ??
Avatar billede Slettet bruger
05. december 2003 - 21:57 #3
Det gør du jo nu, du kører i en løkke indtil filen er slut, hver linie læser du og lægger til teksten i tekstboksen, det kan være at du skal gøre tekstboksen større og sætte multiline=true for at se det hele.
Avatar billede DTP Novice
05. december 2003 - 21:59 #4
tekstboksen er stor og multiline er = true........den printer kun de første 5 linier ud.....mærkeligt
Avatar billede Slettet bruger
05. december 2003 - 22:01 #5
Har du sat MaxLength på tekstboksen?
Avatar billede DTP Novice
05. december 2003 - 22:01 #6
og den printer dem ud i en lang linie....altså den ignorerer nylinie ......(??)
Avatar billede Slettet bruger
05. december 2003 - 22:03 #7
Det kan vi klare, ret
text1.text = text1.text & data
til
text1.text = text1.text & vbCrLf & data
Avatar billede DTP Novice
05. december 2003 - 22:04 #8
nej maxlength er på 0 og jeg har lige prøvet at sætte den til 100 uden nogen ændring skete
Avatar billede Slettet bruger
05. december 2003 - 22:05 #9
0 er fint. Er du sikker på at der er mere i din fil?
Avatar billede DTP Novice
05. december 2003 - 22:06 #10
ja da!! det kan jeg SE.  det er mærkeligt det her
Avatar billede DTP Novice
05. december 2003 - 22:07 #11
Private Sub Form_Load()

Open "c:\log.txt" For Input As #1

Do While EOF(1) = False

Line Input #1, Data

Text1.Text = Text1.Text & vbCrLf & Data

Loop

Close #1


End Sub
Avatar billede Slettet bruger
05. december 2003 - 22:07 #12
Det kan være der står noget som får VB til at tro filen er EOF.
Avatar billede DTP Novice
05. december 2003 - 22:13 #13
jep du havde ret har løst det....takker 


svar
Avatar billede Slettet bruger
05. december 2003 - 22:16 #14
Ok
Avatar billede Slettet bruger
05. december 2003 - 22:18 #15
Takker for point.
Avatar billede DTP Novice
05. december 2003 - 22:19 #16
var så lidt
Avatar billede joern Nybegynder
05. december 2003 - 22:40 #17
Hej.

Nu er sagen jo klaret, men der findes faktisk en måde at læse en tekstfil i ét hug.

Open  "c:\log.txt" For Input As #1
  txtjour.Text = Input(FileLen(labjourfil.Caption), 1)
Close #5

M.v.h.  Jørn
Avatar billede DTP Novice
05. december 2003 - 22:41 #18
Tak for dit indlæg
Avatar billede joern Nybegynder
05. december 2003 - 22:42 #19
Nå, i mit projekt har filen nummer 5, det rettede jeg til 1 to steder, men ikke det tredie, i close.  / jørn
Avatar billede joern Nybegynder
05. december 2003 - 22:58 #20
Alle gode gange tre.  Formentlig har du forstået at der skal 'inputtes' fra samme fil som der åbnes :-)

Open  "c:\log.txt" For Input As #1
  text1.Text = Input(FileLen("c:\log.txt"), 1)
Close #1

Så må den være der.  Jeg har jo filnavnet - og stien - stående i et labelfelt, indlæst fra en database.  Projektet kan ses på http://jkfsoft.dk/maskpark.htm
Filen er en journal der skrives til fortløbende, på sin vis sammenlignelig med en logfil.  Fortsat god aften.  m.v.h. Jørn
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester