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.

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

Utilização: Gerador de Relatórios e Regras.

Este artigo ajudou você?