【说明】
某个文本文件中存放了若干个非零数值有效数据,每个数据占一行,最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这些数据之和,其运行窗口如下:
用户只要通过驱动器列表框、目录列表框和文件列表框,选择文本文件所在的驱动器、文件夹及相应的文件名,再单击“累计”按钮,就能在“总计”文本框中看到该文本文件中的数据之和。
在开发过程中,设驱动器列表框名为Drive1,目录列表框名为Dir1,文件列表框名为File1,存放数据的文本文件名为D:\test\vb7\data.txt,“累计”按钮名为sum,“总计”文本框(TextBox)名为text1。
【Visual Basic代码】
Private Sub Drive1_Change ()
Dir1.Path = ___(1)___ ‘用户选择的驱动器反映到目录列表框中
End Sub
Private Sub Dir1_Change ()
File1.Path = ___(2)___ ‘用户选择的文件夹改变文件列表框内容
End Sub
Private Sub sum_Click ()
Dim ___(3)___ As New FileSystemObject , ____(4)____ As TestStream
‘创建自己的文件系统对象,说明自己的文本流对象
If Right ( Dir1.Path , 1 ) = “ \ ” Then
Set myTextFile = fso.OpenTextFile ( Dir1.Path + File1.FileName)
End If
Set myTextFile= fso.OpenTextFile ( Dir1.Path + “ \ ” +File1.FileName)
S = 0
Do
D = Val ( myTextFile.ReadRow )
S = S + d
Loop While ___(5)___
Text1.Text = Str$ (S)
End Sub