时间戳

首页 > 解决方案 > 设置字符串变量以从结构化数组中获取值

arrays - 设置字符串变量以从结构化数组中获取值

问题描述

我在 VB.net 中有一个简单的问题。我想使用字符串从声明为结构的数组中检索数据以可视化变量。在我的代码下面：

Module DataAnalisys

Dim InputData(100000) As InputDataStructure
Dim VariablesParameter(6) As VariablesParameterStructure
Dim VariablesGlobal(6) As VariablesDataStrucutre

Structure InputDataStructure
    Dim ID As Integer
    Dim FileId As Integer
    Dim ProductionDate As Date
    Dim ProductionTime As Date
    Dim Shift As Integer
    Dim IPP As Integer
    Dim BPS As Integer
    Dim SerialNumber As String
    Dim Top As Single
    Dim Bottom As Single
    Dim Right As Single
    Dim Left As Single
    Dim OffCutH As Single
    Dim OffCutV As Single
    Dim Row As Byte
    Dim Col As String
    Dim Position As String
    Dim Pack As Integer
    Dim Sheet As Integer
    Dim SheetInPack As Integer
End Structure

Structure VariablesParameterStructure
    Dim NameParameter As String
    Dim Target As Single
    Dim Tolerance As Single
    Dim LowTolerance As Single
    Dim UppTolerance As Single
End Structure

Structure VariablesDataStrucutre
    Dim NameData As String
    Dim Position As String
    Dim N As Long
    Dim Mean As Single
    Dim Difference As Single
    Dim Scrap As Single
    Dim ScrapGreat As Single
    Dim ScrapLess As Single
    Dim SeMean As Single
    Dim StDev As Single
    Dim Min As Single
    Dim Q1 As Single
    Dim Median As Single
    Dim Q3 As Single
    Dim Max As Single
End Structure

Sub RoutineAnalisysGlobal()

    For B As Byte = 0 To VariablesGlobal.Length - 1

        Dim ID As String = VariablesParameter(B).NameParameter
        Dim Target As Single = VariablesParameter(B).Target
        Dim LowTol As Single = VariablesParameter(B).LowTolerance
        Dim UppTol As Single = VariablesParameter(B).UppTolerance

        With VariablesGlobal(B)
            .NameData = ID
            .Position = "All"
            .N = InputData.Length
            .Mean = InputData.Average(Function(f) f.ID)
            .Difference = .Mean - Target
            .ScrapLess = InputData.Count(Function(f) f.ID < LowTol)
            .ScrapGreat = InputData.Count(Function(f) f.ID > UppTol)
            .Q1 = InputData.FirstQuartile(Function(F) F.ID)
            .Min = InputData.Min(Function(f) f.ID)
            .Median = InputdataMedian(Function(f) f.ID)
            .Q3 = InputData.ThirdQuartile(Function(f) f.ID)
            .Max = InputData.Max(Function(f) f.ID)
        End With
    Next

End Sub

End Module

VariablesParameter().Name 是 Top、Bottom、Right、Left、OffCutH 和 OffCutV。

当我使用部分 (Function(f) f.ID) 时，代码不起作用，因为我想根据 for 循环在 InputData 结构的不同项目上使用该函数。我想显示 f.Top f.Bottom f.Right f.Left f.OffCutH 和 f.OffCutV。

有人想帮助我吗？我正在研究如何将字符串 ID 转换为 InputData 的变量。?????? 结构体。

标签： arraysvb.netstructure

解决方案

我认为你正在寻找的是这样的：

Dim functions As Func(Of InputDataStructure, Single)() = {Function(ids) ids.Top,
                                                          Function(ids) ids.Bottom,
                                                          Function(ids) ids.Right,
                                                          Function(ids) ids.Left,
                                                          Function(ids) ids.OffCutH,
                                                          Function(ids) ids.OffCutV}

For i = 0 To VariablesGlobal.GetUpperBound(0)
    With VariablesGlobal(i)
        '...
        .Mean = InputData.Average(functions(i))
        '...
    End With
Next

作为解释，Function(f) f.ID这一行的一部分：

.Mean = InputData.Average(Function(f) f.ID)

是一个 lambda 表达式，即匿名方法的委托。您调用的Average方法需要一个方法的委托，该方法具有一个 type 参数T，其中匹配您调用它T的泛型类型，并返回数字类型的值，例如or 。在您的情况下，您正在调用实现. 您的 lambda 表达式有一个类型参数并返回一个，因此它适用于. 该方法为列表中的每个项目调用该委托，获取所有数字结果，然后将其除以列表中的项目数以获得平均值。IEnumerable(Of T)IntegerSingleAverageInputDataIEnumerable(Of InputDataStructure)InputDataStructureIntegerAverageAverage

为了更清楚那里发生了什么，您可以使用命名方法而不是 lambda 表达式。你可以写这个方法：

Private Function GetID(f As InputDataStructure) As Integer
    Return f.ID
End Function

然后将您的代码更改为：

.Mean = InputData.Average(AddressOf GetID)

希望您能识别出该命名方法中与 lambda 表达式相对应的部分以及推断出的部分。

现在，您有许多使用相同 lambda 表达式的代码行，例如

.Min = InputData.Min(Function(f) f.ID)
.Median = InputdataMedian(Function(f) f.ID)
.Q3 = InputData.ThirdQuartile(Function(f) f.ID)

对于如此简单的事情，习惯性地按照自己的方式去做。不过，您确实可以选择编写一次 lambda 表达式，将其分配给一个变量，然后多次使用该变量。你可以这样做：

Dim f As Func(Of InputDataStructure, Integer) = Function(ids) ids.ID

或这个：

Dim f = Function(ids As InputDataStructure) ids.ID

f以引用一个委托的变量结束，该委托接受一个类型的参数InputDataStructure并返回一个类型的值Integer。然后，您可以在之前使用多个 lambda 表达式的地方使用该变量：

.Min = InputData.Min(f)
.Median = InputdataMedian(f)
.Q3 = InputData.ThirdQuartile(f)

因此，既然我们确定您需要的只是一个方法的委托，该方法接受正确类型的参数并返回正确类型，请再看一下我发布的代码。它首先创建一个包含六个委托的数组，每个委托都接受一个类型的参数InputDataStructure并返回一个类型的值Single。然后，您可以在需要此类委托的任何地方使用该数组的元素。

这意味着您可以遍历该数组并将每个委托传递给期望此类委托的所有扩展方法，包括Average. 如果您在索引 0 处获得委托，那么您将获得返回Top属性值的委托，因此Average将获得平均值Top。如果您使用索引 5，那么您将获得返回OffCutV属性值的委托，因此Average将获得平均值OffCutV。等等。

作为记录，我建议在指示类型的 lambda 中使用参数名称。你用过f，但没有意义。参数类型表明了这一点InputDataStructure。ids

推荐阅读