一个菜鸟的问题！！

Question

如何将字符串"" <[email protected]>转换成13875748816
请大虾写出具体的代码！

Answer 1

str:="<[email protected]>";
str1:=copy(str,2,11);

Answer 2

Str:string;str:='';
a:[email protected]；
for i:=1 to Len(a) do 
begin
   if a[i] in ['0'..'9'] then 
      str:=Str+a[i]
   else
     Break; 
end;
 str 就是你要的值

Answer 3

哦，错了，应该是：
str:='[email protected]>';
str1:=copy(str,2,11);
呵呵

Answer 4

谢谢你们，但是我还有一点问题
就是我这个邮件假如是<[email protected]>
str1:=copy(str,2,11);
这句可以实现。
但是如果是  afeng<[email protected]>那么这个就没有统一性了。
但是邮件是有格式的，就是
13875748816这组数字的开头在“<”这个位置之后。在@这个位置之前。
我因该通过一个函数才能获得<跟@的位置