vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück
Rubrik: Variablen/Strings · Arrays   |   VB-Versionen: VB624.04.09
Anzahl Dimensionen eines Arrays ermitteln

Eine Funktion, die mit Hilfe des Windows API schnell die Anzahl Dimensionen eines beliebigen Arrays ermittelt und zurückgibt.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  11.162 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10kein Beispielprojekt 

Möchte man die Anzahl Dimensionen eines Arrays in VB ermitteln, sucht man hier vergebens nach einer entsprechenden Funktion. Mittels der allseits bekannten UBound-Funktion lässt sich lediglich die Größe einer einzelnen Array-Dimensionen ermitteln (Anzahl Elemente der Dimension).

Wie schon so oft hilft uns hier wieder einmal nur das Windows-API aus der Klemme.

Nachfolgende Funktion ermittelt die Anzahl Dimensionen des übergebenen Arrays und gibt diese entsprechend zurück. Für nicht initialisierte Arrays, d.h. Arrays die keinerlei Dimension enthalten, gibt die Funktion 0 zurück.

Option Explicit
 
' benötigte API-Deklaration
Private Declare Sub CopyMemory Lib "kernel32" _
  Alias "RtlMoveMemory" ( _
  Destination As Any, _
  Source As Any, _
  ByVal Length As Long)
Public Function GetArrayDim(ByRef vArray As Variant) As Integer
  ' Handelt es sich überhaupt um ein Array?
  Dim DimCount As Integer
 
  DimCount = -1
  If IsArray(vArray) Then
    Dim vPtr As Long
 
    DimCount = 0
    vPtr = VarPtr(vArray) + 8
    CopyMemory vPtr, ByVal vPtr, 4
    CopyMemory vPtr, ByVal vPtr, 4
    If vPtr Then CopyMemory DimCount, ByVal vPtr, 2
  End If
  GetArrayDim = DimCount
End Function

Beispiele:

' Arrays in verschiedenen Dimensionen erstellen
Dim array1(10) As String
Dim array2(10, 5) As Long
Dim array3(2 To 8, 1 To 6, 3 To 9) As Byte
Dim array4() As Variant
 
' Dimensionen ermitteln
Debug.Print GetArrayDim(array1)  ' gibt 1 zurück
Debug.Print GetArrayDim(array2)  ' gibt 2 zurück
Debug.Print GetArrayDim(array3)  ' gibt 3 zurück
Debug.Print GetArrayDim(array4)  ' gibt 0 zurück

Dieser Tipp wurde bereits 11.162 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel