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 extensions

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()

Answer 2

列表或数组中的第一个元素始终的索引为0，最后一个元素总是 List.Count - 1或Array.Length - 1，具体取决于您是否使用数组或列表。因此，您可以使用以下命令从数组中获取第一个和最后一个值：

arrayLowest = arrayVariable(0)
arrayHighest = arrayVariable(arrayVariable.Length - 1)
listLowest = listVariable(0)
listHighest = listVariable(listVariable.Count - 1)

您提及的其他方法（IndexOf()，FirstIndexOf()，LastIndexOf()）用于查找给定元素的索引。例如，如果您想知道元素90在列表/数组中的哪个位置，您可以使用它们。

请注意，默认情况下不对数组或列表进行排序，因此如果要从数组或列表中获取最小值和最大值，则需要使用Steve提到的扩展，或者对列表/数组进行排序，然后获取第一个和最后一个值，或循环遍历列表/数组并执行比较。

Answer 3

尝试此操作以获取第一个和最后一个值：

Dim FirstValue As String = sdata(0)
Dim LastValue As String = sdata(sdata.Length - 1)

Answer 4

首先确保只有在数组的大小为＆gt;时才尝试访问元素。 0，然后像这样访问第一个和最后一个元素：

Dim lowest, highest As String;
If arrValues.Length > 0 Then
  lowest = arrValues(0);
  highest = arrValues(arrValues.Length - 1);
End If

Array.Length返回元素的数量，因为元素从0开始索引，最后一个元素将是Length - 1。

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

4 个答案:

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

4 个答案:

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