Jeg har lavet denne funktion til at fjerne al tekst der står mellem [hide] og [/hide], men den virker desværre ikke hvis man bruger linieskift eller hvis man bruger tegnene [ og ]. Er der en som har en ide til en forbedring af funktionen ?
Set re = New RegExp re.Global = True re.Pattern = "\[hide\]([^]]*)\[/hide\]" Set matches = re.Execute(strtext)
For Each match In matches alltext = match.SubMatches(0)
Den her lille function vil kunne bruges, tror jeg:
function hideit(s) b=instr(lcase(s),"[hide]") e=instr(lcase(s),"[/hide]")
if b>0 and e>0 then hideit=left(s,b-1) & mid(s,e+8,len(s)) else hideit=s end if end function
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.
