- Windows Script Host - VBScript - Edición de condiciones para la detección de errores (debugging) -

Durante el desarrollo del script, es necesario obtener informaciones que posibiliten el control del proceso. Estas informaciones, naturalmente, no se requieren en el script terminado. Para esto se presta la posibilidad de articular mecanismos, los cuales editen las informaciones necesarias y pueden ser activados o desactivados, según se requieran.
El siguiente ejemplo muestra como, con la utilización de la constante "DebugMode" pueden obtenerse informaciones adicionales, cuando sean requeridas, o reprimirse cuando no lo sean.

' debug.vbs
'====================
Const DebugMode = True ' la busqueda de errores está activada
' Const DebugMode = False ' la busqueda de errores está desactivada
 
Dim i, j ' variables auxiliares
Dim ientrada ' entrada de valores
 
Sub DebugReporte(Texto)
Dim sReporte
If DebugMode = True Then
sReporte = "Debug-Reporte: " & vbCrLf & _
vbTab & Texto & vbCrLf
WScript.Echo sReporte
End If
End Sub
 
DebugReporte("Inicio del Script")
 
ientrada = InputBox("Teclee una cifra", "Pregunta")
 
DebugReporte("Fue tecleado " + CStr(ientrada) + " por Ud.")
 
j = 1
For i = 1 To ientrada
j = j * i
DebugReporte("Bucle i=" + CStr(i) + _
" Valor j=" + CStr(j))
 
Next
 
WScript.Echo "El factorial de " + CStr(ientrada) + _
" es " + CStr(j)
 
DebugReporte("Fin del Script")
previo
Imprimir..
Ultima actualisación: Tue, 24 ▪ May ▪ 2011
próximo