|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Forçar quebra linha em string grande.
|
 |
|
|
|
Postada em 18/5/2004 por vilmarbr
Pode-se usar a dica abaixo puxando os dados a serem quebrados de uma consulta a um banco de dados, basta adaptar!!
-----------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Option Explicit
Response.Expires = -1
%>
<html>
<head>
<title>forcar_quebra_linha_string_grande.asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim Descricao
Dim TamanhoString,PedacoString,StringAtual,I
'»» <ENTER> = Chr(13)
Descricao = "o que é utilização simultânea de software. a utilização simultânea de software ainda está disponível. " _
& "de que maneiras posso utilizar o software em uma rede. " _
& "de que maneiras posso utilizar o software em uma rede. " _
& Chr(13) _
& Chr(13) _
& Chr(13) _
& Chr(13) _
& "de que maneiras posso utilizar o software em uma rede. " _
& "de que maneiras posso utilizar o software em uma rede. " _
& "de que maneiras posso utilizar o software em uma rede. " _
& Chr(13) _
& "ao atualizar um produto da microsoft, meu eula para esse produto é alterado meu eula para esse produto é alterado meu eula para esse produto é alterado. FIM!!!"
'TamanhoString = Len(Descricao)
PedacoString = Split(Descricao," ",-1,1)
'Response.Write Len("o que é utilização simultânea de software? a utilização simultânea de software ainda está disponível?")
'tamanho máximo será 95.
StringAtual = ""
'Response.Write Descricao
%>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="10%" nowrap>Forçando<br>quebra<br>de<br>linha</td>
<td width="90%">
<pre>
<%
For I = 0 To Ubound(PedacoString)
StringAtual = StringAtual & " " & PedacoString(i)
TamanhoString = Len(StringAtual)
' Response.Write PedacoString(i) & " "
If TamanhoString >= 80 and I < Ubound(PedacoString) then
' Response.Write "<br>TamanhoString/StringAtual: " & TamanhoString & "<br>" & StringAtual & "<br>"
Response.Write Trim(StringAtual) & "<br>"
StringAtual = ""
ElseIf I = Ubound(PedacoString) then
Response.Write Trim(StringAtual) '& " I: " & I & " RESTANTE: "
End If
Next
%>
</pre>
</td>
</tr>
</table>
</body>
</html>
|
|
|
|
|
