VB编写一个随机文件程序

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

vb中随机文件的读写有那几个步骤？

1 打开文件获取长度

2创建一个freefile

3 以读写方式打开文件

vb随机文件写和读通过什么语句

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），每个数据都是一个单元，“记录号”就是第几个数据单元。好了，希望你能明白

VB中随机打开文件

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'我有测试运行过可以用，希望审核的人可以让我通过，不相信你自己运行一下。

vb中 随机文件是什么意思？说详细点

随机文件是把文件按指定的长度划分为若干个长度相等的“文件块”，你可以从中任意取出一块，也可以增加、修改或删除其中的任意一块，其作用类似于数据库；

顺序文件则一般是按“行”为单位来进行读取的，由于每行的长度一般而言长度都是不相同的，所以你无法从中直接任意取出某一行，只能从头至尾顺序读取，直到你需要的那行为止，一般常见的文本文件都属于顺序文件。

当然，顺序文件和随机文件只是读取文件的方式不同，与文件的本质并不相关的，比如同样的一个文本文件123.txt，当用顺序方式打开（即按行读取）时，它是顺序文件，而用随机方式打开（即按指定的字节长度读取）时，它是随机文件。

详细介绍下VB中的 随机文件的读取

随机文件的读取 可以使用以下语句：open文件名 for random as [#]文件号 [Len=记录长度]

而后用 get语句

分享文章：vb.net打开随机文件 vb中随机文件的读写
文章出自：http://sczitong.cn/article/dodgjod.html