2 sunwenna sunwenna 于 2016.03.08 09:11 提问

如何用vb.net处理三个txt的比较问题

大神们,我现在想做的是,有三个txt文件
txt1
7000 7000 7000 2000 20 6.8845
4000 6000 7000 2000 100 5.8333
6000 7000 7000 2000 20 5.421
6000 7000 7000 2000 100 4.8387
4000 7000 7000 2000 100 4.8193
4000 7000 7000 3000 20 4.2301
4000 7000 7000 2000 20 4.2254
4000 6000 7000 3000 20 4.1322
6000 5000 7000 2000 100 4.0789
6000 5000 7000 2000 20 3.7553
7000 7000 7000 2000 100 3.7037
6000 7000 7000 3000 20 3.6226
4000 7000 6000 2000 20 3.528
7000 7000 7000 3000 20 3.4198
4000 6000 6000 2000 100 3.4106
4000 6000 7000 2000 20 3.3795
5000 6000 7000 3000 20 3.3617
5000 6000 7000 2000 20 3.2787
5000 7000 7000 3000 20 3.118
5000 7000 7000 2000 20 3.0792
4000 7000 6000 3000 20 3.0612
5000 6000 6000 2000 20 2.7624
6000 6000 7000 2000 20 2.7473
4000 5170 7000 2540 20 2.6932
5000 7000 6000 3000 20 2.6144
4000 6000 6000 3000 100 2.5974
6000 5000 7000 3000 20 2.5401
4000 6000 6000 2000 20 2.3533
4000 6000 6000 3000 20 2.2933
4000 5000 7000 2000 20 2.0478
5000 7000 7000 2000 100 1.7241
4000 6000 6000 4000 20 1.1278
6000 4000 6000 3000 20 0.5935
3500 4500 4500 2000 20 0.0962
txt2
4000 2000 6000 7000 20 6.3435
3500 3500 6000 6000 1 6.2877
7000 7000 7000 7000 1 5.968
4000 2000 6000 7000 1 5.949
4000 2000 5000 5200 100 5.8981
7000 7000 7000 7000 20 5.7912
4000 2000 5000 7000 1 5.668
4000 2000 5530 5680 1 5.5758
4000 2000 5000 5300 20 5.5556
4000 2000 6000 5300 20 5.4181
4000 2000 5000 7000 20 5.2535
4000 2000 5000 6000 20 5.1522
3500 3500 6000 6000 20 5.0251
4000 2000 5000 5500 20 4.8964
7000 7000 7000 7000 100 4.8525
4000 4500 5530 5680 20 4.5558
4000 2000 5000 5210 20 4.5455
4000 2000 5330 5680 1 4.4776
4000 2000 5000 5200 20 4.4349
4000 2000 5000 6000 1 4.0752
4000 2000 5000 5200 1 3.9022
4000 2000 5000 5500 1 3.8052
4000 2000 5530 5680 20 3.5714
4000 2000 5000 7000 100 3.1359
4000 6000 6000 4000 1 2.9787
4000 2000 5000 5000 20 2.963
4000 4240 5530 5680 1 2.2901
4000 6000 6000 4000 20 2.2556
4000 7000 7000 3000 1 1.049
3000 3000 6000 6000 20 0.9709
6000 5000 7000 3000 20 0.8021
6000 5000 7000 3000 1 0.7576
6000 4000 6000 3000 1 0.7463
4000 6000 6000 3000 1 0.6349
4000 6000 6000 3000 20 0.5386
4000 7000 6000 3000 1 0.4968
6000 7000 7000 3000 20 0.3774
7000 7000 7000 3000 20 0.3538
4000 6000 6000 3000 100 0.3247
5000 6000 7000 3000 20 0.324
4000 6000 7000 3000 20 0.3005
5000 6000 7000 3000 1 0.2959
5000 7000 7000 3000 20 0.2227
txt3
7000 7000 7000 3000 20 4.717
6000 5000 7000 2000 100 4.3421
6000 7000 7000 3000 20 4.3019
7000 7000 7000 2000 100 3.7037
4000 7000 7000 2000 100 3.6145
6000 5000 7000 3000 20 3.6096
4000 7000 6000 2000 20 3.528
6000 7000 7000 2000 100 3.4946
5000 7000 7000 2000 100 3.4483
4000 6000 7000 2000 100 3.1667
5000 6000 7000 2000 1 3.1492
4000 7000 7000 3000 1 3.1469
6000 6000 7000 2000 20 3.022
5000 6000 6000 2000 1 2.9851
4000 6000 6000 3000 100 2.9221
4000 7000 6000 2000 1 2.921
5000 7000 7000 2000 1 2.8939
4000 5170 7000 2540 1 2.8
4000 6000 7000 2000 1 2.7978
5000 6000 6000 2000 20 2.7624
4000 7000 7000 2000 20 2.727
6000 5000 7000 2000 1 2.6801
4000 5900 6000 2000 1 2.6738
6000 5000 7000 2000 20 2.6713
6000 4000 6000 3000 20 2.6706
4000 6000 7000 2000 20 2.6646
4000 6000 6000 3000 1 2.6587
4000 6000 6000 2000 100 2.5921
6000 7000 7000 2000 20 2.5729
4000 6000 6000 2000 1 2.3767
5000 6000 7000 2000 20 2.2951
4000 6000 6000 2000 20 2.2399
4000 7000 7000 3000 20 2.1997
6000 7000 7000 3000 1 2.1164
7000 7000 7000 2000 20 2.1004
7000 7000 7000 3000 1 2.0833
4000 6000 6000 3000 20 2.0674
4000 5000 7000 2000 20 2.0478
4000 7000 7000 2000 1 2.0333
5000 7000 7000 3000 20 2.0045
5000 7000 6000 3000 20 1.9608
7000 7000 7000 2000 1 1.9495
6000 7000 7000 2000 1 1.9095
4000 6000 7000 3000 20 1.8032
6000 6000 7000 2000 1 1.75
5000 6000 7000 3000 1 1.6765
4000 6000 7000 3000 1 1.676
5000 7000 7000 2000 20 1.6145
4000 5170 7000 2540 20 1.5222
6000 5000 7000 3000 1 1.5152
以前五个数字为主键比较三个表相等的项,并把它们对应的最后一位数相加求和,最后对整体求和出的数进行排序,不链接数据库,直接从txt中提取数据,用list,split的方法怎么做

4个回答

caozhy
caozhy   Ds   Rxr 2016.03.08 09:18
 Dim data1 = File.ReadAllLines("1.txt").Select(Function(x) x.Split(" "))
Dim data2 = File.ReadAllLines("2.txt").Select(Function(x) x.Split(" "))
Dim data3 = File.ReadAllLines("3.txt").Select(Function(x) x.Split(" "))
var query = data1.Concat(data2).Concat(data3).GroupBy(Function(x) String.Join(" ", x.Take(5))).Select(Function(x) New With { .id=x.Key, .v = x.Sum(Function(y) Val(x(5))) })
caozhy
caozhy   Ds   Rxr 2016.03.08 09:23

var query
->
Dim query

输出结果
For Each item in query
Console.WriteLine(item.id + " " + item.v)

sunwenna
sunwenna   2016.03.08 09:13

悬赏20 微信转账!

sunwenna
sunwenna   2016.03.08 09:14

悬赏20 微信转账!

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!