vb.net获取数组的第一行和最后一行的*值*

Question

我有一系列这样的数字:

{10 20 30 40 50 60 70 80 90}

起始和结束数字并不总是相同(实际上它们都不会).

我想获得第一个和最后一个条目的值(而不是索引).

所以在上面的例子中,我感兴趣的是值"10"和"90".

这个数组是用逗号分隔的文本文件构造的,如下所示:

10,3.456
20,3.588
30,3.640
40,3.790
50,3.850
60,3.680
70,3.480
80,3.280
90,3.765

这是我的代码:

    Dim arrName, arrValue As New List(Of String)()
    Dim sdata() As String
    Dim column1, column2 As Decimal

For Each line As String In IO.File.ReadAllLines("c:\file.txt")
    If line <> "" And Not line.StartsWith("#") Then
        sdata = line.Split(","c)
        arrName.Add(sdata(0).Trim())
        arrValue.Add(sdata(1).Trim())
        ' get data from array
        column1 = sdata(0)
        column2 = sdata(1)
End If
Next

所以我想要的是能够创建两个变量:

column1Lowest=<the lowest value> (in this case 10)
column1Highest=<the highest value> (in this case 90)

我已经尝试了几种方法,但我似乎每次都回来的是整个数组,或者"-1"(在我知道的数组中找不到匹配).

我尝试过的东西:IndexOf(),FirstIndexOf(),LastIndexOf()

我只对第1列中最低的最高值感兴趣(但我仍在其他地方使用其余的).

我现在没有想法.

请帮助 - 以新手可以理解的形式给出答案.

谢谢.

编辑:

为了添加Steve的答案,我尝试了Inumerable strings选项,但我相信我遇到了我的文件格式问题 - 有些文件很好 - 有些文件没有(通常是在最后一行数据后没有换行的文件!).

这是我的代码:

Dim Lines As Collections.Generic.IEnumerable(Of String) = File.ReadLines("c:\file.txt").Where(Function(q) q.StartsWith("#") = False)
        Line0 = Lines.FirstOrDefault
        LineN = Lines.LastOrDefault
       lowestNum = Line0.Split(New Char() {","c})
        highestNum = LineN.Split(New Char() {","c})
        lowNum = lowestNum(0)
        highNum = highestNum(0)

等等..

所以,如果我想在我已经解析过的文件中使用这一块代码 - 我将如何使用现有的数组呢？

我刚尝试过:

Dim Lines As Collections.Generic.IEnumerable(Of String) = {column1}
                FirstValue = Lines.FirstOrDefault
                LastValue = Lines.LastOrDefault

但这仍然打印整个阵列？

要显示我正在使用的输出:

    ListBox2.Items.Add(FirstValue)
    ListBox1.Items.Add(LastValue)

我已经尝试在"For Each"循环内外插入列表框代码.把它们放在外面给了我可变的问题 - 所以我试图在循环之外声明变量无济于事.

我确实说我是新手!

Answer 1

您可以使用这些漂亮的IEnumerable扩展

Dim first = numbers.First()
Dim last = numbers.Last()

但是,如果您只想要数组的第一个和最后一个元素或者数组中的最高和最低值,那么您的问题就不清楚了.

对于第二种情况,你有

Dim high = numbers.Max()
Dim low = numbers.Min()

我还注意到你使用字符串来管理这些值,但如果它们是数字并且你想要检索最高和最低的数字,那么你绝对应该将这些值转换为整数,否则你将很难向你的计算机解释字符串"100"高于字符串"20".

编辑
循环你的行并将每一行转换为小数然后得到最小值和最大值(注意,不检查输入的正确性)

Dim names = new List(Of Decimal)()
Dim values = new List(Of Decimal)()
For Each line As String In IO.File.ReadAllLines("c:\file.txt")
    If line <> "" And Not line.StartsWith("#") Then
        sdata = line.Split(","c)
        names.Add(Convert.ToDecimal(sdata(0).Trim()))
        values.Add(Convert.ToDecimal(sdata(1).Trim()))
    End If
Next
Dim lowValue = names.Min()
Dim highValue = names.Max()