English
Español
BuscaLinhaTexto
Esta função é utilizada para imprimir as linhas do texto que a função QuebraTexto dividiu.
Sintaxe: BuscaLinhaTexto (Texto, Nro_Linha, Texto_Linha);
Parâmetros:Nome | Tipo | Descrição |
Texto | Alfa | Será o mesmo Campo/variável indicado na função QuebraTexto. |
Nro_linha | Numérico | Número da linha que será impressa. |
Texto_Linha | Alfa | Retorna a parte do Texto que será impressa. |
Exemplo: Deseja-se imprimir o texto “Vamos ver o que acontece quando usamos estas funções para controle de impressão de linhas de um texto mais extenso” em linhas de no máximo 30 caracteres cada.
<div class="Code"><p>Definir Alfa Vtexto;</p><p>Definir Alfa VFrase;</p><p>Vtexto = "Vamos ver o que acontece quando usamos estas funções para controle de impressão de linhas de um texto mais extenso"</p><p>QuebraTexto (VTexto,30,NumLin);</p><p>Linatu = 1;</p><p>Enquanto linatu <= NumLin</p><p>Inicio</p><p>BuscaLinhaTexto (VTexto,linatu,VFrase);</p><p>ListaSecao ("Adicional_1");</p><p>Linatu++;</p><p>Fim;</p></div>
Neste exemplo, seriam impressas 5 linhas, e o texto ficaria impresso da seguinte forma:
Linha 1 = “Vamos ver o que acontece”
Linha 2 = “quando usamos estas funções”
Linha 3 = “para controle de impressão de”
Linha 4 = “linhas de um texto mais”
Linha 5 = “extenso”.
Utilização: Gerador de Relatórios e Regras.
English
Español
