AampyMedlem sedan feb. 20011 498 inlägg Frågan#1 <%
function citat(txt)
if InStr(txt,"[ CITAT=") <> 0 then
startcitat_username = InStr(txt,"[ CITAT=") + 7
endcitat_username = InStr(txt,"]")
citat_username = mid(txt,startcitat_username,endcitat_username-startcitat_username)
txt = Replace(txt, "[ CITAT="&citat_username&"]", "<b><font color=""#006600"">Citat från "&citat_username&":</font></b><table style=""BORDER-BOTTOM: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 1px SOLID; BORDER-LEFT: #000000 1px solid"" border='0' bgcolor='#F8F8F8' width='100%'><tr><td>")
txt = Replace(txt, "[/CITAT]", "</td></tr></table>")
end if
citat = txt
end function
mytext = "[ CITAT=Andreas]hej hopp hoppas detta funkar[ CITAT=test]hej hopp hoppas denna funkar[ /CITAT][ /CITAT]"
response.write citat(mytext)
%>
Nu när det finns två citat i mytext så skriver den inte ut riktigt som jag vill, se Exempel 1:
Exempel 1
Som ni ser så skrivs det andra citatet ut fel.
PÅ detta exempel när det bara finns ett citat
mytext = "[ CITAT=Andreas]hej hopp hoppas detta funkar[ /CITAT]"
Så funkar det som det ska. Se exmpel 2:
Exempel 2
Hur ska man göra så att det även funkar när man har två citat?
DDenkanMedlem sedan juni 2002256 inlägg <%
function citat(txt,done)
If InStr(txt,"[ CITAT=") <> 0 Then
iC = InStr(txt,"[ CITAT=")
mC = Mid(txt,iC)
p1 = Left(txt,iC-1)
cName1 = Left(mC,InStr(mC,"]"))
cName2 = Right(cName1,Len(cName1)-8)
cName3 = Left(cName2,Len(cName2)-1)
p2 = "<br><b><font color=""#006600"">Citat från "&cName3&":</font></b><table style=""BORDER-BOTTOM: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 1px SOLID; BORDER-LEFT: #000000 1px solid"" border='0' bgcolor='#F8F8F8' width='100%'><tr><td>"
p3 = Right(mC,Len(mC)-Len(cName1))
citat = citat(p3,done&p1&p2)
Else
citat = Replace(done&txt, "[ /CITAT]", "</tr></td></table>")
End If
end function
%>
För att anropa:
<%
mytext = "weoweo [ CITAT=Andreas]hej hopp hoppas detta funkar[ CITAT=test]hej hopp hoppas denna funkar[ /CITAT][ /CITAT]"
response.write citat(mytext,"")
%>
