Вырезание из строки

← →
ТехникПТО © (2005-02-03 14:20) [0]

Есть строка http://img.rambler.ru/main/w11.gif

нужно получить w11
Как это сделать?? просто со строками не работал :(

← →
Александр Иванов © (2005-02-03 14:28) [1]

Этот код тебе вырежет все от первой справа точки, до первого справа слеша:
i:=Length(Str); Flag:=False; Res:=""; while (i>0) and (Str[i]<>"/") do begin if Str[i] = "." then Flag:=True; if Flag then Res:=Str[i]+Res; dec(i); end;

← →
SergP © (2005-02-03 14:41) [2]

myvar:=ChangeFileExt(myvar,"");
while pos("/",myvar)>0 do delete (myvar,1,pos("/",myvar));

← →
Alx2 © (2005-02-03 14:47) [3]

>SergP © (03.02.05 14:41) [2]

Так тормозной софт и получается. Зачем тут квадратичная сложность?

> [3] Alx2 © (03.02.05 14:47)
> >SergP © (03.02.05 14:41) [2]
>
> Так тормозной софт и получается. Зачем тут квадратичная
> сложность?

В вопросе про скорость ничего не было сказано... :-)))

А еще можно так:

S := "http://img.rambler.ru/main/w11.gif"; ... S := Copy(S, LastDelimiter("/", S) + 1, 65535);

Удачи.

Вырезание из строки Найти похожие ветки