设为首页收藏本站淘宝杂货铺

从F到0 - From F to 0

 找回密码
 注册已关闭
搜索
查看: 2117|回复: 0
收起左侧

易语言交换网址字符串URL链接的 http:// 与 https:// 开头 (不区分大小写,返回文本型)

[复制链接]
发表于 2020-3-8 21:24:43 | 显示全部楼层 |阅读模式
输入:
输出调试文本 (交换HTTP与https (“http://127.0.0.1/”))
输出调试文本 (交换HTTP与HTTPS (“https://127.0.0.1/”))
输出调试文本 (交换HTTP与HTTPS (“ftp://127.0.0.1/”))

输出:
  1. * https://127.0.0.1/
  2. * http://127.0.0.1/
  3. * ftp://127.0.0.1/
复制代码

1.png


  1. .版本 2

  2. .程序集 程序集1

  3. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


  4. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
  5. 返回 (0)  ' 可以根据您的需要返回任意数值

  6. .子程序 _临时子程序

  7. ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
  8. 输出调试文本 (交换HTTP与HTTPS (“http://127.0.0.1/”))
  9. 输出调试文本 (交换HTTP与HTTPS (“https://127.0.0.1/”))
  10. 输出调试文本 (交换HTTP与HTTPS (“ftp://127.0.0.1/”))



  11. .子程序 交换HTTP与HTTPS, 文本型, 公开, 交换网址的 http:// 与 https:// 开头
  12. .参数 URL, 文本型
  13. .局部变量 小写URL, 文本型
  14. .局部变量 URL长度, 整数型

  15. 小写URL = 到小写 (子文本替换 (URL, “\”, “/”, , 2, 真))
  16. URL长度 = 取文本长度 (URL)
  17. .如果真 (小写URL ≈ “http://” 或 小写URL ≈ “https://”)
  18.     .如果真 (小写URL ≈ “https://”)
  19.         返回 (“http://” + 取文本右边 (URL, URL长度 - 8))
  20.     .如果真结束
  21.     返回 (“https://” + 取文本右边 (URL, URL长度 - 7))
  22. .如果真结束
  23. 返回 (URL)



复制代码

相关帖子

您需要登录后才可以回帖 登录 | 注册已关闭

本版积分规则

QQ|手机版|Archiver|从F到0 ( 蒙ICP备17002595号-1 )
蒙公网安备15010402000325号

腾讯云安全认证

GMT+8, 2024-3-29 19:01 , Processed in 0.621036 second(s), 22 queries .

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表