VB.Net OutOfMemoryException Substring

stimmen
1

Ich habe ein Problem in meiner Schleife. Ich teilte ein Textdokument in x kleineren. Das Problem ist, dass die Dokumente werden immer größer, auch wenn sie die gleiche groß sein sollte. Wenn die dritte oder die vierte Textdokument erstellt wird, ich bin immer ein SystemOutofMemory Exception (was logisch ist).

Jeder, der einen Fehler in meiner Schleife sehen?

Ich habe es schon versucht

 Sub splitFile()
    Dim SplitNumber As Long = Textlaenge / Splitanzahl
    Dim endindex As Long = 0

    For i As Int64 = 1 To Splitanzahl
        Dim nab As String = inhalt.Substring(endindex, SplitNumber * i)
        Dim index As Long = inhalt.IndexOf(><, nab.Count)

        Dim FinalString As String = inhalt.Substring(endindex, index + 1)

        endindex = index + 1

        If i = 1 Then

            FinalString = FinalString & </ifapRohdaten>
        Else
            'FinalString = TEST & FinalString & </ifapRohdaten>
        End If

        If i = Splitanzahl Then
            'FinalString = TEST & FinalString
        End If

Region Textdatei Schreiben

        'Hier wird der text in eine Textdatei geschrieben und unter dem 
         angegebenden Pfad abgespeichert
        Dim objStreamWriter As StreamWriter
        'Pass the file path and the file name to the StreamWriter 
          constructor.
        objStreamWriter = New StreamWriter(C:\Users\jd\Desktop\ & Artikel & i & .xml)

        'Write a line of text.
        objStreamWriter.Write(FinalString)

        'Close the file.
        objStreamWriter.Close()

        objStreamWriter = Nothing
    Next

Geben

Veröffentlicht am 18/12/2018 um 11:09
quelle vom benutzer
In anderen Sprachen...                            

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more