jj: oh my god /o\

Jobs/EDMI/ZUGFeRD/PropertyValues.vb

@@ -0,0 +1,68 @@
+Imports System.Reflection
+Imports System.Text.RegularExpressions
+
+Public Class PropertyValues
+    Private Shared _indexPattern = "\((\d+)\)"
+    Private Shared _indexRegex As Regex = New Regex(_indexPattern)
+
+    Public Shared Function GetPropValue(Obj As Object, PropertyName As String)
+        Dim oNameParts As String() = PropertyName.Split("."c)
+        Dim oIndexReplaceRegex = "\(\d+\)"
+
+        If IsNothing(Obj) Then
+            Return Nothing
+        End If
+
+        If oNameParts.Length = 1 Then
+            Return Obj.GetType().GetProperty(PropertyName).GetValue(Obj, Nothing)
+        End If
+
+        For Each oPart As String In oNameParts
+            Dim oType As Type = Obj.GetType()
+            Dim oPartName = oPart
+            Dim oIndex As Integer = Nothing
+            Dim oHasIndex As Boolean = HasIndex(oPartName)
+
+            If oHasIndex Then
+                oPartName = StripIndex(oPart)
+                oIndex = GetIndex(oPart)
+            End If
+
+            Dim oInfo As PropertyInfo = oType.GetProperty(oPartName)
+
+            If IsNothing(oInfo) Then
+                Return Nothing
+            End If
+
+            Obj = oInfo.GetValue(Obj, Nothing)
+
+            If oHasIndex Then
+                Obj = Obj(0)
+            End If
+        Next
+
+        Return Obj
+    End Function
+
+    Private Shared Function GetIndex(Prop As String) As Integer
+        If Regex.IsMatch(Prop, _indexPattern) Then
+            Dim oMatch = _indexRegex.Match(Prop)
+            Dim oGroup = oMatch.Groups.Item(1)
+            Dim oValue = oGroup.Value
+
+            Return Integer.Parse(oValue)
+        End If
+
+        Return Nothing
+    End Function
+
+    Private Shared Function StripIndex(Prop As String) As String
+        Return Regex.Replace(Prop, _indexPattern, "")
+    End Function
+
+    Private Shared Function HasIndex(Prop As String) As Boolean
+        Return Regex.IsMatch(Prop, _indexPattern)
+    End Function
+
+
+End Class