Code für die Zeilentranformation

Public Class ScriptMain
    Inherits UserComponent
    Private Zeilennummer As Integer = 1     ' erste Zeile enthält die Spaltenköpfe

    Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)
        Dim Columns As String() = Nothing
        Dim Column As String
        Dim Ende As Integer
        Dim I As Integer

        If Zeilennummer > 1 Then
            Columns = Row.Column0.Split(New [Char]() {Chr(9)})
            Ende = Columns.GetUpperBound(0)
            For I = 0 To Columns.GetUpperBound(0)
                With Row
                    Select Case I
                        Case 0
                            .Feld1 = Columns(I)
                        Case 1
                            .Feld2 = Columns(I)
                        Case 2
                            .Feld3 = Columns(I)
                        Case 3
                            .Feld4 = Columns(I)
                        Case 4
                            .Feld5 = Columns(I)
                        Case 5
                            .Feld6 = Columns(I)
                        Case 6
                            .Feld7 = Columns(I)
                        Case 7
                            .Feld8 = Columns(I)
                        Case 8
                            .Feld9 = Columns(I)
                        Case 9
                            .Feld10 = Columns(I)
                    End Select
                End With
            Next
        Else
            Row.Feld1 = Nothing
        End If
        Zeilennummer += 1           ' Zeilennummer erhöhen
    End Sub

End Class