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	Descripción
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.

Definir Alfa Vtexto;

Definir Alfa VFrase;

Vtexto = "Vamos ver o que acontece quando usamos estas funções para controle de impressão de linhas de um texto mais extenso"

QuebraTexto (VTexto,30,NumLin);

Linatu = 1;

Enquanto linatu <= NumLin

Inicio

BuscaLinhaTexto (VTexto,linatu,VFrase);

ListaSecao ("Adicional_1");

Linatu++;

Fim;

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".

Utilización: Generador de Reportes y Reglas.