放分了!! 字符串问题?(50分)

至

至尊王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #1

对形如于字符串"http://www.sina.com/demo/demo.htm" 如何得到"demo.htm"??在线等待!!!

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #2

50太少了。
从后面取

 

至

至尊王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #3

如何取?

 

R

ricky.tan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #4

var
S,re_str:string;
i:integer;
begin
S:='http://www.sina.com/demo/demo.htm'
for i:=length(s) down to 1 do
if s='/' then
re_str:=copy(i,length(s)-i,s);//re_str就是所要的结果
end;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #5

查查这两个函数
pos
delete

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #6

明明很简单，却不愿意自己去做。

function GetFileName(s: string):string;
var
i,j: integer;
begin
j:=0;
for i:= 1 to length(s) do if s='/' then j:=i;
delete(s,1,j);
result := s;
end;

 

H

hb_wshsh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #7

var
i:integer;
s:string;
begin
for i:=length(sss) downto 1 do
if copy(sss,i,1)='/' then
break;
s:=copy(sss,i+1,length(sss)-i);
end;
s就是了

 

A

aipingren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #8

用midstr函数可以！midstr("http://www.sina.com/demo/demo.htm",26，8）；

 

至

至尊王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #9

Look

 

C

cqbaobao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #10

一个一个取

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #11

这种情况无非是最后由".htm"构成。
代码如下：
//已调试通过。
var
s: Pchar;
b: string;
begin
s := 'http://www.sina.com/demo/demo.htm';
b := string(StrRSCan(s, '/'));
Delete(b, 1, 1);
ShowMessage(String(b));

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #12

注意用循环或其他方法速度太慢，还有Delete的效率要比Copy高。

 

S

SupermanTm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #13

效率和资源最佳的方案：
function FileNameOnly(const FullName): String;
var
I, N, M: Integer;
begin
M:= Length(FullName);
for I:= 1 to M do begin
N:= M - I + 1;
if FullName[N] = '/' then begin
SetLength(Result, I-1);
Move(FullName[N+1], Result[1], I-1);
Break;
end;
end;
if N = 1 then Result:= FullName;
end;

 

至

至尊王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #14

比一比!

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #15

function OperatStr(str: String): string;
var
CurrOperStr: string;
begin
CurrOperStr:='/'+str;
while pos('/',CurrOperStr)<>0 do
begin
CurrOperStr:= Copy(CurrOperStr,(pos('/',CurrOperStr)+1),Length(CurrOperStr));
Result:= CurrOperStr;
end;
end;

 

那

那一刀

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #16

此法最好!
function GetUrlShortName(url: string):string;
var
i,j: integer;
begin
j:=0;
for i:= 1 to length(url) do if url='/' then j:=i;
delete(url,1,j);
result := url;
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #17

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:='http://www.sina.com/demo/demo.htm';
s:=stringreplace(s,'://','',[]);
s:=stringreplace(s,'/','/',[rfReplaceAll]);
showmessage(extractfilename(s));
end;

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #18

哈,方法好多啦,我就不添乱啦
提供思路
先倒过来,再找一个/就可以取了,重新倒回来,

呵呵,不要砍我,