Delphi(Lazarus), ниасилил Delete

0

1

В общем ситуация такая. Никак не могу понять работу этого Delete. В общем имеется такая примерно строка:

<html><head><title>Current IP Check</title></head><body>Current IP Address: 145.249.195.21</body></html>

.
Это StringList. Если же все может работать как с строкой вида variable.Text, то Delete жалуется. Да и с логикой я его конкретно не разобрался.

Поэтому ЛОРовцы, кто пишет в лазарусе/дельфе, вопрос такой: как удалить все, кроме самого айпишника? Да, не осилил. Дельфей давно не пользовался, а тут первый заказ на фрилансе, и надо вспоминать что да как. Но да, не осилил. Поэтому буду признателен за любую помощь.

Ссылка

←	Список объектов примитиного типа в ядре

Вопрос по simd sse коду

→

{$mode objfpc}
uses StrUtils;

function GetIPStr(const s: String): String;
var p, q: Integer;
begin
  Result:='';
  p:=PosSet(['0'..'9'],s);
  if p=0 then Exit;
  q:=PosEx('<',s,p);
  if q=0 then Exit;
  Result:=Copy(s,p,q-p);
end;

const
  s: String = '<html><head><title>Current IP Check</title></head><body>Current IP Address: 145.249.195.21</body></html>';
begin
  WriteLn(GetIPStr(s));
end.

bormant ★★★★★
(25.03.16 21:21:39 MSK)

Ответ на: комментарий от bormant 25.03.16 21:21:39 MSK

Спасибо, теперь попытаюсь разобраться что к чему.

~~ozzee~~ ★
(25.03.16 21:22:34 MSK) автор топика

Ответ на: комментарий от ozzee 25.03.16 21:22:34 MSK

А что там разбираться, ищем цифру, ищем после неё '<', берём всё, что между.

bormant ★★★★★
(25.03.16 21:24:28 MSK)

Ссылка

Ответ на: комментарий от bormant 25.03.16 21:21:39 MSK

У меня чувство дискомфорта от вида этого.

~~Dron~~ ★★★★★
(25.03.16 21:24:38 MSK)

Ответ на: комментарий от ozzee 25.03.16 21:22:34 MSK

Другой вариант, по ': ':

function GetIPStr(const s: String): String;
var p, q: Integer;
begin
  Result:='';
  p:=Pos(': ',s)+2;  if p=2 then Exit;
  q:=PosEx('<',s,p); if q=0 then Exit;
  Result:=Copy(s,p,q-p);
end;

bormant ★★★★★
(25.03.16 21:30:00 MSK)

Ответ на: комментарий от bormant 25.03.16 21:30:00 MSK

Работает, спасибо большое. Надо будет разобраться в коде, чтобы было понятно что и как работает.

~~ozzee~~ ★
(25.03.16 21:34:22 MSK) автор топика

Ссылка

Ответ на: комментарий от Dron 25.03.16 21:24:38 MSK

Ваше предложение? strspn() и strcspn()?

bormant ★★★★★
(25.03.16 21:35:42 MSK)

Ответ на: комментарий от bormant 25.03.16 21:35:42 MSK

Да неет, я про ГоРбЫ.

~~Dron~~ ★★★★★
(25.03.16 21:37:47 MSK)

Ответ на: комментарий от ozzee 25.03.16 21:22:34 MSK

Еще вариант:

  s:=TrimSet(s,[#1..#255]-['.','0'..'9']);

bormant ★★★★★
(25.03.16 21:41:37 MSK)

Ответ на: комментарий от bormant 25.03.16 21:41:37 MSK

Следующее сообщение еще короче? :D

~~ozzee~~ ★
(25.03.16 21:42:24 MSK) автор топика

Ссылка

Ответ на: комментарий от bormant 25.03.16 21:21:39 MSK

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

unlog1c ★★★
(26.03.16 05:16:50 MSK)

Ответ на: комментарий от unlog1c 26.03.16 05:16:50 MSK

... и вы считаете, что использование регулярных выражений в данном случае даст...
Хм, а что именно даст-то, чем будет лучше?

bormant ★★★★★
(26.03.16 07:45:09 MSK)

Ответ на: комментарий от Dron 25.03.16 21:37:47 MSK

Паскаль регистронезависимый, можно как душе угодно, хоть с любыми горбами по вкусу, хоть без.

bormant ★★★★★
(26.03.16 07:49:37 MSK)

Ссылка

Ответ на: комментарий от bormant 26.03.16 07:45:09 MSK

Ну как минимум - будет один регексп и извлечение совпадений по нему. Кода-то больше-меньше не будет, думаю, зато на тему его работы (за исключением регекспа) можно не задумываться. з.ы. я, кстати, навскидку нихера не помню в дельфях, потому - в твем варианте выход только по <, верно?

alex4321 ★
(26.03.16 12:02:28 MSK)

Ответ на: комментарий от unlog1c 26.03.16 05:16:50 MSK

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

У меня такое ощущение, что они и в какой-то довольно древней дельфи были, в какой уже не помню. Активное программирование на дельфи я закончил 7 лет назад, хотя иногда приходится сдувать пыль с легаси.

hobbit ★★★★★
(26.03.16 12:33:45 MSK)