Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

12th
Янв

Достать нужный IP из строки

Posted by micher under Delphi

Нужно получить данные только по IP 192.168.2.2, а хватается первое попавшееся, например 192.168.2.255. Хотел сделать проверку на длину искомого IP, но вошёл в ступор.

Shouldercannon



procedure TForm1.Button1Click(Sender: TObject);

var

  s, s2, temp: string;

begin

  s2 := '192.168.2.2';

  s := '192.168.2.0~L0~P0!end-access'#$D#$A'192.168.2.255~L255~P255!end-access'#$D#$A'192.168.2.2~L2~P2!end-access'#$D#$A'192.168.2.12~L12~P12!end-access';
  // Удалим #$D#$A

  s := Stringreplace(s, #$D#$A, '', [rfReplaceAll, rfIgnoreCase]);

  // Ищем свой логин и пароль по IP-адресу

  while Pos(s2, s)  0 do

  begin

    temp := Copy(s, 1, Pos('!end-access', s) - 1);

    // Если полученный IP-адрес совпадает с искомым

    if Copy(temp, 1, Pos('~', s) - 1) = s2 then

    begin

      // Удалим IP-адрес

      Delete(s, 1, Pos('~', s));

      Label1.Caption := Copy(s, 1, Pos('~', s) - 1); // Логин

      Delete(s, 1, Pos('~', s));

      Label2.Caption := Copy(s, 1, Pos('!end-access', s) - 1); // Пароль

      Break;

    end

    else Delete(s, 1, Pos('!end-access', s) + 10); // Удалим обработанное для дальнейшего поиска

  end;

end;