VB.Net OutOfMemoryException Substring

voix
1

J'ai un problème dans ma boucle. Je coupais un document de texte en x plus petits. Le problème est que les documents deviennent plus grands, même si elles devraient être le même grand. Lorsque le troisième ou le quatrième TextDocument est créé, je reçois une exception SystemOutofMemory (ce qui est logique).

Tout le monde qui voient une erreur dans ma boucle?

Je l'ai déjà essayé

 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

Région 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

entrez

Créé 18/12/2018 à 11:09
source utilisateur
Dans d'autres langues...                            

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