Форум: "Основная";
Текущий архив: 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.027 c