'请Look! Type FileType fd0 As String * 50 fd1 As Double fd2 As String * 20 fd3 As Date fd4 as Boolean End Typedim myInputData as FileTypePrivate Sub WriteIntoFile() dim OpenFileNum as Integer '文件号 dim Step as Long ' 记录号 Open myFileName For Random As #OpenFileNum Len = Len(myInputData) Put #OpenFileNum,Step,myInputData Close (OpenFileNum)
用hash算法建立索引
Type FileType
fd0 As String * 50
fd1 As Double
fd2 As String * 20
fd3 As Date
fd4 as Boolean
End Typedim myInputData as FileTypePrivate Sub WriteIntoFile()
dim OpenFileNum as Integer '文件号
dim Step as Long ' 记录号
Open myFileName For Random As #OpenFileNum Len = Len(myInputData)
Put #OpenFileNum,Step,myInputData
Close (OpenFileNum)
hydnoahark(诺亚方舟)的思路不错,就不知道你是否有用!