Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array "Nicht genügend Speicher"

Array "Nicht genügend Speicher"
Swen
Hallo @ all,
ich arbeite gerade mit Array zum erstenmal, ich habe eine txt datei die mehr als 300.000 Zeilen (bei 70 Spalten) hat und wenn ich versuche diese Datein in ein Array zuladen gibt es immer Probleme da er Sagt das er nicht genügen Speicher hat...
Wie könnte ich die Datei Spliten do das er immer die 50.000 nacheinander nimmt
Gruß
Swen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Array "Nicht genügend Speicher"
08.12.2010 20:00:01
Christian
Hallo Swen,
ich geh mal davon aus, dass du das Text file auf einen Schlag in einen String einliest und diesen String anschließend am Zeilenumbruch splittest. Anschließend wirst du das Array durchlaufen und hier entsprechende Operationen durchführen. Das ist schnell. braucht aber viel Speicher.
Ein anderer Weg ist, das Text File zeilenweise einzulesen und hier direkt die entsprechenden Operationen durchzuführen. Das dauert ggf. geringfügig länger, braucht aber weniger Speicher.
Gruß
Christian
AW: Array "Nicht genügend Speicher"
08.12.2010 20:15:06
Tino
Hallo,
lese doch die Textdatei Zeilenweise ein und verarbeite diese entsprechend.
Hier mal eine Version die die Zeilen 1 bis 50000, danach 50001 bis 100000 usw. in ein Array liest.
Diese Steps müsstest Du dann einzeln verarbeiten, eventuell in einer separaten Sub an die Du dieses gefüllte Array übergibst.
Sub Lese_TxT()
Dim TxTArray()
Dim sLine$, sFilename$
Dim nCount&, nCountLine&
Dim F%
Dim booEof As Boolean

Const AnzahlStep& = 50000

sFilename = Application.GetOpenFilename("Text Files (*.txt), *.txt")

' Datei zum Lesen öffnen 
F = FreeFile
Open sFilename For Input As #F


Redim Preserve TxTArray(AnzahlStep - 1)

booEof = Not EOF(F)

While booEof
  
  nCountLine& = nCountLine& + 1 'Zähler Zeile 
  Line Input #F, sLine 'Zeile lesen 
  TxTArray(nCount) = sLine 'Zeile in Array 
  nCount = nCount + 1 'Zähler für Array 
  
  booEof = Not EOF(F) 'nächste Zeile 
  
  If (nCountLine Mod AnzahlStep) = 0 Or Not booEof Then
    Redim Preserve TxTArray(nCount - 1)
            
            'hier Array verarbeiten 
            '... 
            '... 
    
    Erase TxTArray 'Array leeren 
    Redim Preserve TxTArray(AnzahlStep - 1) 'neu Dimensionieren 
    nCount = 0
  End If
  
Wend


Close #F


End Sub
Gruß Tino
Anzeige
Text Datei einlesen
08.12.2010 21:06:48
Christian
Hallo Tino,
hier liest du die Zeilen ja auch einzeln ein und schreibst diese in ein Array um anschließend das Array zu durchlaufen um dessen Einträge zu verarbeiten.
Wenn du die Zeile einzeln einlist, kannst du diese ja direkt verarbeiten ohne zwischen geschaltetes Array.
Bsp: 
Option Explicit
Sub ReadTxtFile_01()
'Text File komplett einlesen
Dim strSrcFile$, strTxt$
Dim intFile%, i&
Dim vntTxt
strSrcFile = "c:\test.log"
intFile = FreeFile
Open sSrcFile For Binary Access Read As #intFile
i = LOF(intFile)
strTxt = String(i, 0)
Get #intFile, , strTxt
Close #intFile
vntTxt = Split(strTxt, vbCrLf)
strTxt = ""
For i = 0 To UBound(vntTxt)
'... do what you want with 'vntTxt(i)'
Next
Erase vntTxt
End Sub
Sub ReadTxtFile_02()
'Text File zeilenweise einlesen
Dim strSrcFile$, strLine$
Dim intFile%
strSrcFile = "c:\test.log"
intFile = FreeFile
Open strSrcFile For Input As #intFile
Do While Not EOF(intFile)
Line Input #intFile, strLine
'...do what you want with 'strLine'
Loop
Close #intFile
End Sub

Gruß
Christian
Anzeige
woher soll ich das wissen wie Peter es braucht.
09.12.2010 16:37:36
Tino
Hallo,
ich weiß ja nicht wie er evtl. die Daten zuvor noch aufbereiten muss.
Eine Aufbereitung ist auf alle Fälle nötig, weil 300000 Zeilen nicht in xl2003 reingehen.
Vielleicht ist diese Aufbereitung in einem Array besser o. schneller,
daher habe ich mich an die Aufgabe gehalten.
Gruß Tino

51 Forumthreads zu ähnlichen Themen

VBA Nicht genügend Speicher
Andreas

Hallo Excelgemeinde,
ich habe seit Jahren ein Programm auf XL 2003 VBA zu laufen. Diverse Abfragen zu anderen Datenbanken (hauptsächlich Access-DBs) werden damit aufgerufen. Das Programm läuft auf allen Rechnern stabil.
Jetzt habe ich einen neuen Clienten aufgesetzt. Der hat Windows XP...
27.03.2009 12:05:58
Thread-ID: 1064559
2 Beiträge
Anzeige
Nicht genügend Speicher vorhanden?
Gordon

Moin moin,
ich bekomme bei ein VBA-Projekt seit eben immer eine Fehlermeldung, sobald ich das Makro ausführe:
Laufzeitfehler '440' Eigenschaft ListCursor konnte nicht gesetzt werden. Für diesen Vorgang ist nicht genügend Speicher vorhanden. Wenn ich auf 'Debuggen' gehe zeigt er mir ei...
26.07.2011 23:39:59
Thread-ID: 1223773
13 Beiträge
Speichern geht nicht, wenn VBA-Code geschützt
Hannes

Hallo,
wenn ich den VBA-Code mit einem Passwort versehe (VBA Project Eigenschaften), dann funktioniert das Speichern (Diskettensymol auf Symbolleiste) nicht mehr. Es kommt dann immer folgende Meldung:Datei wurde unter dem Namen B9E07300 gespeichert. Kann nicht in 'Dosen.xls' umbenannt werden...
06.06.2002 06:07:16
Thread-ID: 126332
2 Beiträge
Anzeige
nicht genügend stapelspeicher
Steffi

Hallo,
ich habe ein Problem mit dem Stapelspeicher und weiß auch woran es liegt aber nicht wie ich es lösen kann.
Ich habe eine Userform auf der ich zunächst die Mitarbeiter ("MA") mit Checkboxen auswähle und die Jahre mit ToggleButton.
Es geht dabei um eine Excel-Datei in der ich D...
08.12.2012 16:45:34
Thread-ID: 1289870
14 Beiträge
Nicht genügend Speicher (Fehler 7)
Tom

Hallo zusammen,
meine Excel Arbeitsmappe ist in der letzten Zeit sehr stark gewachsen und neuerdings erhalten ich folgenden Fehlermeldung beim schließe der Arbeitsmappe ohne zu Speichern: Nicht genügend Speicher (Fehler 7)
Ich erhalte diese Fehlermeldung nur beim schließen der Mappe. Wä...
19.11.2013 16:11:48
Thread-ID: 1339250
3 Beiträge
Excel über PPT VBA schließen und nicht speichern
Virginie

Hallo zusammen,
ich habe ein Problem das mich schon des längeren nervt. Meine Ideen helfen mir nicht mehr weiter und ehrlich gesagt weiß ich auch nicht was ich noch ausprobieren könnte...
Ich habe eine PPT-Datei mit vielen Pivot-Charts die automatisch aktualisiert werden. Da dies an die...
26.08.2015 12:29:48
Thread-ID: 1444505
2 Beiträge
Array - Nicht genügend Speicher
Bonduca

Hallo,
Ich möchte ein Tabellenblatt via Array einlesen:
Dim arr_A() As Variant
max_z = 20000
max_s = 420
Worksheets(A).Activate
'Array wird neu definiert mit maximaler Zeilen- und Spaltenanzahl
ReDim arr_A(max_z, max_s)
Es kommt der Laufzeitfehler 7: Nicht genüg...
10.09.2015 08:32:50
Thread-ID: 1446822
6 Beiträge
VBA: nicht genügend stapelspeicher Fehler 28
Balduris

Guten Morgen,
ich bin relativ unerfahren was VBA / Markos angeht, weiss mir aber auf Grund der Umstände nicht anders zu helfen. Die Zirkelbezuglösung die ich ursprünglich genutzt hatte, führte zu Fehlbedienungen durch andere Nutzer, daher die VBA Lösung.
Durch meine Unkenntnis hat sich...
05.01.2018 11:36:12
Thread-ID: 1600323
9 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
12
1
4
13
2
1
5
8
2
16
2
6
7
5
4
1
6
12
4
1
4
13
2