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
Autor
En línea
