验证域名 E语言原代码

挽来的枫

  

子程序名	返回值类型	公开	备 注
取根域名	文本型
参数名	类 型	参考	可空	数组	备 注
域名	文本型

变量名	类 型	静态	数组	备 注
常量1	文本型		1
正则	正则表达式
结果	搜索结果		0
变量位置

常量1 ＝ { “(\w*://)?((\w*\-)*\w*\.(com.cn|com|net.cn|net|org.cn|name|org|gov.cn|gov|cn|com.hk|mobi|me|info|name|biz|cc|tv|asia|hk|网络|公司|中国|ac.cn|bj.cn|sh.cn|tj.cn|cq.cn|he.cn|sx.cn|nm.cn|ln.cn|jl.cn|hl.cn|js.cn|zj.cn|ah.cn|fj.cn|jx.cn|sd.cn|ha.cn|hb.cn|hn.cn|gd.cn|gx.cn|hi.cn|sc.cn|gz.cn|yn.cn|xz.cn|sn.cn|gs.cn|qh.cn|nx.cn|xj.cn|tw.cn|hk.cn|mo.cn|travel|tw|com.tw|la|sh|ac|io|ws|us|tm|vc|ag|bz|in|mn|me|sc|co|org.tw|jobs|tel)).*$” }
' 正则.创建 (常量1 [1], 真, )
' 正则.搜索全部 (域名)
' 返回 (正则.取匹配文本 (1))
正则.创建 (常量1 [1], 假)
结果 ＝ 正则.搜索全部 (域名)
返回 (结果 [1].取匹配文本 (域名, 变量位置))

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (取根域名 (“www.hao123.com”))

子程序名	返回值类型	公开	备 注
判断
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
判断数组	文本型		3
s	整数型

判断数组 ＝ { “baidu.com”, “qq.com”, “163.com” }
计次循环首 (取数组成员数 (判断数组), s)
计次循环首 (文本比较 (文本, 判断数组 [s], 假), )
成功 ＝ 真
计次循环尾 ()
调试输出 (成功)
计次循环尾 ()
调试输出 (成功)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

判断 (取根域名 (编辑框1.内容))

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .子程序 取根域名, 文本型<br /> .参数 域名, 文本型<br /> .局部变量 常量1, 文本型, , "1"<br /> .局部变量 正则, 正则表达式<br /> .局部变量 结果, 搜索结果, , "0"<br /> .局部变量 变量位置<br /> <br /> 常量1 ＝ { “(\w*://)?((\w*\-)*\w*\.(com.cn|com|net.cn|net|org.cn|name|org|gov.cn|gov|cn|com.hk|mobi|me|info|name|biz|cc|tv|asia|hk|网络|公司|中国|ac.cn|bj.cn|sh.cn|tj.cn|cq.cn|he.cn|sx.cn|nm.cn|ln.cn|jl.cn|hl.cn|js.cn|zj.cn|ah.cn|fj.cn|jx.cn|sd.cn|ha.cn|hb.cn|hn.cn|gd.cn|gx.cn|hi.cn|sc.cn|gz.cn|yn.cn|xz.cn|sn.cn|gs.cn|qh.cn|nx.cn|xj.cn|tw.cn|hk.cn|mo.cn|travel|tw|com.tw|la|sh|ac|io|ws|us|tm|vc|ag|bz|in|mn|me|sc|co|org.tw|jobs|tel)).*$” }<br /> ' 正则.创建 (常量1 [1], 真, )<br /> ' 正则.搜索全部 (域名)<br /> ' 返回 (正则.取匹配文本 (1))<br /> 正则.创建 (常量1 [1], 假)<br /> 结果 ＝ 正则.搜索全部 (域名)<br /> 返回 (结果 [1].取匹配文本 (域名, 变量位置))<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (取根域名 (“www.hao123.com”))<br /> <br /> <br /> .子程序 判断<br /> .参数 文本, 文本型<br /> .局部变量 判断数组, 文本型, , "3"<br /> .局部变量 s, 整数型<br /> <br /> 判断数组 ＝ { “baidu.com”, “qq.com”, “163.com” }<br /> .计次循环首 (取数组成员数 (判断数组), s)<br />     .计次循环首 (文本比较 (文本, 判断数组 <strike>, 假), )<br />         成功 ＝ 真<br />     .计次循环尾 ()<br />     调试输出 (成功)<br /> .计次循环尾 ()<br /> <br /> 调试输出 (成功)<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 判断 (取根域名 (编辑框1.内容))

gongtengbsg

感谢发布原创作品，精易因你更精彩！

MeiZuKeJi

欢迎常来帮助新人，谢谢。

bzs168

coolbee

谢谢。精华

爺受亽跪拜

支持开源~！感谢分享

jialifuniya

不错不错 谢谢楼主开源

牵羊逛街的狼

学习了。。支持楼主

chenxi

支持精易   越来越好

xinjiapo

源码有点粗糙