易语言取一段文本中邮箱地址

易语言取文本中的地址~

.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
编辑框1.内容 ＝ 取剪辑板文本 ()

.子程序 _编辑框1_内容被改变
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 文本, 文本型
数组 ＝ 分割文本 (编辑框1.内容, #引号 ＋ “:” ＋ #引号, )
.计次循环首 (取数组成员数 (数组), i)
.如果真 (寻找文本 (数组 [i], “http”, , 假) ≠ -1)
文本 ＝ 文本_取左边 (数组 [i], “.jpg”, , 假)
编辑框2.加入文本 (文本 ＋ “.jpg” ＋ #换行符)
.如果真结束
.计次循环尾 ()

补充楼上，用 取文本中间 命令会取到N多结果，我不知道这种方法的效率如何。
不过楼主的疑问，防止误取，可以对取出的结果进行检查。
将取到的文本转换整数型，然后比较大小。
只保留符合 8000000<=号码<=8999999 的。

用正则最好，表达式是\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*
用普通的文本操作也可以，但有局限性，只能取常见的邮箱格式，如果特殊点的邮箱格式就不好搞了

---

驿城区19573146638： 易语言 如何验证邮箱地址是正确的. - ？
利庞艾米： 给你一个比较笨拙的办法:当用户输入邮箱后,你取他的地址的MD5为验证码,发送到该邮箱,让他回到邮箱复制验证码粘贴回来,如果正确就OK,不正确就Error,如果MD5太长,可以取MD5特定部分的文本来做验证码,不过这种方式很容易出现巧合,但也极少,你只要在后台判断一下他的邮箱是否已被使用,接下来就简单了...

驿城区19573146638： 易语言高手来教我啊 就像这个,怎样能在底下那个编辑框中取到上面邮箱里的“@”和“.”中间的qq?？
利庞艾米： .版本 2 .程序集 窗口程序集1 .子程序 _编辑框1_内容被改变 .局部变量 临时内容1, 文本型, , ＂0＂ .局部变量 临时内容2, 文本型, , ＂0＂ .如果 (寻找文本 (编辑框1.内容, “@”, , 假) > 0 且 寻找文本 (编辑框1.内容, “.”, , 假) > 0) 临时内容1 = 分割文本 (编辑框1.内容, “@”, ) 临时内容2 = 分割文本 (临时内容1 [2], “.”, ) 编辑框2.内容 = 临时内容2 [1] .否则 .如果结束

驿城区19573146638： 易语言识别地址 - ？
利庞艾米： 手头上没装易语言,不过可以给你提供思路 分割文本 或 文本_取中间文本 这里由于每个项目的字数不一定,所以用 文本_取中间文本 比较方便(投机取巧的办法) 需要使用精易模块(以下内容全部为手打)添加1个变量“处理后文本” 处理后...

驿城区19573146638： 易语言提取文本 - ？
利庞艾米：----------------------------------------------未用任何模块------------------以下代码: .版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 .局部变量 第一次分割文本, 文本型, , ＂0＂ .局部变量 数目, 整数型 .局部变量 第二次分割文本, 文本型, , ＂0...

驿城区19573146638： 易语言如何向列表框里的邮箱逐个向下发邮件? - ？
利庞艾米： 我有邮件群发器 你可以用我的这个~!!!.版本 2.支持库 internet.支持库 iext 地址 = 编辑框1.内容 密码 = 编辑框2.内容 发信人地址 = 编辑框1.内容 用户名 = 取文本左边 (地址, 寻找文本 (地址, “@”, , 假) - 1) 服务器地址 = “smtp.” ...

驿城区19573146638： 易语言怎么读取163指定邮件内容? - ？
利庞艾米： 根据你自己的需要自己填写0.0这里想要连接你的邮箱必须开启POP3服务

驿城区19573146638： 用C语言编一个从文本中提取电子邮件地址的程序!!急用,思路也行？
利庞艾米： FILE *fp; char aa[200]; int i,j,k,L; fp=fopen(＂my_file.txt＂,＂r＂); while (1) { if ( fscanf(fp,＂%s＂,&amp;aa[0]) ==EOF) break; L = strlen(aa); for (i=0;i&lt;L;i++) if (aa[i] == '@') { // 进一步处理和存放或打印e-mail地址. } else {}; }; fclose (fp);

驿城区19573146638： 易语言提取文本中数字 - ？
利庞艾米： 留下邮箱,可以发demo. 以下代码贴出: .版本 2 .支持库 RegEx .程序集 程序集1 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 测试文本, 文本型 测试文本 = “id=123456&” 输出调试文本 (取出数字 (测试...

驿城区19573146638： 易语言取文本 - ？
利庞艾米： 方式1↓ 起始位置 = 寻找文本 (原文本, “. . : ”, 0, 假) 最终位置 = 寻找文本 (原文本, “Su”, 起始位置 + 1, 假) 取文本中间 (原文本, 起始位置, 最终位置 - 起始位置) 方式二↓ 原文本 = 分割文本 (原文本, #换行符, ) .计次循环首 (取数组成员数 (原文本), JiCi)起始位置 = 寻找文本 (原文本 [JiCi], “ . . :”, 0, 假).如果真 (起始位置 ≠ -1)文本 = 取文本右边 (原文本 [JiCi], 取文本长度 (原文本 [JiCi]) - 起始位置)编辑框.内容=编辑框.内容+文本+#换行符.如果真结束 .计次循环尾 ()

驿城区19573146638： 易语言怎么取出文本的其中一段 ! - ？
利庞艾米： 取文本左边() 取文本长度() 取文本右边()这三个命令参数仔细看下,能解决的.