1

Como seria uma regex para capturar o bloco de variaveis declada em uma unidade delphi ?

O mais proximo que cheguei disso foi usando esta var[^=]*[^\)]; mas sem sucesso.

var
Variavel1 : string;
Variavel2, Variavel3: integer;
Variavel4,
Variavel5 : THandle;

function Soma(a, b: integer): integer;
var
  Varivel1: integer;
  Variavel2, Variavel3: integer;
begin
  //...
end;

Qualquer solucao para identificar variaveis é bem vinda.

2
  • O que exatamente você espera de retorno desse bloco de exemplo que você forneceu?
    – vmartins
    Commented 16/07/2016 às 0:04
  • Somente as variaveis mesmo... seria +- como neste post pt.stackoverflow.com/questions/77831/…
    – Mutha
    Commented 16/07/2016 às 0:17

1 Resposta 1

0

Eu não conheço delphi mas pelo que compreendi da logica a região de variáveis se inicia com var e termina com alguma outra palavra reservada como function ou begin.

Usando este conceito pode se fazer uma expressão assim :

^var([^~]*?)(function|begin)

O conteúdo que vc deseja ficaria no grupo 1, e o grupo 2 seria para especificar términos.

Explicação

  • ^var - deve inicial com "var"
  • ([^~]*?) - grupo 1, capturar qualquer coisa que não seja ~ 0 ou infinitas vezes a menos quantidade possível - usei ~ pois não é muito usado, mas poderia ser algum outro.
  • (function|begin) - grupo 2, deve captura a sentença exata, qualquer uma delas.

Seja funcionando no REGEX101

4
  • Gostei da resposta mas esta expressão teria um efeito diferente na versao 2 do regex ?
    – Mutha
    Commented 17/07/2016 às 3:45
  • @Mutha versão 2? desculpe não entendi. O diferencial da sua é que ele procura o mínimo, e possui um fim definido. Commented 17/07/2016 às 4:56
  • Desculpa minha ignorancia olhando um material aqui imaginei que existia uma versao 2 para regex.
    – Mutha
    Commented 17/07/2016 às 5:01
  • Tranquilo, mas que bom que solucionou seu problema :) Commented 17/07/2016 às 5:09

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 .