咨询VB读文本文件，文本文件有N行，3列。想得到1、2列相同时。3列的值求和

2014-11-02 02:43:31 434 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

MySQL连接异常：Communications link failure 解决方案困扰一晚上的问题终于解决了。阅读详情

如：
P01, A ,2
P01, A ,3
P01, B ,1
P01, B ,4
P02, A ,6
P02, B ,7
P02,C ,2
P02,C ,1

想得到：
1,2列相同时，3列的值求和，如：第1,2行 2+3,第3,4行 1+4，第5行 6，第6行 7，第7,8行 2+1

...全文

保姆级教程：用COMSOL LiveLink™ for MATLAB 玩转自定义PDE，从理论到仿真一条龙本文详细介绍了如何利用COMSOL LiveLink™ for MATLAB实现自定义PDE的从理论到仿真的完整流程。通过PDE模块与MATLAB的无缝集成，用户可以灵活处理非标准偏微分方程，适用于材料建模、传热传质验证等多物理场耦合研究。教程涵盖环境配置、方程标准化、界面操作及高级应用技巧，为工程仿真研究者提供原子级控制方案。阅读详情

ktghyang

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

以专业开发人员为伍 2014-11-02

打赏
举报

或者这样写更容易理解

Imports System.IO

Module Module1

    Sub Main()
        Dim result = From ln In File.ReadAllLines("data.txt") _
                     Let datas = ln.Split(","c)
                     Let key = datas(0).Trim + "," + datas(1).Trim
                     Group datas By key = key Into g = Group _
                     Select New With {.key = key, .Sum = g.Sum(Function(x) Integer.Parse(x(2)))}
        For Each r In result
            Console.WriteLine("{0} = {1}", r.key, r.Sum)
        Next
        Console.WriteLine("....press any key")
        Console.ReadKey()
    End Sub

End Module

以专业开发人员为伍 2014-11-02

打赏
举报

很简单，这样写整个程序

Imports System.IO

Module Module1

    Sub Main()
        Dim result = From ln In File.ReadAllLines("data.txt") _
                     Let datas = ln.Split(","c)
                     Group datas By key = New With {.A = datas(0), .B = datas(1)} Into g = Group _
                     Select New With {.key = key, .Sum = g.Sum(Function(x) Integer.Parse(x(2)))}
        For Each r In result
            Console.WriteLine("{0} = {1}", r.key.A + "," + r.key.B, r.Sum)
        Next
        Console.WriteLine("....press any key")
        Console.ReadKey()
    End Sub

End Module

智者知已应修善业 2014-11-02

打赏
举报

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


        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

咨询VB读文本文件，文本文件有N行，3列。想得到1、2列相同时。3列的值求和

相关推荐