Thema Datum  Von Nutzer Rating
Antwort
08.07.2015 13:48:40 Tobi
NotSolved
08.07.2015 23:57:58 Gast65083
NotSolved
Rot Messreihen - Überlauf Array
11.07.2015 10:14:37 Gast76500
NotSolved

Ansicht des Beitrags:
Von:
Gast76500
Datum:
11.07.2015 10:14:37
Views:
1793
Rating: Antwort:
  Ja
Thema:
Messreihen - Überlauf Array

>> da gibt's auch bei Arrays Grenzen u.U. abhängig vom Arbeitsspeicher, Du wirst wahrscheinlich Deine .txt-Datei zeilenweise und dann mehrfach in das Array einlesen müssen...

Selbst auf einem 32bit System kratzt das unter den genannten Angaben nicht mal ansatzweise am Limit (und richtig, es ist abhängig vom verfügbaren Arbeitsspeicher: auf 32bit maximal 4 GB ... abzüglich des Speicherbedarfs des Betriebssystems sagen wir mal 3 GB theoretisch verfügbar).

 

Angenommen man verwendet den Datentyp Double, dann hat man 8 Byte pro Zahl, 4 Zahlen sind es laut der Angabe pro Zeile.

Das macht also...

... bei 2400 Zeilen: 4 * 2400 * 8 Byte = 76800 Byte

... bei 12500 Zeilen: 4 * 12500 * 8 Byte = 400000 Byte

Wir reden hier demnach nicht mal über MB-Größen.


Mal davon abgesehen, an Tobi:

Excel bietet eine Methode zum importieren von CSV Daten (was bei dir der Fall ist).

Option Explicit

Sub Bsp()
  
  Dim strFilename As String
  
  strFilename = Application.GetOpenFilename
  
  With Worksheets("Tabelle1")
    With .QueryTables.Add(Connection:="TEXT;" & strFilename, Destination:=.Range("A1"))
      .RefreshStyle = XlCellInsertionMode.xlOverwriteCells
      .TextFileParseType = xlDelimited
      'Trennzeichen definieren
      .TextFileCommaDelimiter = True
      'Zahlendefinition
      .TextFileDecimalSeparator = "." '= Dezimal-Trennzeichen
      .TextFileThousandsSeparator = "," '= Tausender-Trennzeichen
      .TextFileTrailingMinusNumbers = True 'neg. Zahlen als neg. Zahlen behandeln
      'Datenabfrage ausführen
      Call .Refresh(BackgroundQuery:=False)
      Call .Delete
    End With
  End With
  
End Sub

Probier es mal aus und melde dich ob/wie es läuft.

 

Gruß


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.07.2015 13:48:40 Tobi
NotSolved
08.07.2015 23:57:58 Gast65083
NotSolved
Rot Messreihen - Überlauf Array
11.07.2015 10:14:37 Gast76500
NotSolved