29/06/2010, 07:07
|
| | | Fecha de Ingreso: junio-2010
Mensajes: 60
Antigüedad: 14 años, 6 meses Puntos: 1 | |
| PARA jochesfor
Hola!
he probado esto que me explicaste pero no funciona del todo
me puedes ayudar? gracias!
TextoCompleto = "El ácido acetilsalicílico se administra principalmente por vía oral, aunque también existe para uso rectal y como terapia intravenosa. Los comprimidos de aspirina para administración oral se hidrolizan con facilidad cuando se ven expuestos al agua o aire húmedo, de modo que deben permanecer almacenados en sus envoltorios hasta el momento de su administración"
n = InStr(90, TextoCompleto," ")
car90car = left(TextoCompleto,n-1)"
TextoCompleto = right(TextoCompleto, len(TextoCompleto)-(Len(car90car)+1)) 'El +1 elimina el " "
'n = InStr(15,car90car , " ")
response.write car90car & "<br>" & TextoCompleto |