Hola:
Tengo un archivo del cual solo quiero modificar una parte del mismo, la cual no esta al final. Es posible hacerlo con FSO ?
Saludos
| |||
Depnde de algunas cosas. ¿El archivo es un archivo de texto plano o algun otro tipo de archivo? |
| |||
lo que tenes que hacer es levantarlo en una variable, reemplazarle loq ue sea preciso y volverlo a escribir. [codigo] Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set sfiles = FSO.getFolder(PathHDRR & PathHTML ) Set sfiles = sfiles.files for each sfile in sfiles 'Response.Write sfile.name & "<br>" 'le cambio el atributo para escritura 'set oFile = FSO.getfile(PathHDRR & PathHTML & sFile.name) set oFile = FSO.getfile(sFile) oFile.Attributes = 0 'oFile.close set oFile = nothing 'levanto el contenido del html Set oFile = FSO.OpenTextFile(PathHDRR & PathHTML & sFile.name,1) cContent = oFile.ReadAll oFile.close set oFile = nothing cContent = replace(cContent, sBuscar, sReemplazar) Set oFile = FSO.OpenTextFile(PathHDRR & PathHTML & sFile.name,2) oFile.Write(cContent) oFile.close set oFile = nothing next [/codigo] Aca lo hace con un HTML, pero para el caso es lo mismo. Saludos. |