Código que sirve para generar desde una cadena de cualquier extensión, cadenas imprimibles del tamaño que se quiera.
Código:
<%
Sub Ren(vec,renglon)
'Funcion renglonado
'Definición de variables
Dim tempo, ctotal, i
tempo="" 'Variable que contendrá el renglón imprimible en cada ocasión
i=0 'Indice para recorrer la extensión del vector generado por split
ctotal="Cadena de texto que vamos a renglonar"
vec=Split(ctotal, " ") 'Desmiembra la cadena original en un vector de extensión "cantidad de palabras de la cadena"
while i<=ubound(vec) 'Recorre todos los elementos del vector generado por el split.
if (len(tempo)+len(vec(i))<=renglon) Then 'Calcula que el tamaño del renglón imprimible no exceda la cantidad deseada
if len(tempo)=0 then 'Si es la primera palabra que carga en el renglón, no le concatena espacio en el inicio
tempo=tempo&vec(i)
else
tempo=tempo&" "&vec(i) 'Si no es la primera, antes de colocar el contenido del elemento del vector concatena un espacio
End If
else 'Cuando el renglón imprimible obtiene su tamaño máximo
Response.Write(tempo) 'Imprime el renglón
Response.Write("<br>") 'Imprime un salto de línea
tempo="" 'Vacía el vector. Lo reinicia.
i=i-1 'Retrocede una posición para no omitir la última palabra leída, que generara el exceso de renglón y la impresión.
end if
i=i+1 'Incremento de elemento en el vector.
Wend
'Al salir del bucle general, controla que tempo imprima la última línea, que muy probablemente no haya llegado a cien como para imprimirse
if(len(tempo)<>0) Then
Response.Write(tempo)
Response.Write("<br>")
End if
End Sub
%>
Esto lo llamamos
Código:
<%Ren cadena,tamañorenglon 'Tamaño renglón puede ser un número una variable con valor numérico %>
Ya ves Al zu que al fín me pongo a estandarizar un poco mi código!!! y ya era hora jajaja!!!
ESPERO QUE LES SEA DE UTILIDAD!!!
