29/01/2002, 13:18
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 4 meses Puntos: 535 | |
| Re: calcular el numero de lineas de un campo
El número de líneas no creo que sea fácil de obtener ya que depende del tamaño y tipo de letra que utilices y el ancho máximo para cada línea.
lo único que pude hacer es conocer la cantidad de "enters" que hay en un campo de una BD (si a eso te referías con "líneas"):
<%
' conexión a la BD y todo eso...
Cadena = Rs("CAMPO")
' creamos un bucle por cada caracter del string "Cadena":
For i = 1 to Len(Cadena)
' comparamos cada caracter con el "enter" (CHR(10))
If Mid(cadena,i,1) = CHR(10) Then
' si el caracter actual coincide, le sumamos 1 a j
j = j + 1
End If
next
' en j queda guardada la cantidad de "enters" que hay en el campo
Response.Write j
' cerrás los objetos
%>
Espero te sirva
diego |