Replace >< og html koder

Når du skriver en tekstblok til filen, kan du vel dele den op, så alt andet end HTML-kode formateres:

Streng = "<html><head></head><body>" & Server.HTMLencode("Funktioner-->Internetindstillinger-->Generelt") & "</body></html>"

nej, for html koden kommer ind imellem teksten

Du kan måske lave et lille trick.
Er lidt i tvivl om, hvad der er smartest, men det er et forslag.


Streng = "<html><head></head><body><b>Funktioner--><i>Internetindstillinger</i>-->Generelt</b></body></html>"

Streng = Replace(Streng, "<", "&lt;")
Streng = Replace(Streng, ">", "&gt;")

' Herefter kan du have en kommasepareret liste med HTML-tags:

Tags = "b,u,i"  'osv...

' Lave et array og løbe det i gennem og erstatte det formaterede med det originale:

ArrTags = Split(Tags, ",")
For i = 0 To UBound(ArrTags)
  Streng = Replace(Streng, "&lt;" & ArrTags(i) & "&gt;", "<" & ArrTags(i) & ">")
  Streng = Replace(Streng, "&lt;/" & ArrTags(i) & "&gt;", "</" & ArrTags(i) & ">")
Next