【新人解惑】请问各位如何验证邮箱的格式是否正确
delphi吧
全部回复
仅看楼主
level 2
【新人解惑】请问各位如何验证邮箱的格式是否正确,里面的循环不会写,谢谢啦[玫瑰]
2014年10月26日 07点10分 1
level 10
if aemialstr.Index(*@*) > 0 and aemialstr.Index(*.*) > 0 and aemialstr.Index(*@*) > aemialstr.Index(*.*) + 1 then
如果嫌上面的代码老土,请使用正则表达式。
2014年10月26日 08点10分 2
大神,怎么你写的我都看不懂呢,这个是pasical语言吗[狂汗]
2014年10月26日 13点10分
回复 你有没有在听啊 :自己加几个括号,把星号换成单引号不就是了么,意思到了就行。
2014年10月26日 13点10分
回复 BambooCaep :主要是得验证有没有@,而且得注意到邮箱的格式,比如说第一个得是字母开头等等,而且后面得是.com或者.cn结尾
2014年10月26日 13点10分
回复 你有没有在听啊 :不是写了indexof('@')么?
2014年10月26日 13点10分
level 10
星号是百度给弄的。我输入的是引号。
括号是我偷懒,没写。
我希望问问题的不要嫌弃我们回答问题的太懒,因为你们问问题的更懒!
这都是基础知识,看书就行了
2014年10月26日 13点10分 4
level 10
上面还是有 bug 继续修改下
点 应该在 @ 的后头。
if aemialstr.Index(*@*) > 1 and aemialstr.Index(*.*) > 3 and aemialstr.Index(*.*) > aemialstr.Index(*@*) + 1 then
还是星号换引号,括号自己加。
2014年10月26日 13点10分 5
吧务
level 14
其实,邮箱地址应该还有其它的一些限制。楼主应该先一一列出来,再逐一实现。例如也许不应该有两个@符号
2014年10月26日 13点10分 6
比如@后面的小数点不能相连,只能有一个@,而且小数点不是最后一位
2014年10月26日 13点10分
回复 你有没有在听啊 :你说的头头是道,明摆着自己知道算法,但是你基础太差,不会用计算机语言实现算法。建议好好看书。
2014年10月26日 14点10分
回复 你有没有在听啊 :你说的头头是道,明摆着自己知道算法,但是你基础太差,不会用计算机语言实现算法。建议好好看书。
2014年10月26日 14点10分
level 2
比如@后面的小数点不能相连,只能有一个@,而且小数点不是最后一位
2014年10月26日 13点10分 7
所以你要做的是先列举所有的限制,再逐一实现。至于实现的方法,你可以搜索一下delphi的字符串函数。
2014年10月26日 14点10分
level 10
你说的头头是道,明摆着自己知道算法,但是你基础太差,不会用计算机语言实现算法。建议好好看书。
2014年10月26日 14点10分 8
那你觉得我应该看什么书好呢,大神给我推荐本新手看的呗[乖]
2014年10月26日 14点10分
回复 你有没有在听啊 :数据结构 离散数学。看完再来找我。
2014年10月26日 14点10分
level 10
写邮箱判断有不难
简单点的就用 pos('要判断是否存在的字符','字符串')>0说明存在, 用copy('字符串',开始位,截取长度)截取一段字符串
基本用这两个函数就可以了
2014年10月29日 15点10分 9
这个答得好
2014年11月16日 10点11分
1