Pular linha após uma dada quantidade

[Asteriscos 0]

Pessoal,

 

Eu tenho um contador de 1 a 1000 e quero que a cada X ele pule linha.

Exemplo:

Pulando linha após 18 registros

 

ASP

[*]<%

 

[*]while cont < 1000

 

[*] cont = cont+1

 

[*] response.write "A"

 

[*]

 

[*] 'Aqui está estático. Como seria dinâmico?

 

[*] if cont > 18 or cont > 36 or cont > 52 then

 

[*] response.write "<br>"

 

[*] end if

 

[*] wend

 

[*]%>

 

Resultado

AAAAAAAAAAAAAAAAAA

AAAAAAAAAAAAAAAAAA

AAAAAAAAAAAAAAAAAA

 

 

Eu lembro que tive essa aula em matemática mas já esqueci o que aprendi.

[Asteriscos 0]

Brigadão pela resposta! Não era o que queria mas resolveu!Eu esqueci de mencionar que o contador não pode ser zerado.Usando dois contadores resolve meu problema, porém sei que existe algum outro jeito de utilizar apenas um.Eu lembro que há muito tempo atras fiz isso. Era alguma função matemática que dava para fazer isso. Era algo do tipo: Divide-se um número por algum outro e se for resto zero, no meu caso pularia uma linha, e se sobrasse algo passava para o próximo.Essa função eu toh tentando me lembrar há muto tempo porém ainda não consegui. Se alguem souber fazer isso de outra forma agradeço!

[-_KIKO_- 0]

eu preciso saber isso também...mas nao exatamente com o FOR como você fezeu tenho uma variável com um monte de a AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADai tenho que quebrar, a cada sei la..10 A REPETIDO ele pula linha...se nao for repetido ( nao precisa pq o coiso pula automaticamente) é pra evitar de destruir layout do site né...uma vez perguntei aqui mas ninguem pode me responder! =((

[Generation 0]

Para Pular a determinada quantidade voce pode usar essa função, pode ser que vá lhe ajudar :

 

ASP

[*]<%

 

[*]Function PularLinha(StrTrata,Quantidade)

 

[*]StrTrata = CStr(StrTrata)

 

[*]Quantidade = Cint(Quantidade)

 

[*]A = 0

 

[*]For aux = 1 To Len(StrTrata)

 

[*]StrNovo = Mid(StrTrata, aux, 1)

 

[*]Saida = Saida & StrNovo

 

[*]A = A + 1

 

[*]IF A = Quantidade then

 

[*]Saida = Saida & "<br>"

 

[*]A = 0

 

[*]End IF

 

[*]Next

 

[*]PularLinha = Saida

 

[*]End Function

 

[*]Response.Write PularLinha("aaaaaaaaaaaaaaaaaaaaaaa",5)

 

[*]%>

 

Creditos : Tarkan

 

[]'s

[Mário Monteiro 179]

use dois contadoresuma para o tota de registro e outro para identificar o momento da quebra...