VB.Net OutOfMemoryException Substring

votos
1

Eu tenho um problema no meu loop. Eu dividir um documento de texto em x menores. O problema é que os documentos estão ficando maiores, mesmo que deve ser o mesmo grande. Quando a terceira ou a quarta TextDocument é criado estou recebendo uma exceção de SystemOutofMemory (o que é lógico).

Qualquer pessoa que encontrar um erro na minha Loop?

Eu já tentei

 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ão 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

digite

Publicado 18/12/2018 em 11:09
fonte usuário
Em outras línguas...                            

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