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:
Gibt es Verbesserungsvorschläge ? Danke, MfG, Gerhard.
Anbei der Vorschlag:
VB.NET-Quellcode
- Public Function CreateTipps(ByVal filenamein As String, _
- ByVal filenameout As String) As Boolean
- 'Funktion erstellt aus einer TippEingabe-Datei
- 'eine Ausgabedatei nach vorgegebenem Muster
- Try
- Dim tipplinelist As New List(Of String)
- With tipplinelist
- .Add("<oelg>")
- .Add("<versionsNr>1.0</versionsNr>")
- .Add("<kundenNr>1</kundenNr>")
- .Add("<spielID>1</spielID>")
- .Add("<wsArt>10</wsArt>")
- .Add("<tnDauer>1</tnDauer>")
- .Add("<schein>")
- End With
- Dim tipplinesin() As String = IO.File.ReadAllLines("C:\TestFolder\A.txt")
- For i As Integer = 0 To tipplinesin.Length - 1
- Dim tippline As String = CreateTippLineOut(tipplinesin(i))
- If tippline Is Nothing Then Return False
- tipplinelist.Add("<lottoTip>" & tippline & "</lottoTip>")
- Next i
- With tipplinelist
- .Add("</schein>")
- .Add("</oelg>")
- End With
- IO.File.WriteAllLines("c:\TestFolder\B.txt", tipplinelist.ToArray)
- Catch
- Return False
- End Try
- End Function
Gibt es Verbesserungsvorschläge ? Danke, MfG, Gerhard.