Lectura de archivos

[i_e_s27]

Mmmm espero poder ayudarte...

Primero que nada pegale una leidita a esto:

http://www.aspfacil.com/articulos/fso.asp

Voy a suponer que quieres abrir uno por uno los archivos *.txt y reemplazar "Nombre: " por "" y "Apellidos: " por ""

Y el codigo tendria que ser algo asi, no estoy seguro de que funcione... tendrias que ir probando...

Código:

<%
Dim FSO, oCarpeta, colFicheros, fichero, oFichero
Dim sContenido, CarpetaDondeBuscar

CarpetaDondeBuscar = "C:\Documentos" 'Aca especificas la carpeta donde estan los txt, tambien puedes poner algo como Server.MapPath("/Carpeta")

set FSO = Server.CreateObject("Scripting.FileSystemObject")
set oCarpeta = FSO.GetFolder(CarpetaDondeBuscar)
set colFicheros = oCarpeta.Files

'Recorremos la colección de ficheros (objetos File)
for each fichero in colFicheros
	'Abro el fichero para lectura (ForReading)
	set oFichero = fichero.OpenAsTextStream(1)
	'Leo todo el fichero a una variable
	sContenido = oFichero.ReadAll
	'Cierro el fichero
	oFichero.Close
	set oFichero = nothing
	
	Replace (sContenido, "Nombre: ", "", 1, -1, 1)
	Replace (sContenido, "Apellidos: ", "", 1, -1, 1)
	
	'Abro el fichero para guardarlo, no se cual de las dos lineas es la correcta... solo me estoy aproximando... eso averigualo tu:
	set oFichero = fichero.CreateTextFile(CarpetaDondeBuscar & "/" & fichero.Name), True) 'Primera Opcion
	set oFichero = fichero.CreateTextFile(CarpetaDondeBuscar & "/" & FSO.GetFileName(fichero)), True) 'Segunda Opcion
	
	'Guardo el contenido
	oFichero.Write (sContenido)
	'Cierro el fichero
	oFichero.Close
	set oFichero = nothing
next 'fichero

set colFicheros = nothing
set oCarpeta = nothing
set FSO = nothing
%>

Que alguien me corrija si me equivoque (es muy probable... yo programando soy prueba, error y aprendo jajaja)

Saludos!