Obtendo a Quantidade de Linhas de uma String ou Campo Memo com MLCount em ADVPL

#include 'protheus.ch'
/*{Protheus.doc} User Function fMLCount
    (Essa função tem por finalidade mostrar a função de Manipulação de String MLCount em ADVPL)
    @type  Function
    @author Adilio Costa
    @since 27/07/2025
    @version 1.0
@?Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@?Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@?Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@?Conheça os Cursos e Formações do ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/

@Participe de nossas comunidades no WhatsApp:
-Comunidade Protheus Backoffice:https://chat.whatsapp.com/KMUIAjwZ6EZ6eAHsLkPTyb
-Comunidade Protheus-RH:https://chat.whatsapp.com/L5dUyAna6xU4ylG5DUgfOW
-Comunidade Protheus-Programação:https://chat.whatsapp.com/LsD6z0apdqKHlOz67bcaEn
-Comunidade Protheus-Framework:https://chat.whatsapp.com/BzUFpjaSnTC3vtsfa77jmG

|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|

*/
User Function fMLCount()
	Local cTexto   := ""
	Local nLinTam := 30 //define que a quebra de linha será a cada 30 caracteres
	Local nTabTam := 5
	Local lQuebra := .F.
	lOCAL nLinhas := 0


	cTexto +="Este é um texto com várias linhas para que a função MLCount em ADVPL irá contar "
	cTexto += "baseado nos parâmetros informados e assim poderemos entender o funcionamento "
	cTexto += "dessa função em ADVPL. Ela é uma das funções de manipulação de string em ADVPL. "
	cTexto += "Ela consideração tabulações assim                     na sua contagem e quebras "
	cTexto += "de linhas(CRLF)."

	nLinhas := MLCount(cTexto,nLinTam,nTabTam,lQuebra)

	FWAlertInfo("A quantidade de linhas da string cTexto é:"+cValToChar(nLinhas),"Função MLCount")





Return