Ver Mensaje Individual
  #3 (permalink)  
Antiguo 23/08/2002, 00:59
malex6
 
Fecha de Ingreso: enero-2002
Mensajes: 217
Antigüedad: 23 años, 4 meses
Puntos: 0
Re: Textarea que acepta codigos HTML

continuacion:
fString = replace(fString, "<br>","[br]", 1, -1, 1)
fString = replace(fString, "<div align=left>", "
", 1, -1, 1)
fString = replace(fString, "</div id=left>", "
", 1, -1, 1)
fString = replace(fString, "<center>","
", 1, -1, 1)
fString = replace(fString, "</center>","
", 1, -1, 1)
fString = replace(fString, "<div align=right>", "
", 1, -1, 1)
fString = replace(fString, "</div id=right>", "
", 1, -1, 1)
fString = replace(fString, "<ul>","
  • ", 1, -1, 1)
    fString = replace(fString, "</ul>","
", 1, -1, 1)
fString = replace(fString, "<ol type=1>","[list=1]", 1, -1, 1)
fString = replace(fString, "</ol id=1>","[/list=1]", 1, -1, 1)
fString = replace(fString, "<ol type=a>","[list=a]", 1, -1, 1)
fString = replace(fString, "</ol id=a>","[/list=a]", 1, -1, 1)
fString = replace(fString, "<li>","[*]", 1, -1, 1)
fString = replace(fString, "</li>","[/*]", 1, -1, 1)
fString = replace(fString, "<BLOCKQUOTE id=quote><font size=" & strFooterFontSize & " face=""" & strDefaultFontFace & """ id=quote>quote:<hr height=1 noshade id=quote>","
Cita:
", 1, -1, 1)
fString = replace(fString, "<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & " id=quote>","
", 1, -1, 1)
fString = replace(fString, "<pre id=code><font face=courier size=" & strDefaultFontSize & " id=code>","
Código:
", 1, -1, 1)
			fString = replace(fString, "</font id=code></pre id=code>","
", 1, -1, 1)
fString = replace(fString,"<a href='","",1,-1,1)
fString = replace(fString,"</a>","
",1,-1,1)
fString = replace(fString, "<img src=""","[img]",1,-1,1)
fString = replace(fString, "<img align=right src=""","[img=right]",1,-1,1)
fString = replace(fString, "<img align=left src=""","[img=left]",1,-1,1