第17课:档案的处理

上一课][返回主页][下一课]

直至第13课为止,我们所编写的程序只能够处理在运行时的数据,当一个程序终止时,数据也随着消失。我们是否有可能把VB运行时的数据储存进硬盘,软盘,或随身碟呢 ?答案是可以的。在这一课中,我们将了解如何创建文件及把它储存进档案中。

17.1 建立档案

要建立一个档案,可使用下列指令

Open "fileName" For Output  As #fileNumber

每个档案的建立必须有一个文件名称和档案编号,以资识别。除了文件的名称,您还必须指定档案的路径。

 例如:

Open "c:\My Documents\sample.txt" For Output As #1

将建立一个文本文件sample.txt在My Document 文件夹中。伴随着该文件的号码是1 。如果您想要建立和保存该文件在一个驱动器了,只需更改路径便可,如下“

Open "A:\sample.txt" For Output As #1

如果你想创建一个HTML文件, 可用以下的指令:

Open "c:\My Documents\sample.html" For Output As # 2




17.2.1 程序示例:创建一个文本文件(文字档案)

Private Sub create_Click()
Dim intMsg As String
Dim StudentName As String

Open "c:\My Documents\sample.txt" For Output As #1
intMsg = MsgBox("File sample.txt opened")
StudentName = InputBox("Enter the student Name")
Print #1, StudentName
intMsg = MsgBox("Writing a" & StudentName & " to sample.txt ")

Close #1

intMsg = MsgBox("File sample.txt closed")
End Sub

*上述程序将创建一个文件sample.txt在My Document文件夹中,并准备好接收用户输入的资料。任何用户输入的数据将被保存在这个文本文件。

17.3 读取文件

要读取之前建立的文件,您可以使用输入#声明。但是,我们只能读取根据该文件被写入时的格式。你必须根据其文件的号码来打开该文件。我们还需要使用DIM 来宣告的变数。

17.3.1 范例

Private Sub Reading_Click()
Dim variable1 As String
Open "c:\My Documents\sample.txt" For Input As #1
Input #1, variable1
Text1.Text = variable1
Close #1

End Sub

这一程序将打开sample.txt文件,并在text1文本框中显示其内容。

上一课][返回主页][下一课]

版权所有©2008 Dr.Liew Voon Kiong。保留所有权利|联系我们: vbtutor.net

[Privacy Policy]