Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Вниз

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

← →
ТехникПТО ©   (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]

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

---

← →
SergP ©   (2005-02-03 14:52) [4]

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


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

---

← →
Almaz ©   (2005-02-03 14:54) [5]

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

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

Удачи.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.035 c