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部分から1件の結果を取得し、今のシステムを知っているが、それがなかった場合でも、私は上書きされなければならない問題のことを確認していません私の結果、正しい？

Answer 1

@omegastripesと指摘されているように、サブシステムには戻り値がありません。

変更

Sub checkXML(sFile) 
    ... 
End Sub 

Function checkXML(sFile) 
    ... 
End Function 

See alsoへ。