英文VB教程 简体Visual Basic教程 繁体Visual Basic教程

第十七课� 档案的处�



直至�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。保留所有权� 。联系我�: VB面子�

[Privacy Policy]