Variabler Programmcode in VBScript

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/variabler_programmcode_in_vbscript_77965/page_1 - zur Vollversion wechseln!

Maxx666 schrieb am 09.05.2003 um 09:33

Gibt es eine Möglichkeit Befehlszeilen innerhalb der Laufzeit zu verändern?
Dh. ich hab zum Programmierzeitpunkt noch keine Ahnung welche Methoden ich auf ein Objekt ausführen kann, sondern weiß es erst zum Programmablauf.

Die rot-markierte Methode würde sich immer ändern...

zBleistift:

For Each Attribut in Attributes
AttributeType = TypeName(Attribut)
select case AttributeType
case .....
case "Object"
Set objUser = GetObject("LDAP://" & LdapObject)
Set objDate = objUser.pwdLastSet
Output = Output & " " & Integer8Date(objDate, lngBias) & "[" & AttributeType & "]"
case else
Output = Output & " " & "Unknown [" & AttributeType & "]"
end select
Next

Function Integer8Date(objDate, lngBias)
' Function to convert Integer8 (64-bit) value to date.
Dim lngAdjust, lngDate
lngAdjust = lngBias
If (objDate.HighPart = 0) And (objDate.LowPart = 0) Then
lngAdjust = 0
End If
lngDate = #1/1/1601# + (((objDate.HighPart * (2 ^ 32)) + objDate.LowPart) / 600000000 - lngAdjust) / 1440
Integer8Date = CDate(lngDate)
End Function

schrieb am 09.05.2003 um 09:44

ich würd eine wrapperclass bauen, die mir automatisch die richtige methode auruft...

Maxx666 schrieb am 09.05.2003 um 12:17

Zitat von rettich
ich würd eine wrapperclass bauen, die mir automatisch die richtige methode auruft...

was meinst du mit einer wrapperclass und wo kann man sich sowas anschauen? hast du vielleicht einen beispielcode?

wäre ganz nette

tnx in advance, maxx

Maxx666 schrieb am 09.05.2003 um 21:26

Hab mich auf die Suche nach einer sogenannten Wrapperclass gemacht und bin fündig geworden.
Für all jene die es auch interessiert, hier der Link

und so sieht das stark vereinfacht in vbscript aus:

Class PTWrapper
Public Function PTMethodExecute(sMethodStatement)
Dim sMethod
sMethod = Replace(sMethodStatement,"\#", Chr(34))
Execute sMethod
End Function

Public Function PTMethodEval(sMethodStatement)
Dim sMethod
sMethod = Replace(sMethodStatement,"\#", Chr(34))
PTMethodEval = Eval(sMethod)
End Function
End Class 'PTWrapper

Dim oPTWrapper
Set oPTWrapper = new PTWrapper

command = "msgbox"
oPTWrapper.PTMethodExecute(command &" \#Servus\#")

command = "wscript.echo"
oPTWrapper.PTMethodExecute(command &" \#Servus\#")

Tnx an :fresserettich: für den Tipp, vorallem für den Begriff. Denn ich wusste nicht mal, wonach ich suchen sollte.

schrieb am 11.05.2003 um 01:29

np.

freude pur bei mir, weil genau so solls IMO laufen: tips holen, erweitert suchen, lösung finden. :cool:

Frys_Assassin schrieb am 11.05.2003 um 01:36

und lösung präsentieren, damit andere auch daraus lernen können (so sie die search-funktion verwenden)

atrox schrieb am 11.05.2003 um 03:37

so sehe ich es auch gerne