Besoin d'aide pour supprimer ";" séparateur d'éléments d'un tableau, VBscript

Question

Mon code provient d'une cellule de données qui répertorie plusieurs chemins de fichier et utilise des points-virgules ";" comme séparateur. Après avoir scindé les données et les avoir placées dans un tableau, j'ai besoin de supprimer les points-virgules. sinon, mes chemins de fichier ne sont pas valides lorsqu'ils entrent dans la boucle.

Pour clarifier: Mon code fonctionne lorsqu'il n'y a qu'un seul chemin de fichier dans la cellule de données et meurt une fois qu'il atteint une cellule avec plusieurs chemins à cause du ";"

TOUTE aide serait très appréciée.

Mon code est le suivant:

<% 
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

Si le problème est strValue finit par ';', changer votre code à ceci:

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