Не удаётся найти текст

[Letnab]

Доброе время суток. У меня такая проблема.Из memo надо вытащить mac адрес,для дальнейшей обработки.

вот текст в memo

VID VLAN Name MAC Address Port Type

---- ---------------- ----------------- ------ ----------------

Searching ...


210 210 01-10-7E-D6-32-BF 16 Dynamic



Total Entries : 1



DES-3526:admin#

сложность заключается в том,что с разных коммутаторов отображается по разному.
Как нибудь поиск по маске можно реализовать? типа хх-хх-хх-хх-хх-хх ?

[phomm]

Загуглить Delphi + RegExp ?

Ну или навелосипедить. Цикл - проверяем каждый чар на цифра\буква, если гуд, то запоминаем куда-то (буфер). следующий чар - если предыдущий шаг был успешный(ну по запомнености следить) то ещё проверяем чар, и если норм - запоминаем, потом дефис, и т.д.

В общем случае это можно сделать конечным автоматом (тоже гуглим "конечный автомат repeat -case") по схеме

i:=1;
Repeat
  case mytext[i] of
  '0'..'9': цифра;
  'A'..'F': буква(шестнадцатеричное число);
  '-': маркер ;
  else
    что-то другое - то проверим на валидность буфер, коль невалиден -сброс
  end;
  inc(i);
until что-то;

Где шаги с буквой, цифрой и маркером сопровождаются проверкой буфера запоминания, который скорее всего строка, и дополнением этого буфера при успехе, и сбросом при неуспехе

[Letnab]

Спасибо! буду пробовать