vb顺序写入文件的命令

1.

打开与关闭 打开:Open “文件名” For Random As [#] 文件号 [Len=记录长度] 关闭:Close #文件号 注意:文件以随机方式打开后,可以同时进行写入和读出 *** 作,但需要指明记录的长度,系 统默认长度为 128 个字节。

2.

读与写 读 *** 作:Get [#]文件号, [记录号] ,变量名 说明: Get 命令是从磁盘文件中将一条由记录号指定的记录内容读入记录变量中记录号是大 于 1 的整数,表示对第几条

以下程序可以帮你做到。第一行是必须的，为了写文件，打开一个文件，和最后一行的文件号（#1）一致，在期间的“#1”均指"d:\aa.txt"这个文件，这个文件是在d盘的根目录下，如果你想把它存在另外的文件夹下，改了它！

open

"d:\aa.txt"

for

output

as

#1

print

#1,"abc="1

print

#1,"ddd="1

print

#1,"ok="0

print

#1,"你想存啥就存啥！"

print

#1,"不想存就不存！"

close

#1

读文件

 Dim s As String

   Dim filename As String

   filename = shuxiang & xingzuo & ".txt"

Open filename For Input As #1

Do While Not EOF(1)

Line Input #1, s

Print s

Loop

Close #1

追加写文件

Dim i As Integer, n As Integer, a(6) As Integer

n = 6

Open "D:\1122.txt" For Append As #1

Randomize

For i = 1 To n

    a(i) = Int(Rnd * 1000 + 1)

    Print #1, a(i)

  Next i

Close #1

覆盖写文件

Dim i As Integer, n As Integer, a(6) As Integer

n = 6

Open "D:\1122.txt" For output As #1

Randomize

For i = 1 To n

    a(i) = Int(Rnd * 1000 + 1)

    Print #1, a(i)

  Next i

Close #1

---