| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 网页_取域名 | 文本型 | 通过“/”或者“.”来获取网址中的域名,默认使用“/”方式 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 网址 | 文本型 | 去除二级域名 | 逻辑型 | 不过滤端口 | 逻辑型 | 后缀点数量 | 整数型 | 不留空表示通过“.”的方式取域名 。如:.com后缀点数量为1 ,.com.cn后缀点数量为2 |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 域名 | 文本型 | |||||
| 位置 | 整数型 | |||||
| 二级 | 文本型 | 0 | ||||
| 域名长度 | 整数型 | |||||
| 前点开始 | 整数型 | 如www.bbs.125.la www后面.的位置 | ||||
| 前点结束 | 整数型 | 如www.bbs.125.la bbs后面.的位置 | ||||
| 后点开始 | 整数型 | 如www.bbs.125.la 125后面.的位置 | ||||
判断 (是否为空 (后缀点数量)) ' 使用“/”方式获取域名,网页_访问() 内部 必须使用这个
如果真 (取文本右边 (域名, 1) ≠ “/”)
域名 = 域名 + “/”


判断 (取文本左边 (域名, 8) = “https://”)
域名 = 文本_取出中间文本 (域名, “https://”, “/”)

如果真 (寻找文本 (域名, “http://”, , 假) = -1)

域名 = “http://” + 域名
域名 = 文本_取出中间文本 (域名, “http://”, “/”)


如果真 (去除二级域名)
二级 = 分割文本 (域名, “.”, )
位置 = 取数组成员数 (二级)

如果真 (位置 > 1)

域名 = 二级 [位置 - 1] + “.” + 二级 [位置]




' 通过“.”的方式取域名,支持任何后缀域名
域名 = 子文本替换 (域名, “http://”, “”, , , 真)
域名 = 子文本替换 (域名, “https://”, “”, , , 真)
位置= 寻找文本 (域名, “/”, , 假) ' 一撇位置
如果真 (位置≠ -1)
域名 = 取文本左边 (域名, 位置- 1)
连续赋值 (取文本长度 (域名), 域名长度, 后点开始)
计次循环首 (后缀点数量, )
后点开始 = 倒找文本 (域名, “.”, 后点开始, 假)
计次循环尾 ()
前点结束 = 倒找文本 (域名, “.”, 后点开始, 假)
判断 (去除二级域名)
域名 = 取文本右边 (域名, 域名长度 - 前点结束)
' 保留二级域名---------------------------------------

如果真 (前点结束 ≠ -1) ' 至少是二级域名

前点开始 = 倒找文本 (域名, “.”, 前点结束, 假)


如果真 (前点开始 ≠ -1) ' 至少是三级域名


域名 = 取文本右边 (域名, 域名长度 - 前点开始)








' 端口过滤处理--------------------------------------------------------
判断 (不过滤端口)
返回 (域名)
位置 = 寻找文本 (域名, “:”, , 假) ' 冒号位置
判断 (位置 ≠ -1)
返回 (取文本左边 (域名, 位置 - 1))
返回 (域名)


词条作者信息 使用例程
