Minder mig om en leksikal fortolker jeg engang lavede. Jeg ville lave en lille funktion der har nogle tilstande og som løber strengen igennem fra en ende af. Nedenstående princip kan du udvidde til at omfatte yderlige test hvis det ønskes.
Princippet er: <% Function StripHTML( strS ) DIM strR ' Result string DIM State ' 0=find start; 1=find end; DIM intI ' loop count
strR = "" State = 0
For intI=0 TO Len(strS) If State=0 Then If Mid(strS,intI,1) <> "<" Then strR = strR &Mid(strS,intI,1) Else State=1 End If Else ' state=1 If Mid(strS,intI,1) = ">" Then State = 0 Else strR = strR &Mid(strS,intI,1) End If End If Next StripHTML = strR End Function %>
Her med et par mindre detaljer rettet: <% Function StripHTML( strS ) DIM strR ' Result string DIM State ' 0=find start; 1=find end; DIM intI ' loop count
strR = "" State = 0
For intI=1 TO Len(strS) If State=0 Then If Mid(strS,intI,1) <> "<" Then strR = strR &Mid(strS,intI,1) Else State=1 End If Else ' state=1 If Mid(strS,intI,1) = ">" Then State = 0 Else ' Ignore End If End If Next StripHTML = strR End Function %>
Grunden til accepteret svar til Flemming, er den at jeg bedre kan lide svar med eks. Så ved jeg at folk, har gjort lidt ud af at svarer, og ikke bare bruger et standard svar! :)
Chruker: Hvis du snakker om KISS, så er det bare en reminder til mig selv, fra min gamle IT Lærer! ;)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.