Modificar Kml 🗺️ Foro Programación de Google Earth y Maps 🗺️ p89 🗺️

Buenas!, gracias por contestarme :).

Creo que no me explique muy bien jejeje, veréis tengo que modificar un único kml para que todas las marcas de posición tengan el mismo estilo de "bocadillo" al pinchar en ellas, ya que vienen con el de defecto (fondo blanco, sin imagen, feo vamos...).

Dispongo de otro kml que hice en su día como plantilla con un estilo más coqueto, es por esto que se me ocurrió hacer un programilla en VBA para añadir este estilo a todas las marcas del kml "sosete", pero siendo sinceros, es un poco chapuza (localizo el fichero, el texto a cambiar, y le introduzco mi texto con replace, pero me modifica nodos que no tiene que modificar además de otros fallos).

Morta tu solución creo que me puede ayudar, me lo podrías detallar un poco más por favor?.

_polifemo me voy a poner a buscar información sobre modificar como un xml ya que como bien dices, puede ser la alternativa, aunque estoy un poco verde jejeje.

Maquito tu solución me ha servido en parte, pero no ha modificado las marcas tal y como deseaba, aún así gracias por tu respuesta por que sé que más adelante le voy a dar uso!.

Gracias! Un Saludo.

Uky15 ahora no tengo tiempo de ponertelo mas claro pero creo que con esto sería suficiente para que entiendas la dinámica

Abres el fichero y guardas el contenido en una variable

Open FORIGEN For Input As #NOR
'con esto se asigna el contenido completo del fichero a una variable
tamaño = FileLen(FORIGEN)
CONTENIDO$ = Input(tamaño, NOR)
Close #NOR



Esto deberías de ponerlo en un bucle para que te vaya leyendo todo el fichero y haga todas las sustituciones


'******
'BUSCA LA ETIQUETA DE INICIO DE COLOR
C1 = ""
POS1 = InStr(ULTIMAPOSICION, CONTENIDO$, C1, 0): POS1 = POS1 + 7
'BUSCA LA ETIQUETA DE FINAL
C2 = ""
POS2 = InStr(POS1, CONTENIDO$, C2, 0)

'CUENTA EL NUMERO DE CARACTERES Y OBTIENE EL VALOR
L1 = POS2 - POS1
VALOR1 = Trim(Mid(CONTENIDO$, POS1, L1)) 'esto es lo que hay entre las etiquetas

'si difiere del valor que queremos, hace un replace
If VALOR1 "ffff0000" Then
CONTENIDO$ = Replace(CONTENIDO$, "" & VALOR1 & "", "ffff0000")
End If

'ultimaposición = POS2

'******
'******

Muchas gracias!!, me esta sirviendo bastante, de verdad :).
Aún así, más adelante seguramente tenga que empezar a tratarlos como xml.

Un saludo!