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

301 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch

mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin

07.08.2008 16:23:47

Thread-ID: 1000004

3 Beiträge

Arbeitsblätter zählen und Ergebnis verarbeiten

Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...

07.08.2008 19:11:30

Thread-ID: 1000078

8 Beiträge

Frage - Spalten einfügen & Spalten untereinander z

André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...

08.08.2008 16:00:00

Thread-ID: 1000340

3 Beiträge

Zellen mit Werten aus darüberliegender Zelle fülle

Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....

11.08.2008 08:59:25

Thread-ID: 1000713

4 Beiträge

Häufigkeitslücken

Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...

11.08.2008 10:29:00

Thread-ID: 1000742

2 Beiträge

Zellen formatieren mit vorangehenden "Nullen"

Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?

11.08.2008 10:37:00

Thread-ID: 1000746

8 Beiträge

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

Links zu Excel-Dialogen

Links zu Excel-Beispielen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread