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

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!