Editar un txt cambiando variables

Iniciado por Bourne Ultimatum, 11 Mayo 2006, 02:06 AM

0 Miembros y 1 Visitante están viendo este tema.

Bourne Ultimatum

Hola tengo un txt donde hay codigo htm
es una pagina que muestra una imagen

lo que quiero hacer es tener un text en visual donde sea variable

y que abra el txt y busque lo siguiente

src="variable"

y que me la cambie por lo que este en el text del visual
se puede hacer??
"El pertenecia a esa clase singular de hombres que la especie produce rara vez,
en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo
cualquier sufrimiento parece natural" Ernesto CHE Guevara

http://www.desdeabajorugby.com.ar

Bourne Ultimatum

"El pertenecia a esa clase singular de hombres que la especie produce rara vez,
en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo
cualquier sufrimiento parece natural" Ernesto CHE Guevara

http://www.desdeabajorugby.com.ar

_Sergi_

Podrías volver a escribir la pregunta? Es que no te entiendo.

Citarlo que quiero hacer es tener un text en visual donde sea variable

Tener un text donde sea qué???

Te refieres a abrir un archivo del disco? O a trabajar sobre un textbox?  :huh:
Proyecto de Ingeniero

xadap

#3
-

Bourne Ultimatum

me explico mejor
tengo un programa q me hace capturas de pantalla
ahora quiero que me las suba a un ftp
esto lo se hacer, pero necesito ademas de q suba la imagen que me suba un Html para que al entrar en www.programa.com/algo.html me salga la imagen en ese html.

tengo el html y en el codigo hay un lugar donde dice "src="
despues de = sigue la ruta de la imagen
como hago para abrir ese html e ir cambiandole la ruta ?? y guardarlo despues
"El pertenecia a esa clase singular de hombres que la especie produce rara vez,
en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo
cualquier sufrimiento parece natural" Ernesto CHE Guevara

http://www.desdeabajorugby.com.ar

Hendrix

#5
Lo tienes que abrir (mejor si el html original va sin ruta, solo con un espacio, por ejemplo asi: scr= )

Kuando lo abras (Open "C:\html.html" For Binary As #1) te vas corriendo bytes hasta donde esta el scr=, y cuando estas alli te pones a escribir lo que kieras....Pero ten kuidado que te va a sobreescribir lo que este detras...para que siga estando lo de detras lo tienes que reestrucrurar....Mira, te paso un kode que improvisare ahora mismo:

Dim bytes As String ' Los Bytes del principio, los tienes que kontar hasta llegar al = del scr ;)
Dim escribir As String ' Lo que vas a escribir
Dim total As String ' Para reestablecer el archivo

Open "C:\Hendrix.txt" For Binary As #1 ' Abrimos el archivo
bytes = Space(12) ' Le asignamos los bytes que no nos interesan
total = Space(LOF(1) - 12) ' Le asignamos todo el volumen del archivo y le restamos los que no nos interesan
Get #1, , bytes ' Extraemos los bytes malos
Get #1, , total ' Extreamos para reestablecer el archivo
Close #1

Open "C:\Hendrix.txt" For Binary As #1
bytes = Space(12) ' Lo mismo del principio
Get #1, , bytes ' Nos vamos a donde nos interesa
Put #1, , "Http://www.google.es" ' Le añadimos lo que keremos
Put #1, , total ' Reestructuramos el archivo
Close #1 ' Cerramos y listo


Por Ejemplo, en Hendrix.txt tenia esto:

Hendrix scr= The Best

Y al aplicar esto me kedo asi:

Hendrix scr=Http://www.google.es The Best

Es decir, que creo que te va a servir.... ;) ;) ;)

Salu2

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

Gorky

No crees que seria mas correcto abrirlo como archivo secuencial de texto plano? Y no como binario. Porque un archivo html eso es lo que es: texto plano.

Hendrix

CitarPorque un archivo html eso es lo que es: texto plano.

Por eso lo habri en binario.... ;D ;D ;D

Aunke esta kalro que se puede abrir komo a uno le de la gana...puesto que es texto plano... ;) ;) ;)

Salu2

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

Bourne Ultimatum

Graciassss
era lo que necesitaba
ahora lo voy a arreglar para que me guarde con el nombre que el usuario elija, le cambie la extensión a htm y me lo suba al ftp
"El pertenecia a esa clase singular de hombres que la especie produce rara vez,
en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo
cualquier sufrimiento parece natural" Ernesto CHE Guevara

http://www.desdeabajorugby.com.ar