建立一个文本文件in.txt，在其中输入若干个正整数，中间用空格分隔，然后保存起来；在窗体上添加一个命令按钮和一个标签框，当单击命令按钮时将in.txt文件中存放的所有的能被3整除的数的和显示在标签框

智者知已应修善业

于 2015-09-04 08:12:08 发布

阅读量5.8k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/xianfajushi/article/details/48206495

本文介绍如何在程序中使用文件操作和命令按钮，实现读取文本文件、筛选符合条件的数据并进行后续处理的过程，包括计算和展示符合条件数据的和，并将结果保存到指定文件。

建立一个文本文件in.txt，在其中输入若干个正整数，中间用空格分隔，然后保存起来；在窗体上添加一个命令按钮和一个标签框，当单击命令按钮时将in.txt文件中存放的所有的能被3整除的数的和显示在标签框中，并把这个和存放到C盘根目录下的out.dat文件中。

        Dim 文件路径 As String = System.Environment.CurrentDirectory + "\in.txt"
        If New FileInfo(文件路径).Exists Then
            Dim 打开 As New FileStream(文件路径, FileMode.Open)
            Dim 读取 As New StreamReader(打开)
            While (读取.EndOfStream <> True)
                FileOpen(1, "d:\out.dat", OpenMode.Output)
                Dim cc = 读取.ReadLine().Split(" ").Select(Function(aa) IIf(Integer.Parse(aa) Mod 3 = 0, Integer.Parse(aa), 0)).ToArray()
                Dim hh = cc.Sum(Function(bb) bb).ToString
                PrintLine(1, hh)
                TextBox1.Text = hh
            End While
            打开.Close()
        End If