home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   alt.bbs.mystic      Mystic Sysops are mystical nerds...      11,847 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 9,950 of 11,847   
   g00r00 to All   
   Re: Reading dat files   
   07 May 21 17:59:53   
   
   From: nospam.g00r00@f215.n129.z1.fidonet.org   
      
    AG> Second, when I loop through the file using the structure g00r00 has   
    AG> provided (th ank you! :) ), it seems that the byte count gets thrown off   
    AG> by one right after t he Birthday field.  Which she is   
      
   I don't know how to help you here without seeing code.  But here is a very   
   simple loop through the users using the barebones file I/O with no buffering or   
   streaming, etc.  If this doesnt work for you let me know it could be possible   
   that the latest records aren't the ones that are included.   
      
   Program ReadUsers;   
      
   {$DEFINE WINDOWS}   
   {$DEFINE 32BIT}   
      
   {$I RECORDS.112}   
      
   {$I-}   
      
   Var   
     F : File of RecUser;   
     U : RecUser;   
   Begin   
     Assign (F, 'users.dat');   
     Reset  (F);   
      
     If IoResult <> 0 Then   
       Halt(1);   
      
     While Not Eof(F) Do Begin   
       Read (F, U);   
      
       WriteLn ('Name: ' + U.Handle);   
     End;   
      
     Close (F);   
   End.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca