VBScript函數返回

Question

我試圖從VBScript中的子例程返回一個字符串，但是我遇到類型不匹配的情況。

這是代碼：

main 

Sub Main
  Dim NumofBatches, Batch1 
  CStr(Batch1)
  Batch1 = checkXML("Bar.xml") 
End Sub

'Checks For Batch in ZoneX
Sub checkXML(sFile)
  Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\Projects\Scripts\SQL\" + sFile, 1)
  Dim strLine, x, y
  Do While Not objFileToRead.AtEndOfStream
    CStr(StrLine)
    strLine = objFileToRead.ReadLine()
    'String Foo
    If (x > 3) Then
      If (InStr(strLine, """") = 1) Then
        CheckXMl = ""
      Else
        CheckXMl = StrLine
      End If
    End If
  Loop
  objFileToRead.Close
  Set objFileToRead = Nothing
End Sub

我不確定這個問題，我知道系統現在僅從If (x > 3) Then部分得到一個結果，但是即使不是，我也應該只覆蓋我的結果，對嗎？

Answer 1

正如@omegastripes所指出的，subs沒有返回值，只有函數有。

更改

Sub checkXML(sFile)
  ...
End Sub

至

Function checkXML(sFile)
  ...
End Function

另請參閱 。