Hi Leute,
ich will eine große Textdatei mit 170.000 Zeilen verarbeiten. Jedoch stürzt meine Anwendung beim lesen/ verarbeiten ab. Ich hab mit der Größe einer Datei noch nie was zu tun gehabt. Hier mal ein Auszug, vllt. kann mir jemand einen Tipp geben.

Private Sub openfile()
Dim ofd As New OpenFileDialog
With ofd
If .ShowDialog = Windows.Forms.DialogResult.OK Then
objText.Clear()
readFile(.FileName)
End If
End With
End Sub

Private Sub readFile(ByVal path As String)
Dim sr As New StreamReader(path)
Dim strString, feld, inhalt As String
Do While sr.Peek >= 0
strString = sr.ReadLine.Remove(0, 3)
If strString.Length > 4 Then
feld = "<" & strString.Remove(4) & ">"
inhalt = strString.Remove(0, 4)
objText.Text += feld & inhalt & feld & vbCrLf
Else
feld = "<" & strString & ">"
objText.Text += feld & "-" & feld & vbCrLf
End If
Loop
sr.Dispose()
sr.Close()
End Sub

Danke für euere Hilfe.

2.5 MB ist nicht gross. Habe schon wesentlich grössere Dateien geladen.
Hast du noch eine Exception? VB ist zwar nicht mein Ding, aber Exceptions kennt es auch. Ich denke da vielleicht an ein Index beim Remove ausserhalb eines Ranges ode so.

@Spacejam: Kannst du mal bitte eine exemplarische Datei posten... dann könnte man noch bissl experimentieren und nachvollziehen warum der Code oben nicht geht. danke