operator - No pasar nada de Javascript a VBScript en IE9

vbscript messages

Question

Tengo un marco escrito en VBScript. Dentro de alguna función en este marco, el parámetro de la función se marca para Nothing en If y luego se ejecutan algunas acciones. Código que usa framework escrito en Javascript. Entonces, necesito pasar Nothing para funcionar para realizar algunas acciones. En IE8 y versiones anteriores trabajó el próximo enfoque:

<script type="text/vbscript">
Function Test(val)
If (IsNull(val)) Then
Test = "Null"
ElseIf (IsObject(val)) Then
If (val Is Nothing) Then
Test = "Nothing"
End If
End If
End Function
Dim jsNothing
Set jsNothing = Nothing
msgBox(Test(jsNothing))
msgBox(Test(Null))
</script>
<script type="text/javascript">
alert(Test(jsNothing));
</script>

En IE <9, la salida será: Nothing, Null, Nothing.

En IE9: Nothing, Null, Null.

¿Cómo puedo pasar nada de Javascript a VBScript en IE9?

Lo siento, sé que es feo, pero estoy atrapado. Y odio VBScript.

editar: hay un ejemplo de función de marco. No puedo cambiarlo porque es ampliamente utilizado en la aplicación.

Function ExampleFunction(val)
If (val Is Nothing) Then
ExampleFunction = 1
Else
ExampleFunction = 0
End If
End Function

Actualizar

Trabajo abandonado Encontré uno mejor.

Answer 1

Desafortunadamente, probablemente estés atrapado aquí; JavaScript no tiene un equivalente de "Nada". Ver este artículo para más información.

[Editar] Sin embargo, lo siguiente puede funcionar. En su VBScript, cree una función llamada "GetNothing" que devuelve "Nothing". En su JavaScript use "var jsNothing = GetNothing ()". Viene de este artículo

Answer 2

Esta pregunta es fascinante, pensé que trataría de responderla solo por el gusto de hacerlo.

(¡Felicidades a Mixel por conseguir un mejor trabajo!)

No tengo acceso a IE ahora mismo, así que no puedo probar esto, pero ¿qué pasaría si intentaras escribir una función como esta?

<script type="text/vbscript">
Function CallWithNulls(fn, arg1, arg2, arg3)
If (isNull(arg1)) arg1 = Nothing
If (isNull(arg2)) arg2 = Nothing
If (isNull(arg3)) arg3 = Nothing
fn(arg1, arg2, arg3)
End Function
Function IsNothing(arg1, arg2, arg3)
return arg1 is Nothing
End Function
</script>
<script type="text/javascript">
alert(CallWithNulls(IsNothing, null, 1, 2));
</script>

Por supuesto, no sé si la secuencia de comandos VB permite funciones de llamadas como esa ... y tendría que lidiar con más / menos argumentos.

Answer 3

Use un valor como cero o incluso un número negativo que le permita simplemente usar evaluaciones falsas, entonces no tiene que preocuparse por diferentes navegadores y sus peculiaridades al evaluar el objeto NULL .