Question

我的代码是从列出多个文件路径的数据单元中提取的，并使用分号“;”作为分隔符。在分割数据并将其放入数组后，我需要删除分号。否则我的文件路径进入循环时无效。

澄清一下：当数据单元中只有一个文件路径时，我的代码有效，一旦它遇到具有多个路径的单元，就会因为“;”

而死掉

非常感谢任何帮助。

我的代码如下：

<%
strValue = RS("ATTACHMENTS")
strAryWords = Split(strValue, ";")

' - strAryWords is now an array
For i = 0 to Ubound(strAryWords)
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set fileObject = fso.getFile(strAryWords(i))

    Response.Write "<TH><TR align=left><TD>" & strAryWords(i) &"  "& fileObject.Size &"  "&"<img src=images/up.gif><BR></TD></TR>"

    Set fileObject = Nothing
    Set fso = Nothing  
Next
%>

Answer 1

如果问题是strValue有一个尾随';'，请将您的代码更改为：

strValue = RS("ATTACHMENTS")
strAryWords = Split(strValue, ";")


' - strAryWords is now an array
For i = 0 to Ubound(strAryWords)
    If strAryWords(i) <> "" Then
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        Set fileObject = fso.getFile(strAryWords(i))

        Response.Write "<TH><TR align=left><TD>" & strAryWords(i) &"  "& fileObject.Size &"  "&"<img src=images/up.gif><BR></TD></TR>"

        Set fileObject = Nothing
        Set fso = Nothing
    End If
NEXT

需要帮助删除“;”从数组中的项目分隔符，VBscript

1 个答案: