求.dat文件的内容提取和写入

求.dat文件的内容提取和写入,最好有完整源代码 问题点数：100、回复次数：3Top

1 楼ExeMan（愚公移山(笨)--精卫填海(傻)）回复于 2005-08-01 21:22:33 得分 60

摘自leolan(史留香)  
  Private   Type   Person  
          ID   As   Integer  
          Name   As   String  
  End   Type  
   
  Sub   WriteData()  
          Dim   MyRecord   As   Person  
          Dim   recordNumber   As   Integer  
           
          Dim   FileNum   As   Integer  
          FileNum   =   FreeFile()  
          Open   App.Path   +   "\TestFile.dat"   For   Random   As   #FileNum  
          For   recordNumber   =   1   To   5   Step   1  
                  MyRecord.ID   =   recordNumber  
                  MyRecord.Name   =   "My   Name"   &   recordNumber  
                   
                  Put   #FileNum,   recordNumber,   MyRecord  
          Next   recordNumber  
          Close   #FileNum  
  End   Sub  
   
  Sub   ReadData()  
          Dim   MyRecord   As   Person  
          Dim   recordNumber   As   Integer  
          Dim   FileNum   As   Integer  
           
          FileNum   =   FreeFile()  
          Open   App.Path   +   "\TestFile.dat"   For   Random   As   #FileNum  
   
          Me.Text1.Text   =   ""  
          Dim   i   As   Integer  
          i   =   1  
          Do   While   Not   EOF(1)  
                  Seek   #FileNum,   i  
                  Get   #FileNum,   i,   MyRecord  
                   
                  Me.Text1.Text   =   Me.Text1   +   Str(MyRecord.ID)   +   Chr(13)   +   Chr(10)  
                  Me.Text1.Text   =   Me.Text1   +   MyRecord.Name   +   Chr(13)   +   Chr(10)  
                  Me.Text1.Text   =   Me.Text1   +   "=================="   +   Chr(13)   +   Chr(10)  
                  i   =   i   +   1  
          Loop  
   
          Close   #FileNum  
  End   SubTop

2 楼DooDu（杜霖:I want,I can(开关拉)）回复于 2005-08-01 21:34:43 得分 40

当文本文件一样操作就可以了。Top

3 楼DooDu（杜霖:I want,I can(开关拉)）回复于 2005-08-01 21:35:13 得分 0

当文本文件一样操作就可以了。Top

相关问题

• me
• myrecord
• recordnumber
• filenum
• dat
• dim
• chr
• integer
• person
• text

• 帖主：wukejun0307
• ExeMan
• DooDu

• Visual Basic类图书
• Visual Basic类源码下载