
01/08/2004, 00:30
|
| | Fecha de Ingreso: julio-2004
Mensajes: 29
Antigüedad: 20 años, 9 meses Puntos: 0 | |
Hice una función (muy facilita) que me dá la primera parte de un campo, a lo mejor te puede servir
Function Los_primeros(cuantos,de,campo)
' la palabra "de" no tiene ningun uso, pero ayuda a la comprensión
if cuantos < len(campo) then
ww = mid(campo,1,cuantos)
if mid(campo,cuantos + 1,1) = " " then
Los_primeros = ww & "...."
else
for ind = cuantos to 1 step -1
if mid(ww,ind,1) = " " then
Los_primeros = mid(ww,1,ind) & "...."
ind = 0
end if
next
end if
end if
End Function
y para llamarla es así
response.Write(Los_primeros(50,de,campo))
50, o los caracteres que necesites en cada caso.
espero que te sirva |