Nepumuk und andere-array laden

Private Sub ReadArray() Dim l As Integer Dim F As Integer Dim nCount As Long Dim sFile As String sFile = ThisWorkbook.Path & "\arrayABregion.dat" ' Datei im BinaryMode öffnen If Len(Dir$(sFile)) > 0 Then F = FreeFile Open sFile For Binary As #F ' Anzahl Elemente lesen Get #F, , nCount ' Array dimensionieren und einlesen AnzEinkaufsregion = nCount Get #F, , NameEinkaufsregion Close #F End If MsgBox (AnzEinkaufsregion) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Nepumuk,
ja meine Arrays werden durch userforms erzeugt. die userforms werden aufeinander aufgebaut und jedesmal bekommt das array eine zusäztliche Dimension, da es von dem vorherigen userform abhängt,so dass mein letzt gespeichertes array von dem letzten userform 5 dimensionen hat. ich versuche deshalb alle meine array in textdatei zu speichern so dass ich nicht jedesmal wenn ich meine excel datei öffne, die Daten in den userforms eingeben muss.
mit diesem Programm gibt er schon die Einkaufsregionen zurück aber ich möchte die Anzahl der Elemente haben (die Anzahl der Einkaufsregionen die in der UF eingegeben wurde) und er gibt mir die Dimension zurück.
Wenn du andere Ideen hast um mehrdimensionale array zu speichern und wieder zu laden würde mich interessieren denn ich fange an vezweifelt zu sein!!!
Gruß
Stan

Ach Stan,
bei deinen paar Werten würde ich das mit dem Array sowieso vergessen. Um mit Put Daten in eine Textdatei zu schreiben benötigt mein Rechner für 10.000 Datensätze gerade mal 0,03 Sekunden. Um die 10.000 Datensätze wieder auszulesen 0,01 Sekunden. Die Array - Methode rentiert sich erst bei mehreren hunderttausend Datensätzen.
Aber wenn du sie schon benutzt, dann arbeite mit einem benutzerdefinierten Datentyp. Dieses Array kannst du dynamisch machen, wäre für deine Zwecke wesentlich besser geeignet und du müsstest dir auch keine Gedanken um die Anzahl der Datensätze machen.
Mal ein Beispiel:
' **********************************************************************
' Modul: Modul4 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Type Datensatz
    Firma As String
    Maschine As String
    Produkt As String
End Type

Public Sub schreiben()
    Dim intIndex As Integer, intFile As Integer
    Dim MeinDatensatz(1 To 10) As Datensatz
    For intIndex = 1 To 10
        With MeinDatensatz(intIndex)
            .Firma = "Firma " & CStr(intIndex)
            .Maschine = "Maschine " & CStr(intIndex)
            .Produkt = "Produkt " & CStr(intIndex)
        End With
    Next
    intFile = FreeFile
    Open "C:\Test.txt" For Binary As #intFile
    Put #intFile, , UBound(MeinDatensatz)
    Put #intFile, , MeinDatensatz
    Close #intFile
End Sub

Public Sub lesen()
    Dim lngIndex As Long, intFile As Integer
    Dim MeinDatensatz() As Datensatz
    intFile = FreeFile
    Open "C:\Test.txt" For Binary As #intFile
    Get #intFile, , lngIndex
    Redim MeinDatensatz(1 To lngIndex)
    Get #intFile, , MeinDatensatz
    Close #intFile
End Sub

Gruß
Nepumuk
Excel & VBA Beispiele

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nepumuk und andere-array laden

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread