盒子论坛 v2.1

假设我有这样一个字符传: "031025003 www.2ccc.com"(引号内的,中间有空格哟)
在BCB中我该怎么样取到前面的数字好后面的字符传呀,用delphi也可以!谁会的呀??
----------------------------------------------
喜欢它所以学它!

作者：

hedong (hedong)	★☆☆☆☆	-
	盒子活跃会员

2003/10/26 13:20:48

1楼：

const
  space = ' ';
var
  S,f_S, l_S: string;
  i: Integer;
begin
  S := '031025003  www.2ccc.com';
  i := Pos(space, S);
  f_S := Copy(S,1,i-1);          //  得到031025003
  l_S := Copy(S,i+1,Length(S));  //  得到www.2ccc.com
end;
----------------------------------------------
-

作者：

zzy720529 (zzy)	★☆☆☆☆	-
	普通会员

2003/10/30 21:28:25

2楼：

up
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/10/30 22:37:50

3楼：

#define space ' '

String S="031025003 www.2ccc.com";
int i=S.Pos(space);
String f_S=S.SubString(1,i-1);
String l_S=S.SubString(i,S.Length());
----------------------------------------------

作者：

lsx1982 (prince_lsx)	★☆☆☆☆	-
	盒子活跃会员

2003/10/31 0:19:10

4楼：

to hedong:
应该是 l_s=copy(s,i+1,length(s)-i);
----------------------------------------------
I love the game!

作者：

zzy720529 (zzy)	★☆☆☆☆	-
	普通会员

2003/10/31 9:11:32

5楼：

字符串前最好加trim（）；截取串前和串后的空格。
const
  space = ' ';
var
  S,f_S, l_S: string;
  i: Integer;
begin
  S := trim（'031025003  www.2ccc.com'）;
  i := Pos(space, S);
  f_S := Copy(S,1,i-1);          //  得到031025003
  l_S := Copy(S,i+1,Length(S));  //  得到www.2ccc.com
end;
----------------------------------------------
-

作者：

7777777 (7777777)	★☆☆☆☆	-
	盒子活跃会员

2003/10/31 10:00:00

6楼：

大虾们好：
如果是字符串：' 12345678 1234 1234 '呢？
----------------------------------------------
xu

作者：

bryan (bao)	★☆☆☆☆	-
	盒子活跃会员

2003/10/31 11:00:38

7楼：

procedure ShowvalforSpaceString(SVar:String);
Var StrList:TStringList;
    I:Integer;
begin
  SVar := Trim(SVar);
  //将两个以上的空格变为一个
  While pos('  ',SVar)>0 do
     SVar :=StringReplace(SVar,'  ',' ',[rfReplaceAll, rfIgnoreCase]);
  //将字串转换为用Enter分隔
  SVar :=StringReplace(SVar,' ',#13,[rfReplaceAll, rfIgnoreCase]);
  //将字串附值给Stringlist并显示
  Strlist := TStringlist.create;
  Try
    Strlist.Text := Svar;
    For i:=1 to Strlist.count-1 do Begin
       Showmessage(StrList[I])
    End;
  Finally
    Strlist.free;
  End;

end;

----------------------------------------------
-

信息

登陆以后才能回复