Ahnenblattportal

Code: Alles auswählen

Private Sub Enttabben(ByRef Eingabe As String)
        Dim Tr As String = ""
        Dim Counter As Integer
        Dim Su As String = ""
        Dim neu As String = ""
        Dim Zä As Long
        Tr = vbTab
        Eingabe = Eingabe.Replace("#", "-")        
        If Rightt(Eingabe, 1) = Tr Then
            Do Until Rightt(Eingabe, 1) <> Tr
                Eingabe = Mid$(Eingabe, 1, Len(Eingabe) - 1)
                Zä = Zä + 1
            Loop

            For iii = 1 To Zä
                neu = neu & "#"
            Next iii
            Eingabe = Eingabe & neu
        End If

        For Counter = 50 To 1 Step -1
            Su = ""
            neu = ""
            For iii = 1 To Counter
                Su = Su & Tr
            Next iii
            Su = """" & Su
            Su = Su & """"

            For iii = 1 To Counter
                neu = neu & "#"
            Next iii
            neu = """" & neu
            neu = neu & """"
            Eingabe = Eingabe.Replace(Su, neu)
            Next
        Eingabe = Eingabe.Replace(Tr, " ")
        Eingabe = Eingabe.Replace("#", Tr)
        End Sub
    Private Sub Auffüllen(ByRef Füllstring As String)
        Dim m As Integer = 0
           For m = Len(Füllstring) To 4
           Füllstring = " " + Füllstring
        Next m
         End Sub

Übergeben wird eine ganze Zeile (alle Felder) einer Person.

Da es den Befehl right$ in vb.net nicht gibt wurde er nachgebildet:

Public Function Rightt(ByVal sText As String, _
      ByVal nLen As Integer) As String
        If nLen > sText.Length Then nLen = sText.Length
        Return (sText.Substring(sText.Length - nLen))
End Function

Code: Alles auswählen

      Private Function readcsv(ByRef pfad As String, ByRef trenner As String) As List(Of clAhnenDataItem)
        Dim myData As New List(Of clAhnenDataItem)  'datenspeicher aller personen

        Dim afile As FileIO.TextFieldParser = New FileIO.TextFieldParser(pfad, System.Text.Encoding.Default)
        Dim csv_line As String() 'array enthält immer eine Zeile
        afile.TextFieldType = FileIO.FieldType.Delimited
        afile.Delimiters = New String() {trenner}
        afile.HasFieldsEnclosedInQuotes = True

        Dim kopf As Boolean = True
        Do While Not afile.EndOfData        'alle zeilen durchgehen
            Try
                csv_line = afile.ReadFields
                If kopf = True Then
                    'tabellenkopf
                    leseKopf(csv_line) 'alle items der zeile durchgehen
                    kopf = False
                Else
                    'neuer datenspeicher für eine Person
                    Dim myTData As New clAhnenDataItem
                    myTData = lesePerson(csv_line)
                    If Not myTData Is Nothing Then
                        myData.Add(myTData)
                    End If
                End If
            Catch ex As FileIO.MalformedLineException
                Stop
            End Try
        Loop
        Return myData
    End Function