USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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>
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página