重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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语句