取到URL链接的顶级域名例程源码

御风软件 · 发表于 2013-10-23 20:08:00

可以取到URL链接的顶级域名，也就是主域名。。源码中展示了4种情况，实际上可以取全部URL的顶级域名

[e]
.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕

调试输出 (取主域名 (“http://bbs.guaruan.com/forum.php”))
调试输出 (取主域名 (“bbs.guaruan.com/forum.php”))
调试输出 (取主域名 (“bbs.guaruan.com/”))
调试输出 (取主域名 (“bbs.guaruan.com”))

.子程序取主域名, 文本型, , 取URL链接的顶级域名
.参数 URL, 文本型
.局部变量主域名, 文本型
.局部变量开始位置, 整数型
.局部变量结束位置, 整数型

开始位置＝寻找文本 (URL, “//”, , 假) ＋ 2
结束位置＝寻找文本 (URL, “/”, 开始位置, 假)
.判断开始 (结束位置＝ -1)
主域名＝ URL
.判断 (开始位置＝ 1) ' 没有找到//
主域名＝取文本左边 (URL, 结束位置－ 1)
.默认
主域名＝取文本中间 (URL, 开始位置, 结束位置－开始位置)
.判断结束
返回 (主域名)

[/e]

紫瞳 · 发表于 2013-12-10 21:57:05

收下好东西

冷眼旁观你们暧 · 发表于 2013-11-2 22:37:05

看看看感谢楼主

宇智波·佐助 · 发表于 2013-10-31 23:47:15

代码截图好呀

御风软件 · 发表于 2013-10-25 13:53:15

fml224 发表于 2013-10-25 09:55
网址会不会失效呢

额，你这水灌的太没有水平了。。这只是取网站url链接的顶级域名的。。。和网址失效有什么关系呢

fml224 · 发表于 2013-10-25 09:55:42

网址会不会失效呢

dszbox471 · 发表于 2013-10-24 16:31:37

谢谢分享！~

小芸 · 发表于 2013-10-24 12:11:59

精易模块好像有这功能

悲伤的羔羊 · 发表于 2013-10-23 22:31:27

学习了，，，

快乐987 · 发表于 2013-10-23 21:45:55

原来是用寻找文本来实现的！

		自动登录	找回密码
密码			注册

[易语言纯源码] 取到URL链接的顶级域名例程源码