Foros del Web » Programando para Internet » ASP Clásico »

quitar ultima coma

Estas en el tema de quitar ultima coma en el foro de ASP Clásico en Foros del Web. Amigos tengo el código siguiente: <% Response.ContentType = "text/javascript"%> <% Set objFSO = CreateObject("Scripting.FileSystemObject") objStartFolder = Server.Mappath("/images/") folder = replace(objStartFolder, "\", "/") Set objFolder = ...
  #1 (permalink)  
Antiguo 17/08/2012, 16:16
 
Fecha de Ingreso: diciembre-2010
Ubicación: Perú
Mensajes: 14
Antigüedad: 14 años
Puntos: 0
quitar ultima coma

Amigos tengo el código siguiente:
<% Response.ContentType = "text/javascript"%>
<% Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = Server.Mappath("/images/")
folder = replace(objStartFolder, "\", "/")
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
response.write "var " & "tinyMCEImageList" & " = " & "new " & " Array" & "(" & vbCrLf

apertura= ("[" & """")
medio= ("""" & "," & """")
cierre=("""" & "]" )


For Each objFile in colFiles
response.write apertura & objFile.Name & medio &(mid(folder,50)) & "/" & objFile.Name & cierre & "," & vbCrLf
Next
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder (Subfolder.Path)
pathsubfolder = replace(Subfolder.Path, "\", "/")

Set colFiles = objFolder.Files
For Each objFile in colFiles
response.write apertura & objFile.Name & medio & mid(pathsubfolder,50) & "/" & objFile.Name & cierre & "," & vbCrLf
Next
ShowSubFolders Subfolder
Next
End Sub
response.write ")"&";"
%>

Me da como resultado:

var tinyMCEImageList = new Array(
["aec.jpg","/images/aec.jpg"],
["bmm.jpg","/images/bmm.jpg"],
["cascada_model.jpg","/images/cascada_model.jpg"],
["cevasco.jpg","/images/cevasco.jpg"],
["cfcc.jpg","/images/cfcc.jpg"],
["cfcc2.jpg","/images/cfcc2.jpg"],
["elice.jpg","/images/elice.jpg"],
["fmr.jpg","/images/fmr.jpg"],
["graf_par_parla.gif","/images/graf_par_parla.gif"],
["ico_video.asp","/images/ico_video.asp"],
["ico_video.png","/images/ico_video.png"],
["img_autor.jpg","/images/img_autor.jpg"],
["jvg.jpg","/images/jvg.jpg"],
["lira.jpg","/images/lira.jpg"],
["logotipo.asp","/images/logotipo.asp"],
["logotipo2010.jpg","/images/logotipo2010.jpg"],
["maquiavelo.jpg","/images/maquiavelo.jpg"],
["mtorres.jpg","/images/mtorres.jpg"],
["m_agua.asp","/images/m_agua.asp"],
["m_agua.gif","/images/m_agua.gif"],
["rating.asp","/images/rating.asp"],
["rating.gif","/images/rating.gif"],
["wculver.jpg","/images/wculver.jpg"],
);

Lo que deseo es quitar esa última coma(,) marcada en rojo.
Les agradezco de antemano su ayuda.

Etiquetas: cadena-de-caracteres
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:10.