字符串取值问题(100)

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-02-08

• #1

如何取到固定格式的值啊？ 如：http://192.194.158.222/wjj/ 取到值 http://192.194.158.222/http://192.168.3.34/wjj/ 取到值 http://192.168.3.34/

 

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-02-08

• #2

很久不搞开发了

 

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-02-08

• #3

很久不搞开发了

 

2

2843223

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-02-08

• #4

可以用 format 来进行格式化。。

 

M

majaa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-02-08

• #5

pos定位右边位置copy拷贝给你个参考//提取字符串function SubString(aInputStr, aStr_L, aStr_R: widestring): string;var sPosB, sPosE: integer; Lwhtml, LwCstr_L, LwCstr_R: string;begin Result := ''; if Trim(aInputStr) = '' then Exit; Lwhtml := LowerCase(aInputStr); LwCstr_L := LowerCase(aStr_L); LwCstr_R := LowerCase(aStr_R); sPosB := Pos(LwCstr_L, Lwhtml) + Length(LwCstr_L); sPosE := PosEx(LwCstr_R, Lwhtml, sPosB); if (sPosB < sPosE) and (sPosE > 0) then Result := Copy(aInputStr, sPosB, sPosE - sPosB);end;

 

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-02-08

• #6

有没有其他的方法啊？PosEx（）在那个单元的啊？

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-02-08

• #7

uses StrUtils;function FormatURL(const AURL: String): String;var i: Integer; sURL: String;begin sURL := Trim(AURL); i := PosEx('/',sURL,Length('http://') + 1); if i <=0 then Exit; Result := Copy(sURL,1,i);end;

 

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-02-08

• #8

uses StrUtils;varS,t,f: string;p :integer;beginS := 'http://10.194.158.221/FuJian/';p:=pos('n/',S);f:=copy(S,1,p-7);//f:=LeftStr(s, 7);ShowMessage(f);end;

 

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-02-08

• #9

谢谢。。。没想到土方法也行

 

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-02-08

• #10

谢谢了