13518219792
Private Type stu
创新互联公司是一家专注于成都网站建设、成都网站制作与策划设计,波密网站建设哪家好?创新互联公司做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:波密等地区。波密做网站价格咨询:18982081108
num As String * 10
name As String * 20
cj As Long
End Type
Private Sub Command1_Click()
Dim f As String, f1 As String, stud As stu, studd(5) As stu
' Print Len(stud)
f = App.Path "\RANDOM.DAT"
Open f For Random As #1 Len = 35
For j = 1 To 5
stud.num = Format(Now(), "yyyymmdd") Format(j, "00")
stud.name = "学生" j
stud.cj = 90 + j
Put #1, j, stud
Next
Close #1
Print "原始数据："
Open f For Random As #1 Len = 35
For j = 1 To 5
Get #1, j, studd(j)
Print studd(j).num; studd(j).name; studd(j).cj
Next
Close #1
For j = 1 To 5
For k = j + 1 To 5
If studd(j).cj = studd(k).cj Then
stud = studd(j)
studd(j) = studd(k)
studd(k) = stud
End If
Next
Next
f = App.Path "\RANDOM1.DAT"
Open f For Random As #1 Len = 35
For j = 1 To 5
Put #1, j, studd(j)
Next
Close #1
Print "排序后数据："
Open f For Random As #1 Len = 35
For j = 1 To 5
Get #1, j, studd(j)
Print studd(j).num; studd(j).name; studd(j).cj
Next
Close #1
End Sub
1 打开文件获取长度
2创建一个freefile
3 以读写方式打开文件
dim data as string
open "文件名" for Random as #1'建立或打开文件
Put #1,,"数据"'写入数据(两逗号间为“记录号”，即读或写文件中的第几个数据，可省略。若指定记录号上已有数据，则原数据将被替换)
close #1'关闭文件
msgbox "数据写入成功"
open "文件名" for Random as #1'建立或打开文件
get #1,,data'读取数据(两逗号间为“记录号”，即读或写文件中的第几个数据，可省略)
close #1'关闭文件
msgbox "读取数据成功：" data '"读写验证"
'给你总结一下：这个随机文件类似于表格（像excel），每个数据都是一个单元，“记录号”就是第几个数据单元。好了，希望你能明白
Private Type sj
no As String * 10
name As String * 10
time As String * 10
score As String * 10
End Type
Dim s As sj
Dim j As sj
Private Sub Command1_Click()'添加一个按钮
s.no = RTrim("a")
s.name = RTrim("b")
s.time = RTrim("c")
s.score = RTrim("d")
Open "d:\1.txt" For Random As #1 Len = Len(s)
Put #1, 2, s '记录号必须大于1
Close #1
End Sub'我有测试运行过可以用，希望审核的人可以让我通过，不相信你自己运行一下。
随机文件是把文件按指定的长度划分为若干个长度相等的“文件块”，你可以从中任意取出一块，也可以增加、修改或删除其中的任意一块，其作用类似于数据库；
顺序文件则一般是按“行”为单位来进行读取的，由于每行的长度一般而言长度都是不相同的，所以你无法从中直接任意取出某一行，只能从头至尾顺序读取，直到你需要的那行为止，一般常见的文本文件都属于顺序文件。
当然，顺序文件和随机文件只是读取文件的方式不同，与文件的本质并不相关的，比如同样的一个文本文件123.txt，当用顺序方式打开（即按行读取）时，它是顺序文件，而用随机方式打开（即按指定的字节长度读取）时，它是随机文件。
随机文件的读取 可以使用以下语句：open文件名 for random as [#]文件号 [Len=记录长度]
而后用 get语句
