VBScript-Hilfe

Tipp zum Debuggen: Versuchen Sie, die MsgBox-Funktion von VBScript zu verwenden, um den aktuellen Wert einer Variablen anzuzeigen und so während der Programmierung Feedback zu erhalten. Beispiel: MsgBox("Dies wird in einem Dialogfeld angezeigt")

Eine Übersicht über erweiterte VBScript-Funktionen und deren Syntax finden Sie unter:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vbscripttoc.asp

Hier ist ein kleiner Beispielcode, der dir den Einstieg erleichtern soll:

Beispielcode

SetCommonVarNumeric(1, 5.5)

rTemp = LookupMasterAttribute("MASTER1", "FORMULAATT", nil)

rEstimatedError = rTemp * LookupNumericField("UNCERTBUDGETLINEITEMS", "ESTIMATED_ERROR")

rCoverageFactor = LookupNumericField("UNCERTBUDGETLINEITEMS", "ITEM_DIVISOR")

rSensCoeff = LookupNumericField("UNCERTBUDGETLINEITEMS", "SENSITIVITY_COEFFICIENT")

rStandardUncert = (rEstimatedError / rCoverageFactor) * rSensCoeff

SetResult(rStandardUncert)

Der obige Code führt Folgendes aus (Zeile für Zeile):

1. | Setzt CommonVar #1 auf 5,5 (möglicherweise muss „FORMULAATT“ bei der Ausführung auf diese Variable verweisen)2. | Führt die VBScript-Formel für das Attribut „FORMULAATT“ des Masters „MASTER1“ aus und speichert das Ergebnis in der Variablen „rEstimatedError“3. | Ruft das Feld „Geschätzter Fehler“ des betreffenden Elements ab, multipliziert es mit rTemp und speichert das Ergebnis in rEstimatedError4. | Liest das Feld „Coverage Factor“ des betreffenden Eintrags in die Variable rCoverageFactor ein.5. | Liest das Feld „Sensitivity Coeff.“ des betreffenden Eintrags in die Variable rSensCoeff ein. | Teilt rEstimatedError durch rCoverageFactor, multipliziert das Ergebnis mit rSensCoeff und speichert das Ergebnis in der Variablen rStandardUncert7. | Setzt das VBScript-Ergebnis auf rStandardUncert (immer der letzte Schritt)