dotNETportal.cz

Dobrý den,

VBScript neznám, funkci IIf taky ne, ale podle stránky http://www.pcreview.co.uk/forums/vbscrip... není funkce podporována. Funkci si ale lze snadno doimplementovat (kód je také na výše uvedené stránce). Použití by mohlo vypadat takto:

        Dim sc As New MSScriptControl.ScriptControl
        sc.Language = "VBScript"
        Dim vysledok As Double
        Dim vzorec As String

        Dim iff As String =
        "Public Function IIf(expression, trueResult, falseResult)" & vbCrLf &
            "If expression Then" & vbCrLf &
                "IIf = trueResult" & vbCrLf &
                "Else" & vbCrLf &
                "IIf = falseResult" & vbCrLf &
                "End If" & vbCrLf &
            "End Function"

        sc.AddCode(iff)

        vzorec = "iif(1=1,10,20)"
        vysledok = sc.Eval(vzorec) ' Vrátí 10
        vzorec = "iif(1=0,10,20)"
        vysledok = sc.Eval(vzorec) ' Vrátí 20

"Mozem dorobit funkciu iif, kt. bude poznat vbscript?"

Asi si špatně rozumíme, protože se domnívám, že na tuto otázku jsem již odpověděl. Na řádcích 6-13 je implementace funkce IIf v jazyce VBScript (její kód je uložen do proměné iff typu string). Tento řetězec je předán do instance třídy MSScriptControl.ScriptControl na řádku 15. A od tohoto řádku je již možné funkci IIf používat z jazyka VBScript. Tedy kód

vzorec = "iif(1=1,1,0)"
vysledok = sc.Eval(vzorec)

již nezpůsobí chybu, o které jste mluvil v prvním příspěvku.

Co se týká knihoven, dost možná na to nějaká existuje. Zkuste hledat na codeplex.com.