4D Doc Center : Character code

4D v14.3

Character code


Character code ( caractere ) -> Resultado

Parâmetro	Tipo	Descrição
caractere	cadeia	Caractere para o qual você quer conseguir o código
Resultado	Inteiro longo	Código dos caracteres

Descrição

O comando Character code devolve o código Unicode UTF-16 (incluído entre 1 e 65535) de umCaractere.

Se houver mais de um caractere na cadeia, Character code devolve unicamente o código do primeiro caractere.

A função Char é a contraparte de Character code Devolve o caractere designado por um código UTF-16.

Exemplo 1

Os caracteres em maiúsculas e minúsculas são considerados iguais dentro de uma comparação. Pode utilizar Character code para diferenciar entre os caracteres em maiúsculas e em minúsculas. Portanto, esta linha devolve True:

("A"="a")

Por outro lado, esta linha devolve False:

(Character code("A")=Character code("a"))

Exemplo 2

Este exemplo devolve o código do primeiro caractere da cadeia "ABC":

RecupCod:=Character code("ABC") ` RecupCod assume o valor 65, o código do caractere de A

Exemplo 3

O exemplo abaixo testa os retornos de carro e os tabuladores:

 For($vlCar;1;Length(vtText))

    Case of

       :(vtText≤$vlCar≥=Char(Carriage return))

  ` Fazer algo

       :(vtText≤$vlCar≥=Char(Tab))

  ` Fazer outra coisa

       :(...)

  ` ...

    End case

 End for

Quando for executado muitas vezes em textos longos, se executará mais rápido, quando for compilado, se for escrito desta forma:

 For($vlCar;1;Length(vtText))

    $vlCode:=Character code(vtText≤$vlCar≥)

    Case of

       :($vlCode=Carriage return)

  ` Fazer algo

       :($vlCode=Tab)

  ` Fazer outra coisa

       :(...)

  ` ...

    End case

 End for

O segundo código é executado mais rápido por duas razões: apenas referencia um caractere por iteração e utiliza comparações de inteiros longos ao invés de comparações de cadeias para testar os retornos de carro e as tabulações. Utilize esta técnica quando trabalhe com códigos comuns tais como CR e TAB.