Inserir quebra de linha numa exibição

Question

Eu montei uma tabela que puxa informaçoes do banco de dados
Mas na hora de exibir as informações ela não quebra linha e exibe uma linha só com 150 caracteres.
Tem algum jeito especificar uma certa quantidade de caarcteres para depois disso pular a linha?

Obs. Quebrar a linha em algum espaço em branco para não cortar nenhuma palavra.

Obrigado xD

Answer 1

Flavio, pelo que entendi voce esta montando uma tabela no HTML com ASP e quer criar uma linha nova ao atingir um número de registros certos?

Bom se for isso creio que já respondi isso no fórum, de uma olhada pra ver se ajuda.

 

http://forums.microsoft.com/MSDN-BR/ShowPost.aspx?PostID=3496764&SiteID=21

 

 

Abraços

 

Estevam

Answer 2

O meu ta assim:

while not rsOficinasOS.eof       
       
            txtRelatorioOS = txtRelatorioOS & "<tr style=""background-color:"&bgColor&""">"
            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("data")&"</font></td>"
            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("hora")&"</font>></td>"
            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("obs")&"</font></td>"
            txtRelatorioOS = txtRelatorioOS & "<td><a href=""novocoment.asp?os="&rsOficinasOS("nros")&"""><font size=1>NOVO</a></font></td>"
            txtRelatorioOS = txtRelatorioOS & "</tr>"

Ai eu criei uma tabela com titulos tal e embaixo aparece essas informçãoes, só que em obs que são comentários ele tinha que pular linha  para não encher a tela e criar uma barra de rolgaem, eu queria colocar uma limitação de characters para ele pular linha automaticamente nessa tabela.
Entendeu ? xD

Answer 3

Entendi tenta assim então, tentei criar algo mais dinâmico aonde você só altera a variável "numCarac" que é o total de caracteres que você quer na linha, não testei por isso faça uns testes ai para ver se da certo.

 

 

Code Snippet

Dim numCarac

Dim numLinhas

Dim aux

Dim caracInicio

aux = 0

caracIniciio = 1

numCarac = 50

numLinhas = len(rsOficinasOS("obs")) / numCarac

 

if (Cint(numLinhas) < 1) then

     numLinhas = 0

else

     numLinhas = Cint(numLinhas)

end if

 

while not rsOficinasOS.eof       
       
            txtRelatorioOS = txtRelatorioOS & "<tr style=""background-color:"&bgColor&""">"
            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("data")&"</font></td>"
            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("hora")&"</font>></td>"

            While aux <= numLinhas
                 txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"& left(rsOficinasOS("obs"),caracInicio,numCarac)&"</font></td>"

                 if (numLinhas > 0) then

                      txtRelatorioOs = txtRelatorioOS & "<br />"

                 end if

                 caracInicio = caracInicio + numCarac

                 aux = aux + 1

   Wend
            txtRelatorioOS = txtRelatorioOS & "<td><a href=""novocoment.asp?os="&rsOficinasOS("nros")&"""><font size=1>NOVO</a></font></td>"
            txtRelatorioOS = txtRelatorioOS & "</tr>"

rsOficinasOS.movenext

Wend

 

 

 

Abraços

 

Estevam

Answer 4

Cara se eu abro uma tabela vazia da erro nessa linha:

numLinhas = len(rsOficinasOS("obs")) / numCarac

Se tiver informações ai da erro nessa no left se tirar o left da erro left(rsOficinasOS("obs"),caracInicio,numCarac).


session("numos")=request("os")

SQL= ("SELECT sac.* from sac where sac.nros ="&request("os")&"")

Set rsOficinasOS = Conn.execute (sql)

Dim numCarac

Dim numLinhas

Dim aux

Dim caracInicio

aux = 0

caracIniciio = 1

numCarac = 50

numLinhas = len(rsOficinasOS("obs")) / numCarac

 

if (Cint(numLinhas) < 1) then

     numLinhas = 0

else

     numLinhas = Cint(numLinhas)

end if

 

while not rsOficinasOS.eof      
      
            txtRelatorioOS = txtRelatorioOS & "<tr style=""background-color:"&bgColor&""">"
            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("data")&"</font></td>"
            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("hora")&"</font>></td>"

            While aux <= numLinhas
                 txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"& left(rsOficinasOS("obs"),caracInicio,numCarac)&"</font></td>"

                 if (numLinhas > 0) then

                      txtRelatorioOs = txtRelatorioOS & "<br />"

                 end if

                 caracInicio = caracInicio + numCarac

                 aux = aux + 1

       Wend
                txtRelatorioOS = txtRelatorioOS & "<td><a href=""novocoment.asp?os="&rsOficinasOS("nros")&"""><font size=1>NOVO</a></font></td>"
                txtRelatorioOS = txtRelatorioOS & "</tr>"

    rsOficinasOS.movenext

    Wend

'if not rsOficinasOS.EOF then
       
'        while not rsOficinasOS.eof       
'       
'            txtRelatorioOS = txtRelatorioOS & "<tr style=""background-color:"&bgColor&""">"
'            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("data")&"</font></td>"
'            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("hora")&"</font></td>"
'            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("obs")&"</font></td>"
'            txtRelatorioOS = txtRelatorioOS & "<td><a href=""novocoment.asp?os="&rsOficinasOS("nros")&"""><font size=1>NOVO</a></font></td>"
'            txtRelatorioOS = txtRelatorioOS & "</tr>"
'           
'        rsOficinasOS.movenext
'        wend
'    else
   
        txtRelatorioOS = "<tr><td colspan=""5""><font color=""#ff0000"">Nenhum dado localizado para os par&acirc;metros selecionados</font></td></tr>"
   
'    end if

'Response.Write sac
%>

Answer 5

É realmente estava com erros, tente com o código abaixo:

 

Code Snippet

session("numos")=request("os")
SQL= ("SELECT sac.* from sac where sac.nros ="&request("os")&"")
Set rsOficinasOS = Conn.execute (sql)

 

if not rsOficinasOS.EOF then
Dim numCarac
Dim numLinhas
Dim aux
Dim caracInicio
aux = 0
caracIniciio = 1
numCarac = 50
numLinhas = len(rsOficinasOS("obs")) / numCarac

if (Cint(numLinhas) < 1) then
     numLinhas = 0
else
     numLinhas = Cint(numLinhas)
end if

while not rsOficinasOS.eof      
      
            txtRelatorioOS = txtRelatorioOS & "<tr style=""background-color:"&bgColor&""">"
            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("data")&"</font></td>"
            txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("hora")&"</font>></td>"
            While aux <= numLinhas
                 txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"& Mid(rsOficinasOS("obs"),caracInicio,numCarac)&"</font></td>"
                 if (numLinhas > 0) then
                      txtRelatorioOs = txtRelatorioOS & "<br />"
                 end if
                 caracInicio = caracInicio + numCarac
                 aux = aux + 1
       Wend
                txtRelatorioOS = txtRelatorioOS & "<td><a href=""novocoment.asp?os="&rsOficinasOS("nros")&"""><font size=1>NOVO</a></font></td>"
                txtRelatorioOS = txtRelatorioOS & "</tr>"
    rsOficinasOS.movenext
    Wend
end if

'Response.Write sac
%>

 

 

Abraços

 

Estevam

Answer 6

Tipo no lugar do left lá você colocou mid, tipo ai deu erro também, ele não tá reconhecendo estranho

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A0005)
Chamada de procedimento ou argumento inválido: 'Mid'
/sac.asp, line 43

Answer 7

Mas neste registro que deu erro o campo observação tem algum dado ou esta vazio?? Teste com Response.Write os parâmetros passados na função para verificar se estão chegando os valores necessários.

 

Abraços

 

Estevam

Answer 8

Estão sim porque quando eu comento algumas linhas a página traz todas as informações

Answer 9

Mas quais são estas linhas que você coloca o comentário?

 

Estevam

 

Answer 10

Todas hauhaua só deixo os txt relatórios para poder acessar o banco

Answer 11

Flavio, antes do while tente colocar o if como abaixo:

 

if (Len(rsOficinasOS("obs")) > 0 ) Then           

While aux <= numLinhas
                 txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"& Mid(rsOficinasOS("obs"),caracInicio,numCarac)&"</font></td>"
                 if (numLinhas > 0) then
                      txtRelatorioOs = txtRelatorioOS & "<br />"
                 end if
                 caracInicio = caracInicio + numCarac
                 aux = aux + 1
Wend

End if

 

Abraços

 

Estevam

Answer 12

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A0005)
Chamada de procedimento ou argumento inválido: 'Mid'
/sac.asp, line 40

Mesma coisa a página não chega nem a abrir.

Answer 13

Flavio, muito estranho, isso só pode estar ocorrendo porque a função Mid esta recebendo algum parametro incorreto, mando o resultado do response.write abaixo.

 

if (Len(rsOficinasOS("obs")) > 0 ) Then           

Response.Write("RS: " & rsOficinasOS("obs") & "<br />" )

Response.Write("Inicio: " & caracInicio & "<br />" )

Response.Write("NumCarac: " & numCarac & "<br />")

Response.End

While aux <= numLinhas
                 txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"& Mid(rsOficinasOS("obs"),caracInicio,numCarac)&"</font></td>"
                 if (numLinhas > 0) then
                      txtRelatorioOs = txtRelatorioOS & "<br />"
                 end if
                 caracInicio = caracInicio + numCarac
                 aux = aux + 1
Wend

End if

 

Abraços

 

Estevam

Answer 14

Mandei um request por um também mas da erro de qualquer jeito nesses response.write

Answer 15

Qual o erro que ocorreu?

 

Tente na funçao Mid colocar os valores estáticos tipo:

Mid(rsOficinasOS("obs"),1,20)

 

 

Abraços

 

Estevam

Answer 16

Obs eu comentei as seguintes linhas pra página pode rodar e eu conseguir  rodar:

        '         txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"& mid(rsOficinasOS("obs"),caracInicio,numCarac)&"</font></td>"

      '      txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"& Mid(rsOficinasOS("obs"),caracInicio,numCarac)&"</font></td>"


Ai copiei o seu wrute exatamente como você me passou mas deu erro na linha do primeiro write, dpeois mandei um write de cada vez sem aquela sua função, mas mesmo assim não deu nada só erro o0 =D

Answer 17

Tipo colocando valores 1,20 deu certo só que quando abro a tabela o comentário não fica no lugar certo e o que tinha que ser depois dele volta um lugar na tabela ou seja a função não deve ta funcionado.

Vlw pelas ajudas você ta sempre quebrando galho aqui huahahau xD

Answer 18

Flavio, realmente havia um erro na programação tente com o código abaixo e veja se da certo.

 

 

Code Snippet

<%
session("numos")=request("os")
SQL= ("SELECT sac.* from sac where sac.nros ="&request("os")&"")
Set rsOficinasOS = Conn.execute (sql)

if not rsOficinasOS.EOF then
 Dim numCarac
 Dim numLinhas
 Dim aux
 Dim caracInicio
 aux = 0
 caracIniciio = 1
 numCarac = 50
 
 while not rsOficinasOS.eof      
 
  numLinhas = len(rsOficinasOS("obs")) / numCarac
  if (Cint(numLinhas) < 1) then
    numLinhas = 0
  else
    numLinhas = Cint(numLinhas)
  end if
  
  txtRelatorioOS = txtRelatorioOS & "<tr style=""background-color:"&bgColor&""">"
  txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("data")&"</font></td>"
  txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("hora")&"</font>></td>"
  txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"
  While aux <= numLinhas
   txtRelatorioOS = txtRelatorioOS & Mid(rsOficinasOS("obs"),caracInicio,numCarac)&
   if (aux < numLinhas) then
    txtRelatorioOs = txtRelatorioOS & "<br />"
   else
    txtRelatorioOS = txtRelatorioOS & "</font></td>"
   end if
   caracInicio = caracInicio + numCarac
   aux = aux + 1
  Wend
  aux = 0
  caracInicio = 1
  txtRelatorioOS = txtRelatorioOS & "<td><a href=""novocoment.asp?os="&rsOficinasOS("nros")&"""><font size=1>NOVO</a></font></td>"
  txtRelatorioOS = txtRelatorioOS & "</tr>"
    rsOficinasOS.movenext
    Wend
end if
%>

 

 

 

Abraços

 

Estevam

Answer 19

Erro na linha do mid de novo
com você ta funcionando?

Desse seu novo jeito mesmo que eu coloque o número direto não vai, e no outro quando eu colocava o número direto fazia mo bagunça ficava comentário pulando linha mas ele ficava na outra coluna

Answer 20

Po ta dificil hehe =(

Tenta com o código abaixo:

 

<%
session("numos")=request("os")
SQL= ("SELECT sac.* from sac where sac.nros ="&request("os")&"")
Set rsOficinasOS = Conn.execute (sql)

if not rsOficinasOS.EOF then
 Dim numCarac
 Dim numLinhas
 Dim aux
 Dim caracInicio
 aux = 0
 caracIniciio = 1
 numCarac = 50
 
 while not rsOficinasOS.eof       
 

if (len(rsOficinasOs("obs")) > numCarac) then
  numLinhas = len(rsOficinasOS("obs")) / numCarac
  if (Cint(numLinhas) < 1) then
    numLinhas = 0
  else
    numLinhas = Cint(numLinhas)
  end if

end if
  
  txtRelatorioOS = txtRelatorioOS & "<tr style=""background-color:"&bgColor&""">"
  txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("data")&"</font></td>"
  txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"&rsOficinasOS("hora")&"</font>></td>"
  txtRelatorioOS = txtRelatorioOS & "<td><font size=2>"

  if (len(rsOficinasOS("obs")) > numCarac) then
  While aux <= numLinhas
   txtRelatorioOS = txtRelatorioOS & Mid(rsOficinasOS("obs"),caracInicio,numCarac)&
   if (aux < numLinhas) then
    txtRelatorioOs = txtRelatorioOS & "<br />"
   else
    txtRelatorioOS = txtRelatorioOS & "</font></td>"
   end if
   caracInicio = CInt(caracInicio) + CInt(numCarac)
   aux = aux + 1
  Wend
  aux = 0
  caracInicio = 1

  else

   txtRelatorioOS = txtRelatorioOS & rsOficinasOS("obs") & "</font></td>"

  end if
  txtRelatorioOS = txtRelatorioOS & "<td><a href=""novocoment.asp?os="&rsOficinasOS("nros")&"""><font size=1>NOVO</a></font></td>"
  txtRelatorioOS = txtRelatorioOS & "</tr>"
    rsOficinasOS.movenext
    Wend
end if
%>

 

 

Segue abaixo um exemplo que eu fiz, se quiser testar.

 

<%
Dim MyArray(5)
MyArray(1) = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
MyArray(2) = "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"
MyArray(3) = "ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc"
MyArray(4) = "dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd"
MyArray(5) = "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"

Dim numCarac
Dim numLinhas
Dim aux
Dim caracInicio
Dim contador
aux = 0
contador = 1
caracInicio = 1
numCarac = 25
 Response.Write("<table border='2'>")
While contador <= 5
 
 numLinhas = len(MyArray(contador)) / numCarac
  
 if (Cint(numLinhas) < 1) then
   numLinhas = 0
 else
   numLinhas = Cint(numLinhas)
 end if

 Response.Write("<tr><td><font size=2>")
    While aux <= numLinhas

  Response.Write(Mid(MyArray(contador),caracInicio,numCarac))
        if (aux < numLinhas) then
         Response.write("<br />")
  else
   Response.Write("</td>")
        end if
        caracInicio = Cint(caracInicio) + CInt(numCarac)
        aux = aux + 1
     Wend
  aux = 0
  caracInicio = 1
  response.Write("</tr>")
  contador = contador + 1
Wend
Response.Write("</table>")
%>

Abraços

 

 

Answer 21

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A03EA)
Erro de sintaxe
/sac.asp, line 48, column 80
txtRelatorioOS = txtRelatorioOS & Mid(rsOficinasOS("obs"),caracInicio,numCarac)&
-------------------------------------------------------------------------------^

Esse erro copiando do jeito que você postou.


Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A03EA)
Erro de sintaxe
/sac.asp, line 48, column 64
txtRelatorioOS = txtRelatorioOS & Mid(rsOficinasOS("obs"),1,50)&
---------------------------------------------------------------^

E esse quando eu altero por números.


O teste que você mandou da tabeinha ta pegando normal.


Bom agora arrumei quer dizer consegui usar ele precisa usar o contador, a linha do mid ficou assim:

txtRelatorioOS = txtRelatorioOS & (Mid(rsOficinasOS("obs"),1,75))

Coloquei ( antes do mid e fechei no final, tirei o & que tava no final bom ai ele já pegou mas sem o "contador ", ai coloquei 1,75 porque pra mim eu já tenho um número máximo de caracteres por comentário portanto tanto faz colocar o número ai funcionou, de qualquer forma em cima onde define número de linhas e número de carcteres não ta pegando mas ta marcado como resposta porque eu só ajustei pra poder usar.

Vlw pela ajuda.

Abraço.