27. april 2003 - 16:33
Der er
2 kommentarer og
1 løsning
Replace >< og html koder
Jeg har et script som skal skrive til en tekstfil. Tekstfilen skal læses af flash, og af en eller anden grund kan flash ikke læse < tegnet. jeg skal derfor have det tegn erstattet, problemet er bare at der i samme fil bliver brugt html koder...hvordan gør jeg lige det?
27. april 2003 - 16:42
#1
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>"
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, "<", "<")
Streng = Replace(Streng, ">", ">")
' 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, "<" & ArrTags(i) & ">", "<" & ArrTags(i) & ">")
Streng = Replace(Streng, "</" & ArrTags(i) & ">", "</" & ArrTags(i) & ">")
Next