在VBScript网站中处理未处理的错误？

我已经继承了用多种语言编写的一大堆丑陋的代码。用C＃编写的混乱部分似乎设置为将大多数未捕获的异常记录在日志文件中。 VBScript中还有另一部分程序不记录错误。在VBScript网站中处理未处理的错误？

是否有一些简单的方法让VBScript代码捕获所有未被捕获的错误并将它们记录到某处？我认为答案可能是“否”，因为VBScript没有try-catch，而是有“On Error Resume Next”。

编辑：我很清楚VBScript中的错误处理与VB.net完全不同。我只是想知道是否有一些技巧/黑客可以让我处理未经处理的错误。

2014-03-24 Daniel Allen Langdon

VBScript不支持通过继续执行标签来执行错误处理的概念。换句话说，你不能在VBScript中使用'On Error GoTo'。相反，使用“On Error Resume Next”，然后检查Errors集合的“Err.Number”和“Count”属性。问题不是你要找的答案。 :(http://msdn.microsoft.com/en-us/library/windows/desktop/ms675540(v=vs.85).aspx – DMason

“不”是一个完全可以接受的答案，当你说为什么:-) –

为什么你不要继续提交这个答案。 –

VBScript不支持通过继续执行标签处理错误处理的概念。换句话说，你不能在VBScript中使用On Error GoTo。相反，使用On Error Resume Next然后检查Err.Number和Errors集合的Count属性。

Handling Errors in VBScript

别的东西，可能有助于发现错误的VBScript是利用Option Explicit。它强制显式声明所有变量，并防止意外重复使用先前声明的变量的名称。另外，如果您错误地声明了一个声明的变量的名称或尝试使用未声明的变量，则会生成一条错误消息。

来源

2014-03-24 22:59:36 DMason

+1首先在评论中给予解释。 – Rich

你可以这样做多种方式，但作为一个简单的例子，这是你如何处理基本的错误处理：

On Error Resume Next 

'Insert code to do what you need 

If Err.Number <> 0 Then 
    WScript.Echo "Error in executing script: " & Err.Number & " - " & Err.Description 
    Err.Clear 
End If 

'Stop doing error handling  
On Error Goto 0

来源

2014-03-24 21:45:09 QuickNull

除了DMasons回答，microsoft broke down the removal of "On Error Goto X" command and it's purpose.不幸的是，与许多语言（JavaScript的，C＃）具有非常方便和方便的“尝试{}和捕获{}”参数，vbscript不提供广泛的处理错误细分。是的，On error resume next命令在其简单的目的上是有效的，但还有其他方法可以处理我认为有用的错误。

例如，您可以创建故障代码更容易使用此代码：

Troubleshootvbs.vbs

Const Troubleshoot_this_code = "C:\testenv\testfail.vbs" 
Const Place_Results_In = "C:\testenv\troubleshoot.log" 

Dim filesystemobject: Set filesystemobject = CreateObject("Scripting.FileSystemObject") 
Dim filetotroubleshoot: Set filetotroubleshoot = filesystemobject.OpenTextFile(Troubleshoot_this_code, 1, True) 
Dim Troubleshoot_Lines : Troubleshoot_Lines = split(filetotroubleshoot.ReadAll, vbcrlf) 
Dim tbl : Set tbl = filesystemobject.OpenTextFile(Place_Results_In, 8, True) 

Dim InsertErrorHandling(),IEH,line : Redim InsertErrorHandling(1) : IEH = 1 

InsertErrorHandling(0) = "On Error Resume Next" 
For each line in Troubleshoot_Lines 
    dim errclause : errclause = "if err.number<>0 then : return=" & chr(34) & "Error Found on Line[" & chr(34) & " & IEH & " & chr(34) & "]:" & chr(34) & " & err.number & " & chr(34) & ":" & chr(34) & " & err.description & vbcrlf : err.clear : else : return = IEH & " & chr(34) & ": Clear" & chr(34) & " & vbcrlf : end if : tbl.Writeline return : IEH = IEH + 1" 
    InsertErrorHandling(ubound(inserterrorhandling)) = line & vbcrlf & errclause 
    Redim Preserve InsertErrorHandling(Ubound(InsertErrorHandling)+1) 
Next 

dim FullTestCode : FullTestCode = Join(InsertErrorHandling, vbcrlf) 
ExecuteGlobal FullTestCode 
tbl.close

样品：TestFail.vbs

dim query : query = CreateObject("Scripting.FileSystemObect") 
dim result : result = query.CreateTextFile("test.txt") 
dim fail : fail = result.readall

示例：疑难解答.log

Error Found on Line[1]:429:ActiveX component can't create object 

Error Found on Line[2]:424:Object required 

Error Found on Line[3]:424:Object required

来源

2014-03-24 22:01:29 Rich

在VBScript网站中处理未处理的错误？

回答

相关问题