cual es la mejor manera de reemplazar lineas de un archivo de texto?

ElAprendiz · #1 (**permalink**) 28/04/2006, 15:42

no se si es por que es viernes y ya mi cabeza no me da pa pensar

tengo 140 archivos html y necesito cambiar la linea 9 y 15 de cada uno de estos.

la nueve por lo que se encuentra en la linea 2.
en la 15 tengo un include que lo puse mal


deberia ser


alguna idea

a n g e l u s · #2 (**permalink**) 28/04/2006, 18:03

los archivos son consecutivos?

ej: archivo1.html > archivo2.html > archivo3.html > ....

ElAprendiz · #3 (**permalink**) 28/04/2006, 18:08

me falto colocar que estan en una carpeta especifica. lo de los nombres de los archivos no creo que importe mucho ya que fso se puede obtener el nombre de los archivos y por supuesto el contenido de esta.

de hecho ya tenia una pequeña rutina para leer archivo por archivo y las lineas que necesito

Código:

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(server.mappath(ruta))
i=1
response.write "<table border=2>"
for each file in folder.files
	Set archivo = fso.OpenTextFile(file, 1)
	archivo.skipline
	archivo.skipline
	archivo.skipline
	archivo.skipline
	archivo.skipline
	archivo.skipline
	archivo.skipline
        archivo.skipline

	linea=archivo.readline	
'	response.write "<tr><td>"&i&"</td><td>"&file&"</td>"
        response.write "<td>"&linea&"</td></tr>"&vbcrlf
	archivo.close
	i=i+1
next

ahora el tema es como inserto?

a n g e l u s · #4 (**permalink**) 28/04/2006, 18:23

IDEA

<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set readfile=fs.OpenTextFile(filename,1,False)

reemplaza = 2
busquedauno = 9
busquedados = 15
i = 0

Do while not readfile.atendofstream
on error resume next
if err <> 0 then
Response.Write(err.description)
exit do
else

if i = reemplaza then
paso = readfile.readline
end if

if i = busquedauno then
reemplaza(paso)
end if

if i = busquedados then
modifica
end if

loop

readfile.close
set readfile=nothing
set fs=nothing

%>

El resto es tuyo

ElAprendiz · #5 (**permalink**) 28/04/2006, 18:35

Cita:

El resto es tuyo

bueno gracias

a n g e l u s · #6 (**permalink**) 28/04/2006, 18:45

prueba o corrige el codigo si falla en algo, y si lo solucionas nos cuentas para aprender.

ElAprendiz · #7 (**permalink**) 28/04/2006, 18:58

esta bien la logica, el problema es "el resto" que aun no cacho (o me da paja) como hacerlo

supongo que en reemplaza, debo volver a abrir el archivo pero ahora como lectura....

mmhh no se demasiado para un dia viernes

NightDark · #8 (**permalink**) 28/04/2006, 21:43

Código:

no se si es por que es viernes y ya mi cabeza no me da pa pensar

Jajaja no eres el único... yo hace mucho tiempo que no programo y hoy llego y estoy cansado que ni ganas de pensar tengo..
Pero veo que tu problema me ha reanimado :P

Código:

<%
On Error Resume Next
Dim fso, leer, folder,abrir,remplazo
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(".")
        For each ficheros in folder.Files
            if(Instr(ficheros,".htm")) then
            set leer = fso.OpenTextFile(ficheros,1)
            remplazo = replace(leer.ReadAll,"<!--#include file=""../../funciones/funciones.asp""-->","<!--#include virtual=""funciones/funciones.asp""-->")
            leer.close
            set abrir = fso.OpenTextFile(ficheros,2)
            abrir.Write remplazo     
            abrir.close
            Response.Write "Remplazo con éxito"
            end if            
        Next
    Set fso = nothing
    Set folder = nothing
%>

No es eso lo que querías? jeje...
un saludo.

ElAprendiz · #9 (**permalink**) 28/04/2006, 22:34

muy bien!

era la logica que necesitaba, ya con esto me puedo guiar de mejor manera

ElAprendiz · #10 (**permalink**) 29/04/2006, 19:00

Cita:

Jajaja no eres el único... yo hace mucho tiempo que no programo y hoy llego y estoy cansado que ni ganas de pensar tengo..
Pero veo que tu problema me ha reanimado :P

que bien, me alegro haber despertado tu amor por la programacion

estamos a mano

pctreus · #11 (**permalink**) 26/05/2006, 02:31

Hola!

Tengo este codigo y me gustaria que funcionara ya que tal como esta ahora no me funciona!;(

<%
set FSO = server.createObject ( "Scripting.FileSystemObject" )
Set algo = FSO.OpenTextFile ( "C:\squid\etc\limituser\" + Session("UsuarioNickname")+ ".doc")
'Muestro el texto del txt
Response.Write algo
Response.Write session("UsuarioNickname"+"kkkkk")
Set FSO = Nothing
%>

Lo que tiene que hacer es que " C:\squid\etc\limituser\" + Session("UsuarioNickname")+ ".doc") " te muestre un *.doc que hay en esta ubicación, la variable Session("UsuarioNickname") es una cookie de session que ya tienes cuando te autentificas. No se si me entendeis! pero es lo unico que me hace falta para acabar un proyecto... mi correo es alex.andreu@pct-reus.com si alguien me quiere consultar algo.
Gracias

ElAprendiz · #12 (**permalink**) 26/05/2006, 07:55

set FSO = server.createObject ( "Scripting.FileSystemObject" )
Set algo = FSO.OpenTextFile ( "C:\squid\etc\limituser\" + Session("UsuarioNickname")+ ".doc", 1)
contenido=algo.readall
'Muestro el texto del txt
Response.Write contenido
Response.Write session("UsuarioNickname"+"kkkkk")
Set FSO = Nothing

pctreus · #13 (**permalink**) 26/05/2006, 08:01

Ostras muchisimas gracias! eres un crack!!!!!! todo ok!

pctreus · #14 (**permalink**) 29/05/2006, 02:25

Tengo otro problemilla
Con el codigo :
set FSO = server.createObject ( "Scripting.FileSystemObject" )
Set algo = FSO.OpenTextFile ( "C:\squid\etc\limituser\" + Session("UsuarioNickname")+ ".doc", 1)
contenido=algo.readall
'Muestro el texto del txt
Response.Write contenido
Response.Write session("UsuarioNickname")
Set FSO = Nothing

Me muestra lo que hay en el txt pero en linea recta sin respetar los saltos de linea ni nada

ejem:

hola que tal como va la vida. la vida va bien

Tendria que quedar:

hola que tal como va la vida.
la vida va bien

que tendria que añadir en el codigo??

GauTxori · #15 (**permalink**) 29/05/2006, 02:54

Aupa pctreus, no se si te valdra, pero prueba esto y nos comentas:

contenido=algo.readall
contenido = replace(contenido, chr(13)&chr(10),"<br>")
'Muestro el texto del txt
Response.Write contenido
Response.Write session("UsuarioNickname")

o sino quieres variar el valor de la variable:
contenido=algo.readall

'Muestro el texto del txt
Response.Write replace(contenido, chr(13)&chr(10),"<br>")
Response.Write session("UsuarioNickname")

pctreus · #16 (**permalink**) 01/06/2006, 03:49

Buenas de nuevo! si que es esto pero tendria que llegar la linea hasta el final sin respetar los bordes de la pagina

ejem:

|texto texto texto texto| texto texto
|texto texto |

Asi es como tendria que quedar :

|texto texto texto texto texto text |
|texto texto ----------------------|

los | es los margenes del explorador, no tendria que respetar margenes y continuar la linea hasta el final.