Manipulação de Strings ADVPL - Parte I

Manipulação de Strings

Dando continuidade aos post sobre Advpl, apresentarei agora algumas funções de manipulação de strings.

ALLTRIM()

 Retorna uma string sem os espaços à direita e à esquerda, referente ao conteúdo informado como parâmetro. A função ALLTRIM() implementa as ações das funções RTRIM (“right trim”) e LTRIM (“left trim”).

Sintaxe: ALLTRIM(cString)

Exemplo:

cNome := ALLTRIM(SA1->A1_NOME) MSGINFO(“Dados do campo A1_NOME:”+CRLF+; "Tamanho:” + CVALTOCHAR(LEN(SA1->A1_NOME))+CRLF+; “Texto:” + CVALTOCHAR(LEN(cNome)))

AT() -> Retorna a primeira posição de um caracter ou string dentro de outra string especificada.

Sintaxe: AT(cCaractere, cString )

Parâmetros

cCaractere: é um Caractere ou string que se deseja verificar.

cString: é uma String na qual será verificada a existência do conteúdo de cCaractere.

Exemplo:

Static Function NOMASCARA(cString,cMascara,nTamanho) LOCAL cNoMascara := "" LOCAL nX := 0 IF !Empty(cMascara) .AND. AT(cMascara,cString) > 0 FOR nX := 1 TO Len(cString) IF !(SUBSTR(cString,nX,1) $ cMascara) cNoMascara += SUBSTR(cString,nX,1) ENDIF NEXT nX cNoMascara := PADR(ALLTRIM(cNoMascara),nTamanho) ELSE cNoMascara := PADR(ALLTRIM(cString),nTamanho) ENDIF RETURN cNoMascara

CAPITAL()

Função que avalia a string passada como parâmetro alterando a primeira letra de cada palavra para maiúscula e as demais letras como minúsculas.

Sintaxe: CAPITAL(cFrase)

Parâmetro: cFrase a String a ser avaliada

Retorno: String

CHR()

Converte um valor número referente a uma informação da tabela ASCII no caractere que esta informação representa.

Sintaxe: CHR(nASCII)

Parâmetros:  Código ASCII do caractere

GETDTOVAL()

Função utilizada para retornar um numero formatado, de acordo com o valor passado por parâmetro, sendo que irá apenas manter os valores numéricos contidos na string passada por parâmetro, verificando se existe algum caractere ‘.’ retornando um numero fracionário, na ordem dos números contidos na string.

A função é muito útil quando desejamos utilizar o valor numérico de uma data que está contida em uma string.

Sintaxe: GETDTOVAL ( < cDtoVal > )

Parâmetros: cDtoVal uma string contendo um valor numérico no qual será convertido.

Retorno: Numérico

Exemplo:

GetDtoVal(’123456′) //retorno 123456.0000

GetDtoVal(’1/2/3/4/5/6′) //retorno 123456.0000

GetDtoVal(‘fim.123456′) //retorno 0.123456

GetDtoVal(‘teste’) //retorno 0.0

ISALPHA()

Função utilizada para determinar se o caractere mais à esquerda em uma cadeia de caracteres é alfabético, permitindo avaliar se o string especificado começa com um caractere alfabético. Um caractere alfabético consiste em qualquer letra maiúscula ou minúscula de “A” a “Z”.

Sintaxe: ISALPHA ( < cString > )

Parâmetros: cString Cadeia de caracteres a ser examinada.

Retorno: Lógico

ISDIGIT()

Função utilizada para determinar se o caractere mais à esquerda em uma cadeia de caracteres é um dígito, permitindo avaliar se o primeiro caractere em um string é um dígito numérico entre zero e nove.

Sintaxe: ISDIGIT ( < cString > )

Parâmetros: cString,  string a ser examinada.

Retorno: Lógico

ISLOWER()

Função utilizada para determinar se o caractere mais à esquerda é uma letra minúscula, permitindo avaliar se o primeiro caractere de um string é uma letra minúscula. É o contrário de ISUPPER(), a qual determina se a cadeia de caracteres começa com uma letra maiúscula. ISLOWER() e ISUPPER() ambas são relacionadas às funções LOWER() e UPPER(), que convertem caracteres minúsculos para maiúsculos, e vice-versa.

Sintaxe: ISLOWER( < cString > )

Parâmetros: cString, string a ser examinada.
Retorno: Lógico