网页_取域名() 取 “http://www.google.com.hk/” 不全.

nuan1989

网页_取域名 ("http://www.google.com.hk",真 ,真 )

返回：com.hk

小磊

暂不添加更多

nuan1989

改了一下，但是只能去二级，三级就去不了
[e]
.版本 2

.子程序 网页_取域名, 文本型, 公开
.参数 网址, 文本型
.参数 去除二级域名, 逻辑型, 可空
.参数 不过滤端口, 逻辑型, 可空
.局部变量 域名, 文本型
.局部变量 位置, 整数型
.局部变量 二级, 文本型, , "0"

域名 ＝ 到小写 (网址)
.如果真 (取文本右边 (域名, 1) ≠ “/”)
    域名 ＝ 域名 ＋ “/”
.如果真结束

.判断开始 (取文本左边 (域名, 8) ＝ “https://”)
    域名 ＝ 文本_取出中间文本 (域名, “https://”, “/”)
.默认
    .如果真 (寻找文本 (域名, “http://”, , 假) ＝ -1)
        域名 ＝ “http://” ＋ 域名
    .如果真结束
    域名 ＝ 文本_取出中间文本 (域名, “http://”, “/”)
.判断结束

.如果真 (去除二级域名)
    二级 ＝ 分割文本 (域名, “.”, )
    位置 ＝ 取数组成员数 (二级)
    .如果真 (位置 ＝ 3)
        域名 ＝ 二级 [位置 － 1] ＋ “.” ＋ 二级 [位置]
    .如果真结束
    .如果真 (位置 ＝ 4)
        域名 ＝ 二级 [位置 － 2] ＋ “.” ＋ 二级 [位置 － 1] ＋ “.” ＋ 二级 [位置]
    .如果真结束

.如果真结束

.判断开始 (不过滤端口)
    返回 (域名)
.默认
    位置 ＝ 寻找文本 (域名, “:”, , 假)
    .判断开始 (位置 ≠ -1)
        返回 (取文本左边 (域名, 位置 － 1))
    .默认
        返回 (域名)
    .判断结束

.判断结束
[/e]