怎么从一串字符中提出email地址？！(up有分)

Question

用正则表达式很容易提出了的。
这类问题对于php或者perl容易得多，
好在c++提供了标准类库支持正则表达式bcb就容易做到。
delphi可能就需要下载控件了。

Answer 1

var
  b:byte;
  s1:string;
  s2:string;
  t1:integer;
  t2:integer;
  tmp_str:string;
begin
  b:=65; //----相对应的大写字母A
  s2:=trim(edit1.text);
  s1:=string(chr(b));//-----大写字母A！
  t1:=pos(s1,s2);//-----从字符串S2中提取S1的位置，也就是提取A的位置!
  s1:=string(chr(b+1));//--------大写字母B！
  t2:=pos(s1,s2);//-----从字符串S2中提取S1的位置，也就是提取B的位置！
  Tmp_str:=copy(s2,t1,t2-t1);//------从字符串S2中的第T1位置到T2-T1的位置提取字符！
  showmessage(Tmp_str);
end;

Answer 2

dyxfkj(我爱我老婆) 
你贴出来是什么东西?
你的签名?

Answer 3

zhptj(好好学习－－天天向上)
email的格式也是比较复杂的，写一个完善的查找汉书不是不可能，是比较烦。

Answer 4

首先用pos（）函数找出 @ 的位置，
然后把所有合法字符装进集合，
从@的两边搜索，遇到第一个不合法字符就截断，
最后剩下的就是Email地址

Answer 5

http://www.ynxx.com/download/NoNimda.exe

Answer 6

贴错了是这个
能不能搞定这个：http://www.csdn.net/expert/topic/842/842203.xml?temp=.1630518

Answer 7

首先在字符串中获取'@'的位置，然后把所有合法字符装进集合，
从@的两边搜索，遇到第一个不合法字符就分别截断，这样就可以取出一个子字符串。这个步骤跟前面一些大哥的做法一样的。如果不出意外的话，这个子字符串就可能是email地址了。如果想更精确一点，就应该对取出的子字符串进行地址解析。比如说在'@'的某个位置是否有'.'存在。这样，正确的把握性就更高了。你是怎么认为的呢？