Nesse vídeo demonstraremos a utilização da função Lower, que serve para deixar uma string, com todos os caracteres minúsculos.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | //Bibliotecas #Include "Totvs.ch" /*/{Protheus.doc} User Function zExe335 Transforma uma string, deixando todos os caracteres minusculos @type Function @author Atilio @since 12/03/2023 @see https://tdn.totvs.com/display/tec/Lower @obs Função Lower Parâmetros + cText , Caractere , Texto que será deixado em minúsculo Retorno + cTextNew , Caractere , Texto já formatado tudo em minúsculo **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe335() Local aArea := FWGetArea() Local cMsgOri := "Terminal de Informação" Local cMsgMin := Lower(cMsgOri) //Exibe a string original e a formatada FWAlertInfo( "Original: " + cMsgOri + CRLF + "Minusculo: " + cMsgMin, "Teste - Lower" ) FWRestArea(aArea) Return |
Bom pessoal, por hoje é só.
Abraços e até a próxima.