VB.Net OutOfMemoryException Subcadena

votos
1

Tengo un problema en mi bucle. Me dividir un documento de texto en x más pequeños. El problema es que los documentos están haciendo más grandes, a pesar de que deben ser los mismos grande. Cuando se crea la tercera o la cuarta TextDocument que estoy recibiendo una excepción SystemOutofMemory (lo cual es lógico).

Cualquiera que vea un error en mi Loop?

Ya he intentado

 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

Región 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

introducir

Publicado el 18/12/2018 a las 11:09
fuente por usuario
En otros idiomas...                            

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