Udkrive fra teksfil?

Har en lille ændring...

Forestil jer en kontakt liste lige som i messenger osv. Jeg har en tekstfil, med Navn, ip på brugere, og vil så hente linie for linie kontakterne, og så skrive dem i en tekstbox.

Hej.

Der har tidligere været svaret på dette en del gange på eksperten, har du prøvet at søge?  Her er en stump simpel kode fra et projekt.

  Open postnumsti & "postnum.dat" For Input As #6
    Do While EOF(6) = False
      Line Input #6, pn
      Line Input #6, by
      lststed.AddItem by & "  " & Left(pn, 4)
    Loop
  Close #6

M.v.h.  Jørn

ja, jeg har søgt...men jeg forstår det ikke helt....

Hvis vi siger at jeg har en textbox der skal være = de forskellige output fra txtfilen, hvad gør jeg så?

Hej.

En tekstboks kan jo kun indeholde én post ad gangen, andet ville være uden formål.

Hvis du vil printe fra en VB-applikation kan du anvende Crystal Reports når indholdet kommer fra en database.  Indhold fra ascii-filer må du selv programmere udskrift for.  Et eksempel fra et projekt.

Printer.Print
  Printer.FontSize = 18
  Printer.FontName = "Times New Roman"
  Printer.Print Tab(10); "HR FærgeBooking "; Tab(52); "Den "; Now
  Printer.Print " "
  Printer.FontSize = 14
  Printer.Print Tab(14); "Reservationer kl. " & Left(aftid(b), 5) & "  for " & skib
  Printer.Print " "
  Printer.Print " "
  Printer.Print " "
  Printer.DrawWidth = 5
  Printer.Line (900, 1550)-(11000, 1550)
 
 
  'Printer.Line (900, 3750)-(11200, 3750)
  'Printer.Line (900, 3780)-(11200, 3780)
  'Printer.Line (900, 6630)-(11200, 6630)
  'Printer.Line (900, 6660)-(11200, 6660)
  Open netsti & "book.dat" For Input As #3
    Do While EOF(3) = False
      Line Input #3, linie
      If Left(linie, 4) <> aar Then GoTo spring4
      If Val(Mid(linie, 5, 2)) <> ugenr Then GoTo spring4
      If Mid(linie, 8, 1) = havn Then
        bdag = Val(Mid(linie, 7, 1))
        If bdag = DatePart("w", Now, 2) - 1 Then
          baftid = Mid(linie, 9, 5)
          'udfyld liste over ventede biler
          If baftid = Left(aftid(b), 5) Then
            Printer.Print Tab(14); Mid(linie, 38); Tab(55); Mid(linie, 14, 1)
            e = e + Val(Mid(linie, 14, 1))
          End If
        End If
      End If
spring4:
    Loop
  Close #3

M.v.h.  Jørn

ok...hmm....det er ikke helt det jeg skal bruge...

Jeg har en række navne og ip'er i et tekstdokument. Så vil jeg evt. have sådan at den laver en label for hver linie der er i filen, så man derefter kan klikke på disse labels ligesom messenger etc.

Jamen hvorfor kalder du det så for at udskrive, er det ikke noget med en printer?
Jeg bruger ikke og kender ikke messenger.

Dine labels skal være oprettet som et control-array

a = 0
Open dinsti & "dinfil.txt" For Input As #1
    Do While EOF(1) = False
      Line Input #1, linie
      label(a).caption = linie
      a = a + 1
      if a > 50 then exit Do              'med mindre du har over 50 labels ?
    Loop
  Close #6

Dette bliver mit sidste svar.  m.v.h.  Jørn

Takker for hjælpen!