Sv: vad är det som förstör?

vad är det som förstör?

Postades av 2003-04-15 15:26:34 - Jonas Sjöblom, i forum asp - allmänt, Tråden har 1 Kommentarer och lästs av 430 personer

En medlem på min sida har skrivit det här på sin presentation viket av någon anledning förorsakar en evig loop av något slag...

<code>
<center>.-:|^Hem^Till^<kompis>Midgård</kompis>^|:-.
Är Vise Boss Där
http://FinalFantasyNU.cjb.net
*~|Warriors of Light|~*

.:|Five Warriors Of Light|:.
.:|<kompis>Sir Frick</kompis>|:.:|<kompis>Sir Bii</kompis>|:.:|<kompis>Sir Hansem</kompis>|:.:|<kompis>Sir Shamzii</kompis>|:.:|Sir Aunton|:.

</center>
Name : Sir Frick
Age : 13
Born : 90-03-21
HP : 7602
MP : 1535
AP : 115
Gil : 548637
Party Members : Vivi, Rikku, Cloud
Weapon : Wooden Staff
Armour : Silk Plate
Helmet : Mages Hat
Gloves : Thunder Gloves
Black Magic : Firaga, Thundaga, Blizzaga, Muddle, Poison
Överdriv : Fury
Items : Al Bedh Potion X50, Petrifying Salt X13, Soft X20
FF : I, II, IX
</center>

FF-Favorites :
I : Monk
II : Leon
III : Cid
IV : ???
V : Faris
VI : Setzer
VII : Sephiroth
VIII : Squall
IX : Steiner / Vivi
X : Rikku
<right>

El Es Yo, Frick,
El Buscar De Oscuridad

Yo Amor Final Fantasy,
Se Es Rey
</right>
<center>http://FinalFantasyNU.cjb.net</center>
</code>

kan det ha nått med att jag använder regexp?

<code>
Set font = New RegExp
font.IgnoreCase=True
font.Pattern = "<font(.*?)>"
font.Global = True
pres = font.Replace(pres, "<font" & lcase("$1") & ">")
Set font = Nothing

Set hr = New RegExp
hr.IgnoreCase=True
hr.Pattern = LCase("<hr(.*?)>")
hr.Global = True
pres = hr.Replace(pres, "<hr" & lcase("$1") & ">")
Set hr = Nothing

Set link = New RegExp
link.IgnoreCase=True
link.Pattern = "<kompis>(.*?)</kompis>"
link.Global = True
pres = link.Replace(pres, "" & lcase("$1") & "")
Set link = Nothing

Set link = New RegExp
link.IgnoreCase=True
link.Pattern = "<kompis>(.*?)</kompis>"
link.Global = True
pres = link.Replace(pres, "" & lcase("$1") & "")
Set link = Nothing

Set koder = New RegExp
koder.IgnoreCase=True
koder.multiline=True
koder.Pattern="<(/?(b|i|u|center|sup|sub|comment|s|li|ul|small|big|br))>"
koder.Global=True
pres=koder.Replace(pres,"<$1>")
Set koder = Nothing

'har också den här koden

function parseHTML(tmp)
dim st,sl,link,nlnk
Dim regex
Set regex = new RegExp
regex.Pattern = "[\w\/\.\:\~\?\&\-\=]"
st = 1
do until st = len(tmp)
st = InStr(st,tmp,"http://")
if isnull(st) or st=0 then
exit do
end if
For sl = st to len(tmp)
If not regex.test(mid(tmp,sl,1)) then
exit for
End If
Next
link = mid(tmp,st,sl-st)
nlnk = "" & link & ""
tmp = Replace(tmp,link,nlnk)
st = st + len(nlnk)
loop
parsehtml = tmp
end function

pres = parsehtml(pres)
</code>

Svara