4

Uma ajuda com expressões regulares no Delphi 10 por favor. Preciso verificar o seguinte numa string:

  1. Tamanho variando no mínimo de 6 caracteres ao máximo de 20 caracteres;
  2. Tipo de caracteres: a-z ou A-Z ou 0-9 ou _ (caracter "underline");
  3. Os carateres permitidos podem estar em qualquer posição e em qualquer quantidade (até o limite da string, claro);

Exemplos

Strings VÁLIDAS:

AaaaaaaaBCCcc654_qq
1111s123AaBCcc654_qq
____ds4___xx
12345_123

Strings INVÁLIDAS:

12345-123            (tem hífen)
asdkdn  092834sdfdf  (tem espaco em branco)
$123.0               (tem "$" e ".")

Tentei coisas como essas, mas não funcionaram:

var ret: TMatch;
begin
   ret := TRegEx.Match(Edit1.Text, '([a-z]*[A-Z]*[0-9]*[-]?)', [roIgnoreCase]);

ou

   ret := TRegEx.Match(Edit1.Text, '(\w*)', [roIgnoreCase]);
8
  • Veja se esta ajuda. Não sou muito bom em regex mas fiz um esforço aqui: [^\w]|[\w]{21}. Se alguma das duas condições foram atendidas, a string é inválida.
    – Sam
    Commented 4/12/2017 às 15:34
  • @Mariano Verdade, não me atentei a isso... vou tentar melhorar
    – Sam
    Commented 4/12/2017 às 16:00
  • 1
    @Mariano Veja este: [^\w]|[\w]{21}|^[\w]{6}$
    – Sam
    Commented 4/12/2017 às 16:08
  • 2
    Nos caracteres especiais, acentuações são inclusas? Por exemplo: vÁlidas, acentuaÇÕes, etc... Caso deseje inserir caracteres especiais, pode fazê-lo manualmente com a Regex ^[\wàáâäãåąčćęèéêëėįìíîïłńòóôöõøùúûüųūÿýżźñçčšžÀÁÂÄÃÅĄĆČĖĘÈÉÊËÌÍÎÏĮŁŃÒÓÔÖÕØÙÚÛÜŲŪŸÝŻŹÑßÇŒÆČŠŽ∂ð']{6,20}$ e a demo de teste. Porém tem um jeito mais fácil de fazer isto, usar Unicode. Commented 4/12/2017 às 16:35
  • 1
    @danieltakeshi Em Delphi, pode usar \p{L} para letras.
    – Mariano
    Commented 4/12/2017 às 17:54

1 Resposta 1

5
  • \w casa a-z, A-Z, 0-9 ou _.
  • Só precisa repetir 6 a 20 vezes, isso é \w{6,20}
  • Desde o início da string ^ até o final da string $.

Então:

^\w{6,20}$

E neste caso, é mais fácil usar o método TRegEx.IsMatch()

Código:

{$APPTYPE CONSOLE}

uses
    System.RegularExpressions;

var texto: string;

begin
    texto := 'AaaaaaaaBCCcc654_qq';

    if TRegEx.IsMatch(texto, '^\w{6,20}$') then
        begin
            Writeln(texto, ' é válido');
        end
    else
        begin
            Writeln(texto, ' não é válido');
        end;
end.
8
  • Obrigado @Mariano. Funcionou perfeitamente. Uma última pergunta por favor? O caracter $ não é um indicador de fim de linha apenas? Qual a função dele nessa Regex?
    – wBB
    Commented 4/12/2017 às 17:01
  • @wBB $ corresponde ao final da string por padrão, ou pode ser alterado para corresponder ao fim da linha, usando o modificador Multiline, ou seja, com RegExprModifierM ou usando (?m) na expressão. O mesmo vale para ^. Se quiser, pode usar \A e \z, que sempre corresponde ao início / fim da string, independentemente do modificador.
    – Mariano
    Commented 4/12/2017 às 17:28
  • @wBB Uma expressão regular corresponde ao texto em qualquer lugar na string. Portanto, \w{6,20} pode casar os primeiros 20 caracteres de uma string maior... ^ e $ correspondem as posições de início / fim da string, e asseguram que coincida com a string inteira, isto é que o tamanho é entre 6 e 20.
    – Mariano
    Commented 4/12/2017 às 17:36
  • Vou treinar um pouco de Regex para desmistificar... Não pensei que fosse obrigatório o uso desses caracteres de início e fim, portanto minha Regex não funcionaria nunca. Obrigado.
    – wBB
    Commented 4/12/2017 às 17:37
  • 1
    Muito bom @Mariano ótimas explicações, parabéns :D Commented 5/12/2017 às 11:15

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .