Нужна помощь в удалении ";" разделитель от элементов в массиве, VBscript

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