Hur gör jag om jag inte vill att: " &Vbclrf &"asd" skall finnas med... utan att hela reg.exp ersätter orginalet... dvs i slutet vill jag bara ha:
||#ffff|fff| så man kan placera ut det som man vill... dvs om
<body ...>
<h2>hej</h2>
Då skall bara <body> taggen laddas... allt annat tas bort. och vice versa
meningen med den är att folk skall kunna skriva <body> taggen och att den skall läggas in med värden i CSS för en DIV... men allt annat förutom <body> skall vara inne i <div>Inne</div>
Innehåller strr endast <body>-kod? Då kanske du kan göra så här:
Function encode(mess)
dim objRegExp
set objRegExp = new RegExp
objRegExp.pattern = "<body"
if objRegExp.test(mess) then
objRegExp.pattern = " \w+='([^']+)'"
objRegExp.global = true
dim matches
set matches = objRegExp.execute(mess)
dim res
res = ""
if matches.count > 0 then
for each m in matches
if m.submatches.count > 0 then
res = res & m.submatches(0) & "|"
end if
next
end if
end if
encode = res
end function
Function encode(mess)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "<body[^>]*>"
objRegExp.IgnoreCase = True
Dim match
Set body = objRegExp.Execute(mess)
Dim res
res = ""
If body.Count > 0 Then
objRegExp.Pattern = "\w+='([^']+)'"
objRegExp.Global = True
Dim matches
Set matches = objRegExp.Execute(body(0))
For Each m In matches
If m.Submatches.Count > 0 Then
res = res & m.Submatches(0) & "|"
End If
Next
End If
encode = res
End Function
men din kod ger bara en massa färger. Medans Glitters kod gör så att man kan fortsätta med en array att man då vet att array(0) ska vara bakgrunden osv.
Function encode(mess)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "<body[^>]*>"
objRegExp.IgnoreCase = True
Dim match
Set body = objRegExp.Execute(mess)
Dim res
res = ""
If body.Count > 0 Then
objRegExp.Pattern = "\w+='[^']+'"
objRegExp.Global = True
Dim matches
Set matches = objRegExp.Execute(body(0))
For Each m In matches
res = res & m & "|"
Next
End If
encode = res
End Function
Function encode(mess)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "(<body[^>]*>)((?:(?:<(?!/body))|[^<]|\n)*)"
objRegExp.IgnoreCase = True
Dim body
Set body = objRegExp.Execute(mess)
Dim res
res = ""
If body.Count > 0 Then
objRegExp.Pattern = "\w+='[^']+'"
objRegExp.Global = True
Set matches = objRegExp.Execute(body(0).Submatches(0))
For Each m In matches
res = res & m & "|"
Next
encode = res & body(0).Submatches(1)
Exit Function
End If
encode = ""
End Function
Function encode(mess)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "<body[^>]*>"
objRegExp.IgnoreCase = True
Dim match
Set body = objRegExp.Execute(mess)
Dim res
res = ""
If body.Count > 0 Then
objRegExp.Pattern = "\w+='[^']+'"
objRegExp.Global = True
Dim matches
Set matches = objRegExp.Execute(body(0))
For Each m In matches
res = res & m & "|"
Next
End If
encode = res
End Function
Nu kommer din kod ge:
<body bgcolor=#fff000 text=#ff0000>
#fff000|#ff0000
<body text=#ffff00 bgcolor=#ff0000>
#ffff00|#ff0000
dvs i arrayn blir inte något man kan "lita" på om man nu skulle ha:
<div style='background-color:<%array(0)%>;'>Hej</div>
Function encode(mess)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "(<body[^>]*>)((?:(?:<(?!/body))|[^<]|\n)*)"
objRegExp.IgnoreCase = true
Dim body
Set body = objRegExp.Execute(mess)
Dim res
res = ""
If body.Count > 0 Then
objRegExp.Pattern = "\w+=(?:'[^']+'|[^\s]+)"
objRegExp.Global = true
Set matches = objRegExp.Execute(body(0).Submatches(0))
For Each m In matches
res = res & m & "|"
Next
encode = res & body(0).Submatches(1)
Exit Function
End If
encode = ""
End Function
kom även ihåg att du kan skriva white och ord som är längre än 6 tecken. Jag tror jag har förstått felet nu jag kan inte komma över $9 dvs $11 räknas som $1 & 1
Hmm så nu vet jag inte riktigt hur man skall fortsätta, kanske begränsar sig ändå att man får fylla i en class och ID och bakgrund men inget annat. Förslag? Eller använda Peter S koder och göra det som array och en reg.exp igen innuti arrayn?
274 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
