Textdatei modifizieren

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von BjöNi.

    Textdatei modifizieren

    Hallo, ich benötige eure hilfe. Ich möchte eine Funktion schreiben, mit deren Hilfe ich eine Textdatei einlesen kann (alle darin enthaltenen Zeilen) und den inhalt um einige Textteile erweitert in einer neuen Textdatei (als XML-file) abspeichern kann.
    Anbei der Vorschlag:

    VB.NET-Quellcode

    1. Public Function CreateTipps(ByVal filenamein As String, _
    2. ByVal filenameout As String) As Boolean
    4. 'Funktion erstellt aus einer TippEingabe-Datei
    5. 'eine Ausgabedatei nach vorgegebenem Muster
    7. Try
    8. Dim tipplinelist As New List(Of String)
    10. With tipplinelist
    11. .Add("<oelg>")
    12. .Add("<versionsNr>1.0</versionsNr>")
    13. .Add("<kundenNr>1</kundenNr>")
    14. .Add("<spielID>1</spielID>")
    15. .Add("<wsArt>10</wsArt>")
    16. .Add("<tnDauer>1</tnDauer>")
    17. .Add("<schein>")
    18. End With
    20. Dim tipplinesin() As String = IO.File.ReadAllLines("C:\TestFolder\A.txt")
    22. For i As Integer = 0 To tipplinesin.Length - 1
    23. Dim tippline As String = CreateTippLineOut(tipplinesin(i))
    24. If tippline Is Nothing Then Return False
    26. tipplinelist.Add("<lottoTip>" & tippline & "</lottoTip>")
    27. Next i
    29. With tipplinelist
    30. .Add("</schein>")
    31. .Add("</oelg>")
    32. End With
    34. IO.File.WriteAllLines("c:\TestFolder\B.txt", tipplinelist.ToArray)
    36. Catch
    37. Return False
    38. End Try
    40. End Function


    Gibt es Verbesserungsvorschläge ? Danke, MfG, Gerhard.

Facebook