Links en noticias 2: El Retorno

[FeReNZCy]

Hola maestros. Bien, ya he conseguido colocar el link en mi noticia, pero lo que quiero ahora es incluir esos caretos tan simpáticos (como los del foro. ¡Que copión soy!). Entonces lo que he hecho hasta ahora es que cada vez que se pinche en el botón de insertar careto, se me incluye en mi caja de texto "[]" (sin comillas. Vuelvo a ser copión) y posteriormente al pinchar en el botón de enviar quiero que donde encuentre esa cadena lo sustituya por "<img src="file: ... ". Mi problema es que no sé muy bien cómo empezar.

Si algún alma caritativa...

GRRACIASSS

[Dinopepino]

tal y como lo has dicho,

Recorre la cadena y sustituye por img src ....

Un saludo

[FeReNZCy]

Ya, pero es que ahí precisamente tengo el problema porque yo lo que hago es utilizar el instr("[]",form1.txt_noti.value) con lo que obtengo la posición de la primera coincidencia, pero no sé seguir a partir de ahí hasta el final.

¡Espera!, se me acaba de ocurrir:

¿Qué pasa si hago?
<BLOCKQUOTE><font size=1 face=arial>Citando:<hr height=1 noshade>i=1
While i&lt;&gt;0
if instr(i,&quot;[]&quot;,form1.txt_noti.value)&lt;&gt;0 then
i=instr(i,&quot;[]&quot;,form1.txt_noti.value)
...
else
i=instr(i,&quot;[]&quot;,form1.txt_noti.value)
...
end if
Wend [/QUOTE]

.... .... ....Bueno creo que voy a necesitar algo de ayuda porque me estoy haciendo la picha un lío.

Si pudiérais mandarme algún código similar (... y que no sirva de precedente porque no me gusta pedir código sino ideas), pero es que me he estancado aquí.

Gracias a todos los foreros
FeReNZCy

[FeReNZCy]

Bueno, parece que al fin lo he conseguido... como no me ha contestado nadie entiendo que habrá mucha gente que no sepa cómo se hace esto así que voy a poner el código que he hecho (que no es el mejor del mundo pero funciona).
<BLOCKQUOTE><font size=1 face=arial>Citando:<hr height=1 noshade>&lt;script language=&quot;VBScript&quot;&gt;
public VLink,VSmile

sub Addlink()
MyURL=inputbox(&quot;Teclea una URL&quot;)
Mylink=inputbox(&quot;Teclea texto del link&quot;)
VLink=&quot;&lt;b&gt;&lt;a href=&quot; &amp; chr(34) &amp; &quot;http://&quot; &amp; MyURL &amp; chr(34) &amp; &quot;&gt;&quot; &amp; Mylink &amp; &quot;&lt;/a&gt;&lt;/b&gt;&quot;
formul.txt_noti.value=formul.txt_noti.value &amp; &quot;[Link]&quot;
end sub

sub Addsmile()
VSmile=&quot;&lt;img src=&quot; &amp; chr(34) &amp; &quot;midirectoriodeimagenes/smile.gif&quot; &amp; chr(34) &amp; &quot;&gt;&quot;
formul.txt_noti.value=formul.txt_noti.value &amp; &quot;[]&quot;
end sub

sub Validar()
formul.txt_noti.value=replace(formul.txt_noti.valu e,&quot;[Link]&quot;,VLink)
formul.txt_noti.value=replace(formul.txt_noti.valu e,&quot;[]&quot;,VSmile)
end sub
&lt;/script&gt;
&lt;/head&gt;

&lt;body background=&quot;midirectoriodeimagenes/bg.gif&quot; text=&quot;#FFFFFF&quot; link=&quot;#FFFFFF&quot; vlink=&quot;#FFFFFF&quot; alink=&quot;#FFFFFF&quot;&gt;
&lt;div align=&quot;center&quot;&gt;
&lt;form method=&quot;post&quot; action=&quot;guardarenBD.asp&quot; name=&quot;formul&quot;&gt;
&lt;div class=&quot;txtnoti&quot;&gt;Cabecera de la noticia:&lt;/div&gt;
&lt;input type=&quot;text&quot; name=&quot;txt_cab&quot; maxlength=&quot;25&quot;&gt;&lt;br&gt;
&lt;div class=&quot;txtnoti&quot;&gt;Texto de la noticia:&lt;/div&gt;
&lt;p&gt;
&lt;textarea name=&quot;txt_noti&quot; cols=&quot;60&quot; rows=&quot;8&quot; &gt;&lt;/textarea&gt;
&lt;br&gt;
&lt;input type=&quot;button&quot; name=&quot;Link&quot; value=&quot;Link&quot; onclick=&quot;Addlink&quot;&gt;
&lt;input type=&quot;button&quot; name=&quot;Smile&quot; value=&quot;Smile&quot; onclick=&quot;Addsmile&quot;&gt;
&lt;/p&gt;
&lt;p&gt;
&lt;input type=&quot;submit&quot; name=&quot;btn_ok&quot; value=&quot;Aceptar&quot; onclick=&quot;Validar&quot;&gt;
&lt;/p&gt;
&lt;/form&gt;
&lt;/div&gt;&lt;/body&gt;
&lt;/html&gt; [/QUOTE]

Espero que resuelva muchas dudas.
FeReNZCy