VB.Net OutOfMemoryException podciągu

głosy
1

Mam problem w moim pętli. I podzielić dokument tekstowy w X mniejszych. Problem polega na tym, że dokumenty są coraz większe, choć powinny być one takie same duże. Gdy trzeci lub czwarty Textdocument zostanie utworzony Otrzymuję SystemOutofMemory Exception (co jest logiczne).

Każdy, kto pojawi się błąd w moim pętli?

Próbowałem już

 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

wprowadzić

Utwórz 18/12/2018 o 11:09
źródło użytkownik
W innych językach...                            


1 odpowiedzi

VB.Net OutOfMemoryException podciągu

głosy
1

Mam problem w moim pętli. I podzielić dokument tekstowy w X mniejszych. Problem polega na tym, że dokumenty są coraz większe, choć powinny być one takie same duże. Gdy trzeci lub czwarty Textdocument zostanie utworzony Otrzymuję SystemOutofMemory Exception (co jest logiczne).

Każdy, kto pojawi się błąd w moim pętli?

Próbowałem już

 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

wprowadzić opis obrazu tutaj

Odpowiedział 18/12/2018 o 11:09
źródło użytkownik

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