1,075
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
klbt 2004-04-21
- 打赏
- 举报
用match函数
zysys 2004-04-21
- 打赏
- 举报
楼上的同意。对字符串操作用 MID POS
lzheng2001 2004-04-21
- 打赏
- 举报
string ls_mail
if pos(ls_mail,'@') > 0 and pos(ls_mail,'.') > 0 and pos(ls_mail,'@')< pos(ls_mail,'.') then
messagebox("提示",'有效')
end if
//当然上面说的是格式有效,至于实际存不存在该邮箱,还不知.
if pos(ls_mail,'@') > 0 and pos(ls_mail,'.') > 0 and pos(ls_mail,'@')< pos(ls_mail,'.') then
messagebox("提示",'有效')
end if
//当然上面说的是格式有效,至于实际存不存在该邮箱,还不知.
