Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datei Zu Groß ???
Autor: Huul
Datum: 31.01.03 12:18
Hi, ich habe eine große txt-Datei mit etwa 27.000 Einträgen wie kann ich diese mit Hilfe von VB schnell einlesen und nach einer Aktion wieder speichern ich habe folgenden Code der auch funktioniert allerdings bleibt mir das Programm hängen wenn die Datei größer als cd. 600KB ist. Ich denke das mein Fehler in der Variablen vergabe liegt da ich den ganzen Text an eine Variable übergebe. Ic hweiß aber nicht wie ich es anderst machen könnte. Hier der Code: Dim File As String Dim ff As Integer Dim FileGroesse As Long Dim txtZeile As String Dim Test As String Private Sub Einlesen() On Error GoTo Exception File = "C:\Entwicklung\test.txt" ff = FreeFile Open File For Input As #ff Do While Not EOF(ff) Line Input #ff, txtZeile Test = Test & vbCrLf & txtZeile Loop Close #ff Exit Sub Exception: MsgBox "Die Datei konnte nich gefunden werden", vbOKOnly, "Fehlerbehandlung" MsgBox "Schauen Sie im Verzeichnis " & vbCrLf & File & vbCrLf & " nach ob die Datei vorhanden ist." End Sub Private Sub Speichern() On Error GoTo Exception File = "C:\Entwicklung\system_2003_02.txt" ff = FreeFile Open File For Output As #ff Print #ff, Test Close (ff) MsgBox "Datei wurde erfolgreich geschrieben", vbOKOnly If vbOKOnly = False Then End End If Exit Sub Exception: MsgBox "Datei konnte nicht gespeichert werden!", vbOKOnly, "Fehler" End Sub Private Sub Form_Load() Einlesen DeleteBlank Speichern End Sub

Datei Zu Groß ???	90	Huul	31.01.03 12:18
Re: Datei Zu Groß ???	234	Dieter	31.01.03 12:50
Re: Datei Zu Groß ???	45	rasmel	31.01.03 13:26

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen