admin 管理员组

文章数量: 887043


2024年1月10日发(作者:sql select简介)

2009-03-25 17:11

VB读写文件要用到以下语句:

1、Open语句打开文件。

2、读文件使用Line Input、Input #,(以上为文本方式)和Get(以上为二进制方式)。

3、写文件使用Print #、Write(以上为文本方式)和Put(以上为二进制方式)。

4、Close语句关闭文件

5、二进制方式下移动文件位置使用Seek语句。

所有这些语句在VB的帮助中都有详细说明和例子。

文本文件的示例:

Open "TESTFILE" For Output As #1 ' 打开输出文件。

Print #1, "This is a test" ' 将文本数据写入文件。

要添加数据,就用顺序输入吧!把各个数据连接起来输入到文本里,中间别忘了加分隔符

Print #1, ' 将空白行写入文件。

Print #1, "Zone 1"; Tab ; "Zone 2" ' 数据写入两个区(print zones)。

Print #1, "Hello" ; " " ; "World" ' 以空格隔开两个字符串。

Print #1, Spc(5) ; "5 leading spaces " ' 在字符串之前写入五个空格。

Print #1, Tab(10) ; "Hello" ' 将数据写在第十列。

' 赋值 Boolean、Date、Null 及 Error 等。

Dim MyBool, MyDate, MyNull, MyError

MyBool = False : MyDate = #February 12, 1969# : MyNull = Null

MyError = CVErr(32767)

' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。

' 日期将以标准的短式日期的格式显示。

Print #1, MyBool ; " is a Boolean value"

Print #1, MyDate ; " is a date"

Print #1, MyNull ; " is a null value"

Print #1, MyError ; " is an error value"

Close #1 ' 关闭文件。

读文件示例

使用 Line Input # 语句从顺序文件中读入一行数据,并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。

Dim TextLine

Open "TESTFILE" For Input As #1 ' 打开文件。

Do While Not EOF(1) ' 循环至文件尾。

Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。

TextLine ' 在调试窗口中显示数据。

Loop

/++++++++++++++++++++++++++++++++++++++++++++++++++++/

读取指定行

/++++++++++++++++++++++++++++++++++++++++++++++++++++/

我是用 Line Input 语句来实现的。

用 DO 循环 加 eof(#n) 再来个计数变量就可以很好的的控制读取固定的行,一次整行读入。这样的代码很简单!:

'打开文件 c:

Open "c:" For Input As #1

'取文件内容,这种是知道文件的固定行数

For i = 1 To 24

Line Input #1, temp

Select Case i

Case 8 '例如要处理第8行

'在这里可以处理 TEMP 读取的内容

End Select

Next i

Close #1

'*-----------------不知道文件总行数的时候用这种办法。

Do While Not EOF(1)

'------------取文件内容

Line Input #10, DateSr

i=i+1

Select Case i '这个你也可以用其他判断语句。

Case 8 '例如要处理第8行

'在这里可以处理 TEMP 读取的内容

End Select

LOOP

Private Sub Form_Load()

b = "hello"

Open "c:" For Output As #1

Print #1, 123

Print #1, b

Print #1, 456

End Sub

Private Sub WriteFile(filePath As String, strTmp As String)

Open filePath For Output As #1

Print #1, strTmp

Close #1

End Sub

Private Sub Command1_Click() ' 点击 Command1 按钮控件后发生的事件,Click n. 点击

Open "F:" For Output As #1

' Open: 打开

' "F:" F 盘下的名为 aa 的文本格式文件

' For 这里是进行的意思

' Output /'autput/ n. 输出。For Output = 进行输出

' As 作为。 #1: VB 6 中用于 I/O (Input/Output,输入输出) 的文件号,其他的还有 #2 #3……

'上一条语句的意思是: 打开 F 盘下的名为 aa 的文本格式文件进行写入工作,并将这次写入的代号定为 #1

Write #1, "BBS"

' 向文件写入 "BBS"

Close #1

' 关闭该写入通道

End Sub

Write #1, "A" & vbNewLine & "B" & vbNewLine & "C"

就会向文件输出:

A

B

C

分三条语句写也能实现:

Write #1, "A"

Write #1, "B"

Write #1, "C"

open StrPath For Append As 1#

Print #1, No

Close #1


本文标签: 文件 数据 写入 语句 文本