Zugriff auf PropertyValue

[scientific]

Hi Leute!

Ich lese ein Config-File in ein PropertyValue-Array ein, mit dem ich dann innerhalb meiner Makros hantiere.

Ich frage mich nur gerade, wie ich am besten auf die einzelnen Keys zugreifen kann.

Dazu hab ich mir eine Funktion geschrieben/von einer Vorlage angepasst

Code: Alles auswählen

Function getProperty( arProps, sName As String, Optional debug as Boolean )
   For i = LBound( arProps ) To uBound( arProps )
      checkProp = arProps(i)
      If checkProp.Name = sName Then
         getProperty() = checkProp.value
         Exit Function
      EndIf
   Next
   getProperty()=""
   if debug then getProperty()="Die Propertie mit dem Namen: "+sName+" ist nicht vorhanden"
End Function 

in der ich das Property-Array as arProps und den Namen des Keys als sName übergebe. Zurück kommt der Value des Keys.

Gibt es das schon "hausgemacht"? so in der Art
Var = arProps.getPropertyByName("XYZ")

lg scientific

[Makromador]

Hallo scientific,

meine Antwort passt nicht direkt. Möglicherweise findest Du hier eine neue Idee, wie Du es lösen könntest: https://makromador.wordpress.com/datenstrukturen/

Grüße

Makromador

[gogo]

Nö ... so sieht sie bei mir aus:

Code: Alles auswählen

'**--- HOLT AUS EINEM BEANSPROPVAL EINEN WERT -----
function BRX_CSSBPV_GetPropVal(BeansProp, sName)
	on error goto EH
	dim vArg
	BRX_CSSBPV_GetPropVal="###FEHLER###"
	for each vArg in BeansProp
		if vArg.Name = sName then
			BRX_CSSBPV_GetPropVal = vArg.Value
			exit function
		end if
	next

exit function
'--
EH:
call BRX_EH("BRX_CSSBPV_GetPropVal(BeansProp, sName)")
end function

Eine Anmerkung:
"Optional debug as Boolean" hat keinen Effekt, optionale Argumente sind immer vom Datentyp Variant.