Dateien laden, Dateigröße

hi,
ich hab ein programm geschrieben, welches eine textdatei mit messwerten lädt, und dann sowohl zeilen als auch spalten zählt(anhand der zeichen ascii 9 u 10).
funktioniert bei ner normalen textgröße auch wunderbar
nun habe ich jedoch textdateien mit einer größe von 100 MB. da versagt das programm.
meine frage: gibt es eine grenze bei der größe von dateien, die man laden kann?
oder hat jemand vielleicht ne andere idee, wo das problem liegen könnte?
ist die anweisung zum laden der datei falsch gewählt?
hier mein code:
'variablen für das reine spalten und zeilenzählen
Public ReadFile As String
Public zeichen 'zeichen im string beim zählen der zeilen und spalten
Public Länge 'ist die Länge des Gesamtstrings
Public Anzahl 'ist die Anzahl der Zeilen
Public Spalten 'ist die Anzahl der Spalten
Public Ascii 'ist der Ascii-Wert eines Zeichens
Public merkez 'ist die Stelle, an der die erste überzählige Zeile erreicht wird
Public kopfzeile As String 'ist der Kopfzeilenstring
Public daten As String


Sub Zeichenzählen()
Dim frage 'ist der Wert der Ja/Nein Frage
Anzahl = 0
Spalten = 1
ReadFile = Application.GetOpenFilename("Dateityp (*.txt; *.log; *.dat; *.asc; *.doc; *.rtf),")
If ReadFile = "Falsch" Then Exit Sub
'Die Zeilen und Spalten des Strings werden erfasst, gezählt
'und für weitere Operationen wichtige Stellen werden gespeichert
Open ReadFile For Random As #1
Do While Not EOF(1)
Länge = Len(daten)
For x = 1 To Länge
zeichen = Mid(daten, x, 1)  'der ascii wert eines jeden zeichen wird ausgewerten
Ascii = Asc(zeichen)
If Ascii = 10 Then         'wenn der ascii=10, dann newLine/ende einer zeile
Anzahl = Anzahl + 1
End If
If Ascii = 9 And Anzahl = 0 Then  'wenn ascii=9, dann tab/neue spalte ->spalten werden nur   _
_
anhand der ersten zeile gezählt
Spalten = Spalten + 1
End If
If Anzahl = 65536 Then     'stelle im datenstring, an der mehr als excelzeilen erreicht  _
werden
merkez = x
End If
If Anzahl = 0 Then            'kopfzeilenstring für die verarbeitung hinsichtlich der zeilen  _
_
wird gespeichert
kopfzeile = Mid(daten, 1, x)
End If
Next x
Loop
MsgBox "Zeilenzahl ist " & Anzahl & " Spaltenzahl ist " & Spalten
UserForm1.Show 'der user entscheidet, ob er die spaltenformatierungsfkt. oder die Zeilen  _
formatierungsfkt. nutzen möchte
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Text_Info() Dim sFilename As String Dim F As Integer Dim sInhalt As String Dim AnzahlZeilen As Long, AnzahlSpalten As Long sFilename = Application.GetOpenFilename("Dateityp (*.txt; *.log; *.dat; *.asc; *.doc; *.rtf),") If sFilename = "Falsch" Then Exit Sub If Dir$(sFilename, vbNormal) <> "" Then F = FreeFile Open sFilename For Binary As #F sInhalt = Space$(LOF(F)) Get #F, , sInhalt Close #F End If AnzahlZeilen = CountChar(sInhalt, vbCrLf) 'eventuell Zeilenumbruchzeichen anpassen AnzahlSpalten = IIf(AnzahlZeilen > Rows.Count, AnzahlZeilen / Rows.Count, 1) MsgBox "Zeilenzahl ist " & AnzahlZeilen & " Spaltenzahl ist " & AnzahlSpalten End Sub Function CountChar(ByVal SourceString As String, ByVal strChar As String) As Long CountChar = Len(SourceString) - Len(Replace(SourceString, strChar, "")) End Function

Dim Text1 As String Dim txtLines As Long Dim ReadFile As String 'Pfad und Datei Open ReadFile For Input As #1 txtLines = 0 Do While Not EOF(1) Line Input #1, Text1 txtLines = txtLines + 1 'Zähler Loop Close #1

Option Explicit Sub Zeichenzählen() Dim ReadFile As String, sLine As String Dim F As Integer Dim lRow As Long ReadFile = Application.GetOpenFilename("Dateityp (*.txt; *.log; *.dat; *.asc; *.doc; *.rtf),") If ReadFile = "Falsch" Then Exit Sub lRow = 0 If Dir$(sFilename) <> "" Then F = FreeFile Open ReadFile For Input As #F While Not EOF(F) Line Input #F, sLine lRow = lRow + 1 Wend Close #F End Sub

Public Sub Zeichenzählen() Dim frage 'ist der Wert der Ja/Nein Frage Anzahl = 0 Spalten = 1 ReadFile = Application.GetOpenFilename("Dateityp (*.txt; *.log; *.dat; *.asc; *.doc; *.rtf),") If ReadFile = "Falsch" Then Exit Sub Set objFileSys = CreateObject("Scripting.FileSystemObject") Set Object1 = objFileSys.OpenTextFile(ReadFile, 1) 'Die Zeilen und Spalten des Strings werden erfasst, gezählt 'und für weitere Operationen wichtige Stellen werden gespeichert Do Until Object1.AtEndOfLine daten = Object1.readLine If Anzahl = 0 Then Länge = Len(daten) For x = 1 To Länge zeichen = Mid(daten, x, 1) 'der ascii wert eines jeden zeichen wird ausgewerten Ascii = Asc(zeichen) If Ascii = 9 Then 'wenn ascii=9, dann tab/neue spalte ->spalten werden nur anhand der ersten _ zeile gezählt Spalten = Spalten + 1 End If Next x kopfzeile = Mid(daten, 1, x) 'kopfzeilenstring für die verarbeitung hinsichtlich der zeilen _ wird gespeichert End If If Anzahl = 65536 Then 'stelle im datenstring, an der mehr als excelzeilen erreicht _ werden merkez = x End If Anzahl = Anzahl + 1 Loop MsgBox "Zeilenzahl ist " & Anzahl & " Spaltenzahl ist " & Spalten UserForm1.Show 'der user entscheidet, ob er die spaltenformatierungsfkt. oder die Zeilen _ formatierungsfkt. nutzen möchte End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien laden, Dateigröße

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread