萨姆在2D阵列上多张线元件（4）的（txt文件）

  • Z时代
  • 2024-01-10
  • 分类：问答

我有一个文本文件，它读取：萨姆在2D阵列上多张线元件（4）的（txt文件）

留守，拉海伊，F，7,11.25

的双城记，狄更斯，F，100,8.24

悬挂一千树木丝带，里纳尔迪，F，30,16.79

Saffy的天使，麦凯，F，20,8.22

每个小鸟，吟唱， Wiles，F，10,7.70

在基督里，穆雷，N守法，3,12.20

圣经预言，莱希和欣德森，N，5,14.95

迷人，埃尔德雷奇，N，12,16

深成长在基督徒的生命，Swindoll，N，11,19.95

祷告是医治心，Virkler，N，4,12.00

成长格雷斯，弗格森，N，3,11.95

的善，美神，史密斯，N，7,11.75

战胜黑暗，安德森，N，12,16

每一行的最后一个元素是有代价的。我想把所有的价格加起来。我一直在寻找这么多小时，找不到回答我的问题的事情。这似乎很容易，但我无法弄清楚！请帮忙。顺便说一句，这个列表必然会发生改变（添加行，删除行，改变行），所以如果可以的话，请不要具体，但要保持代码的可变性。谢谢！！！

只是让你可以看到我的pooooorrrr工作，这里是我（我想我删除了我的代码，现在重写了几个小时的方式不同。）：

Dim Inv() As String = IO.File.ReadAllLines("Books.txt") 
    Dim t As Integer = Inv.Count - 1 
    Dim a As Integer = 0 to t 
    Dim sumtotal As String = sumtotal + Inv(4)

也 每行具有“F”或“N”。我如何合计所有的F和所有的N。我是否通过if语句做到这一点？

回答：

首先，你最好使用Double作为你的类型而不是String。其次，观察我如何在每一行上使用Split函数，将其最后一个元素作为double来投射，并将其添加到总数中。是的，使用if语句是如何确定是否要增加F的计数或N的计数

Dim lstAllLines As List(Of String) = IO.File.ReadAllLines("Books.txt").ToList() 
    Dim dblTotal As Double = 0.0 
    Dim intCountOfF As Integer = 0 
    Dim intCountOfN As Integer = 0 
    For Each strLine As String In lstAllLines 
     Dim lstCells As List(Of String) = strLine.Split(",").ToList() 
     dblTotal += CDbl(lstCells(3)) 
     If lstCells(2) = "F" Then 
      intCountOfF += 1 
     Else 
      intCountOfN += 1 
     End If 
    Next

以上是 萨姆在2D阵列上多张线元件（4）的（txt文件） 的全部内容， 来源链接： utcz.com/qa/260149.html

回到顶部