Problema al reemplazar Queria por favor consultarle a la gente que mas sabe acerca de este problemita:
Objetivo: Cambiar mediante una serie de combos de un formularios los datos contenidos en el archivo de hoja de estilo.
Idea:
Asi que tomo todo el contenido, la parte que quiero cambiar (que la guardo de forma fija en una variable) y a la que llamo trozo1 y la parte nueva modificada que llamo trozo2.
Estas 3 variables son usadas en una funcion Replace.
El problema y la consulta surge ya que no me toma bien la comparación de lo que aparece dentro de la variable trozo 1 en relacion a todo el contenido del archivo de hoja de estilo.
Set fs = CreateObject("Scripting.FileSystemObject")
Set wfile = fs.OpenTextFile("C:\Inetpub\wwwroot\sitio\style.cs s", 1, false)
'Aca guardo el contenido del archivo
viejocontenido = wfile.readall
'Trozo 1
trozo1 = "P.title { MARGIN-TOP: 0.1in; FONT-WEIGHT: bold; FONT-SIZE: 200%; MARGIN-BOTTOM: 0in; MARGIN-LEFT: 0.1in; COLOR: black; FONT-FAMILY: Arial, Helvetica, Verdana, sans-serif; VISIBLE: true; CAPTION: Title; } "
'Trozo 2
'aca tengo el nuevo valor de titlenuevo
trozo2 = "P.titlenuevo { MARGIN-TOP: 0.1in; FONT-WEIGHT: bold; FONT-SIZE: 200%; MARGIN-BOTTOM: 0in; MARGIN-LEFT: 0.1in; COLOR: red; FONT-FAMILY: Arial, Helvetica, Verdana, sans-serif; VISIBLE: true; CAPTION: Title; } "
'Reemplazamos
micadena = replace(viejocontenido, trozo1 , trozo2)
Esto lo hago asi y parece tonto pero mas adelante voy a cambiar las palabras titlenuevo o el color del estilo por variables cambiantes en una funcion
