Um die 300 Zeilen zu erreichen habe ich noch nix intelligentes gemacht. ;D
z.B. wenn die Variablen schon in einem Konfigurationsdokument sind, muß man dann das so machen?
Für jedes Feld im Konfigurationsdokument (alles String Felder ohne Mehrfachwerte)
private server As String
sub new
' hole config Doc
server = configDoc.ServerName (0)
' ca 30 weitere so Dinger
end sub
function getServer() As String
on Error goto ErrHandler
ErrMsg = "getServer()"
return server
exit function
ein selbstausgedachtes Logging Zeugs aufrufen
end function
für 30 Werte genau das gleiche
warum nicht einfach ;D
function getConfigVal (name As String) As String
return docConfig.getItemValue(name)(0)
end function