边读边计算的如果用计数器则可以指定读取第几行内容第一例(答复:

边读边计算的如果用计数器则可以指定读取第几行内容第一例(答复:咨询VB读文本文件，文本文件有N行，3列。想得到1、2列相同时。3列的值求和)http://bbs.csdn.net/topics/390919855#

Dim 文件路径 As String = System.Environment.CurrentDirectory + "新建文本文档.txt"
        Dim 内容 As New List(Of String),暂存 As String = ",1",计算 As String()
        If New FileInfo(文件路径).Exists Then
            Dim 打开 As New FileStream(文件路径,FileMode.Open)
            Dim 读取 As New StreamReader(打开)
            Dim 判断 = 0
            While (读取.EndOfStream <> True)
                Dim 取值 = 读取.ReadLine()
                判断 += 1
                If (暂存.Split(",")(0) <> 取值.Split(",")(0)) Or (暂存.Split(",")(1) <> 取值.Split(",")(1)) Then
                    If 判断 > 1 Then
                        内容.Add(暂存)
                    End If
                    暂存 = 取值
                Else
                    计算 = 取值.Split(",")
                    计算(2) = (Int16.Parse(计算(2)) + Int16.Parse(暂存.Split(",")(2))).ToString
                    内容.Add(String.Join(",",计算))
                    判断 = 0
                End If
            End While
        End If

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!