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.
English
Español
