Habe Frage zu 'Struct'

[gambasso]

moin, und allen ein gesundes neues Jahr!

Ich möchte mir mit 'Struct' den Aufwand verringern, deshab meine Frage: ist folgendes möglich?

Ein 'Struct' Array möchte ich den 'Feldnamen' beim Auslesen mit einem String bestimmen.

z.B.: gambas code

Public Struct As Adresse
	Name As Variant
	VName As Variant
	Ort As Variant
	Strasse As Variant
End Struct

Public Heim As Adresse[]

Beim Auslesen in einer Sub:
gambas code

Dim hi1, hi2, hi3 As Variant
	hi1 = "VName"
	hi2 = Heim[xx]. < hi1>  '      so, daß der VName kommt  ??
	hi1 = "Ort"
	hi3 = Heim[xx]. < hi1>  '      so, daß der Ort kommt	?? 

Habe ich nicht geschafft. Ist so was irgendwie möglich?

[cogier]

Ich schlage vor, dass Sie eine 'Klasse' verwenden. Sehen Sie sich das beigefügte Programm an.

TestNew-0.0.2.tar.gz

(11.84 KiB) 17-mal heruntergeladen

[vuott]

ist folgendes möglich?

Ein 'Struct' Array möchte ich den 'Feldnamen' beim Auslesen mit einem String bestimmen.

Entschuldige, willst du die Namen der Struct-Mitglieder erhalten ?

[Nachtreiter]

Hallo gambasso,

möglicherweise beantwortet dieses Beispiel Deine Frage: gambas code

' Gambas module file

Public Struct Adresse
    Name As Variant
    VName As Variant
    Ort As Variant
    Strasse As Variant
End Struct

Public a As New Adresse

Public Sub Main()

  Dim Feld As String = "Ort"
  
  With a
    .Name = "Mustermann"
    .VName = "Max"
    .Ort = "irgendwo"
    .Strasse = "Hohlweg"
  End With

  Print Eval("Main.a." & Feld)

End

Die Eval()-Funktion ist eine eierlegende Wollmilchsau.

Viele Grüße
Nachtreiter