BuscaLinhaTexto

Esta função é utilizada para imprimir as linhas do texto que a função QuebraTexto dividiu.

Sintaxe: BuscaLinhaTexto(Alfa Texto,Numero NroLin,Alfa End LinTex);

Parâmetros:

Nome	Tipo	Descrição
Texto	Alfa	Será o mesmo Campo ou Variável indicado na função QuebraTexto.
NroLin	Numero	Campo, Valor ou Variável que indicará qual a linha que será impressa.
LinTex	Alfa	Variável que retornará a parte do Texto que será impressa.

Tipo de retorno:LinTex: Variável alfanumérica que retornará 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,vNumLin);

vLinAtu = 1;

Enquanto vLinAtu <= vNumLin

Inicio

BuscaLinhaTexto (vTexto,vLinAtu,vFrase);

ListaSecao ("Adicional_1");

vLinAtu++;

Fim;

Utilização da Função (dependentes): Nenhuma.

PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial \| ERP - versão 5.10.3 (XTended)