regex - 従来の ASP CStr が機能しない

Question

Error 800A000D - Type mismatchサブベローで受け取っていることについて助けが必要です：

<!-- #include file="Regex.asp" -->
<%
Call moverzipado()

Sub moverzipado()
    dim nomeArquivoZip, nomeArquivo 
    nomeArquivo = request("nomeArquivo")
    nomeArquivoZip = NomeArquivo(trim(CStr(nomeArquivo)))&".zip" 'here is the problem
End Sub

これは私のクエリ文字列です:?nomeArquivo=arquivo.zip

これは Regex.asp インクルードです。それは働いています。

<%
Function RegExResults(strTarget, strPattern)

    Set regEx = New RegExp
    regEx.Pattern = strPattern
    regEx.Global = true
    Set RegExResults = regEx.Execute(strTarget)
    Set regEx = Nothing

End Function

Function NomeArquivo(arquivo)
    Set arrResults = RegExResults(arquivo, "(.*)\..*")

    For each result in arrResults
        NomeArquivo = result.Submatches(0)
    Next

    Set arrResults = Nothing
End function

'Response.Write(NomeArquivo("file.exe")) prints "file" here it works.
%>

何が起こっているか知っている人はいますか？

Answer 1

vbScript は大文字と小文字を区別しません。事実上同じ名前の変数と関数があるようです。関数または変数の名前を変更してみてください。