在论坛显示易语言代码测试

缘诚

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

.子程序 cs, 文本型
.局部变量 计次1, 整数型
.局部变量 计次2, 整数型

.如果 (选择框1.选中 ＝ 真)
.如果真 (文件数据 ≠ { })
创建目录 (文件目录 ＋ 文件名称)
计次1 ＝ 分解数目 ＋ 1
.计次循环首 (分解数目, 计次2)
处理事件 ()
计次1 ＝ 计次1 － 1
标签2.标题 ＝ 到文本 (计次2 ＋ 1) ＋ “\” ＋ 到文本 (分解数目 ＋ 1)
.如果 (计次2 ＝ 1)
写到文件 (文件目录 ＋ 文件名称 ＋ “\” ＋ 文件后缀 ＋ “.” ＋ 到文本 (计次2) ＋ “F”, 压缩数据 (取字节集中间 (文件数据, 计次2 × 默认长度 － 默认长度, 默认长度)))
.否则
写到文件 (文件目录 ＋ 文件名称 ＋ “\” ＋ 文件后缀 ＋ “.” ＋ 到文本 (计次2) ＋ “F”, 压缩数据 (取字节集中间 (文件数据, 计次2 × 默认长度 － 默认长度 ＋ 1, 默认长度)))
.如果结束

.计次循环尾 ()
.如果真 (最后数据 ≠ { })
写到文件 (文件目录 ＋ 文件名称 ＋ “\” ＋ 文件后缀 ＋ “.” ＋ 到文本 (分解数目 ＋ 1) ＋ “F”, 压缩数据 (最后数据))
.如果真结束

.如果真结束

.否则
.如果真 (文件数据 ≠ { })
创建目录 (文件目录 ＋ 文件名称)
计次1 ＝ 分解数目 ＋ 1

.计次循环首 (分解数目, 计次2)
处理事件 ()
标签2.标题 ＝ 到文本 (计次2 ＋ 1) ＋ “\” ＋ 到文本 (分解数目 ＋ 1)
计次1 ＝ 计次1 － 1
.如果 (计次2 ＝ 1)
写到文件 (文件目录 ＋ 文件名称 ＋ “\” ＋ 文件后缀 ＋ “.” ＋ 到文本 (计次2) ＋ “F”, 取字节集中间 (文件数据, 计次2 × 默认长度 － 默认长度, 默认长度))
.否则
写到文件 (文件目录 ＋ 文件名称 ＋ “\” ＋ 文件后缀 ＋ “.” ＋ 到文本 (计次2) ＋ “F”, 取字节集中间 (文件数据, 计次2 × 默认长度 － 默认长度 ＋ 1, 默认长度))
.如果结束

.计次循环尾 ()
.如果真 (最后数据 ≠ { })
写到文件 (文件目录 ＋ 文件名称 ＋ “\” ＋ 文件后缀 ＋ “.” ＋ 到文本 (分解数目 ＋ 1) ＋ “F”, 最后数据)
.如果真结束

.如果真结束

.如果结束
返回 (“”)

[/e]

雷少

我就是来拿奖励的..

Death·hacker

[e]
.版本 2

        SetTextColor (wParam, #蓝色)  ' 设置字体颜色
        SetBkMode (wParam, #TRANSPARENT)  ' 设置透明模式
[/e]

呵呵  可以不...

素顏じ亦傾城ジ

呃... 居然没中...

素顏じ亦傾城ジ

     我就是来拿奖励的..  

Will

粘贴代码遇到：
抱歉，您填写的内容包含不良信息而无法提交

被封禁言

不是直接复制？

被封禁言

[e]

.版本 2
.支持库 internet

.子程序 子程序_取素材信息, 逻辑型, , 真表示成功,假失败
.参数 素材地址, 文本型
.参数 素材标题, 文本型, 参考
.参数 素材预览地址, 文本型, 参考
.参数 素材下载地址, 文本型, 参考
.局部变量 返回文本, 文本型
.局部变量 正则, 正则表达式类

返回文本 ＝ 编码_URL解码UTF8 (到文本 (HTTP读文件 (素材地址)))
正则.创建 (#文件匹配, 返回文本)
.如果真 (正则.取匹配数量 () ＞ 0)
素材标题 ＝ 正则.取子匹配文本 (1, 1)
素材预览地址 ＝ 正则.取子匹配文本 (1, 2)
素材下载地址 ＝ 正则.取子匹配文本 (1, 3)
返回 (真)
.如果真结束
返回 (假)

[/e]

Jocelyn

是不是真的啊。。。

执着

[e]
.版本 2

.程序集 窗口程序集1

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



.子程序 冰点专属
.局部变量 冰点, 文本型

.如果 (冰点 ＝ “真男人”)
    输出调试文本 (“该去表白啦”)
.否则
    输出调试文本 (“可以去死啦”)
[/e]