Re: Printing a random access file
- From: "Henning" <computer_hero@xxxxxxxxxxxx>
- Date: Tue, 10 Jan 2006 01:15:23 +0100
Strings are stored as Unicode so U might be better off using LenB(Player)
"Henning" <computer_hero@xxxxxxxxxxxx> skrev i meddelandet
news:43c2fbbc$1$98288$57c3e1d3@xxxxxxxxxxxxxxxxxxx
>
> "james" <ds@xxxxxxxxxxx> skrev i meddelandet
> news:dpu3at$geb$1@xxxxxxxxxxxxxxxxxxxxxx
> > Can someone tell me why the code below doesn't print out all the data
> from
> > the random access file, it only prints out the headings and player.id.
> For
> > the rest of the characters, it prints out a [] sort out rectangle.
> >
> > Thanks
> >
> >
> > Dim Index As Integer
> > Filename = App.Path & "\players.dat"
> >
> > Printer.FontSize = 11
> > Printer.FontBold = True
> > Printer.FontUnderline = True
> > Printer.Print "Players"
> > Printer.Print
> > Printer.FontSize = 10
> > Printer.FontBold = False
> > Printer.FontUnderline = False
> > Printer.Print "ID"; Tab(5); "Player 1 ID"; Tab(5); "Player 1 Name";
> Tab(5);
> > "Player 2 ID"; Tab(5); "Player 2 Name"; Tab(5); "Score"
> > Printer.Print
> >
> > Open Filename For Random As #3 Len = Len(Player)
> > NumberOfPlayers= LOF(3) / Len(Player)
> > For Index = 1 To NumberOfPlayers
> > Get #3, , Player
> Get #3, Index, Player
> > Printer.Print Player.PairID; Tab(5); Player.Player1ID; Tab(5);
> > Player.Player1Name; Tab(5); Player.Player2ID; Tab(5);
Player.Player2Name;
> > Tab(5); Player.SquadScore
> > Next Index
> > Close #3
> >
> > Printer.EndDoc
> >
> >
>
>
.
- Follow-Ups:
- Re: Printing a random access file
- From: J French
- Re: Printing a random access file
- References:
- Printing a random access file
- From: james
- Re: Printing a random access file
- From: Henning
- Printing a random access file
- Prev by Date: Re: Printing a random access file
- Next by Date: Re: Use of scalewidth problems
- Previous by thread: Re: Printing a random access file
- Next by thread: Re: Printing a random access file
- Index(es):
Relevant Pages
|