MLCount [AS]

MLCount [AS]
Author: Eurai
Inclusão: 01/01/2016
Alteração: 01/01/2016

Descrição

Conta a quantidade de linhas de um campo memo ou string com múltiplas linhas, considerando um numero máximo de letras por linha, tamanho estimado para caracteres de tabulação, e quebras de linhas CRLF (pulo de linha) dentro do texto.

 

Sintaxe

MLCount(  <cTexto>,<nLinLen>,<nTabSize>,<lQuebra> )

 

Parâmetros


Par Nome Tipo Descrição Default Obg Ref
01
cTexto Caracter Indica o texto com múltiplas linhas para verificar a quantidade de linhas   X  
02 nLinLen Numérico Especifica o número de caracteres por linha para que ocorra a quebra de linhas 79    
03 nTabSize Numérico Define um tamanho para tabulação 4    
04 lQuebra Boolean

Especifica o comportamento de contagem de linhas quando a ultima palavra não cabe inteira na linha atual.

.T. – Coloca a palavra na próxima linha

.F. – Quebra a palavra no tamanho da linha e coloca o restante na próxima linha.

.T.    

 

Retorno

Retorno Tipo Descrição
nRet Numérico
Retorna o número de linhas da string considerando os parâmetros de formatação informados

 

Exemplo

User Function MLCount()
Local cTexto := 'UniversoADVPL Eurai Rapelli '

cTexto += 'UniversoADVPL 01 Eurai Rapelli 01 '
cTexto += 'UniversoADVPL 02 Eurai Rapelli 02 '

MsgInfo( 'MLCount: ' + cValtoChar( MLCount(cTexto, 15 ) ), 'UniversoADVPL' )

Return( Nil )

 

Resultado
mlcount_-_resultado_01  

 

 

Informações adicionais

Usar função MemoLine em paralelo.

 

 

 

 

 

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

 

 

 

 

 

 

 

Esse conteúdo te ajudou? Ajude o canal com doação
Compartilhar
Comentários