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

鹭枫

现来收个！！怎么没有哦

鹭枫

不废话，收币

安泽

[e]
版本 2

.子程序 GetTextMiddleG, 整数型, , 取文本中间组,返回数组成员数
.参数 Data, 文本型, , 欲取的数据
.参数 Head, 文本型, , 头数据
.参数 Tail, 文本型, , 尾数据
.参数 TextG, 文本型, 参考 数组, 返回的文本数组
.局部变量 Int_1, 整数型, , , 位置1
.局部变量 Int_2, 整数型, , , 位置2
.局部变量 Len_Head, 整数型, , , 头数据长度
.局部变量 Len_Tail, 整数型, , , 尾数据长度
.局部变量 Temp, 文本型, , , 临时文本
.局部变量 Text, 文本型, , "0", 返回文本

Len_Head ＝ 取文本长度 (Head)
Len_Tail ＝ 取文本长度 (Tail)
.循环判断首 ()
    Int_1 ＝ 寻找文本 (Data, Head, Int_2 ＋ Len_Tail, 假)
    .如果真 (Int_1 ＝ -1)
        跳出循环 ()
    .如果真结束
    Int_2 ＝ 寻找文本 (Data, Tail, Int_1 ＋ Len_Head, 假)
    .如果真 (Int_2 ＝ -1)
        跳出循环 ()
    .如果真结束
    Temp ＝ 取文本中间 (Data, Int_1 ＋ Len_Head, Int_2 － Int_1 － Len_Head)
    加入成员 (Text, Temp)
.循环判断尾 (Int_1 ≠ -1 且 Int_2 ≠ -1)
TextG ＝ Text
返回 (取数组成员数 (TextG))
[/e]

meng123qq

[e]

.版本 2
.支持库 internet

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

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

[/e]

123zxc

小熊君

.版本 2

.子程序 GetTextMiddleG, 整数型, , 取文本中间组,返回数组成员数
.参数 Data, 文本型, , 欲取的数据
.参数 Head, 文本型, , 头数据
.参数 Tail, 文本型, , 尾数据
.参数 TextG, 文本型, 参考 数组, 返回的文本数组
.局部变量 Int_1, 整数型, , , 位置1
.局部变量 Int_2, 整数型, , , 位置2
.局部变量 Len_Head, 整数型, , , 头数据长度
.局部变量 Len_Tail, 整数型, , , 尾数据长度
.局部变量 Temp, 文本型, , , 临时文本
.局部变量 Text, 文本型, , "0", 返回文本

Len_Head ＝ 取文本长度 (Head)
Len_Tail ＝ 取文本长度 (Tail)
.循环判断首 ()
    Int_1 ＝ 寻找文本 (Data, Head, Int_2 ＋ Len_Tail, 假)
    .如果真 (Int_1 ＝ -1)
        跳出循环 ()
    .如果真结束
    Int_2 ＝ 寻找文本 (Data, Tail, Int_1 ＋ Len_Head, 假)
    .如果真 (Int_2 ＝ -1)
        跳出循环 ()
    .如果真结束
    Temp ＝ 取文本中间 (Data, Int_1 ＋ Len_Head, Int_2 － Int_1 － Len_Head)
    加入成员 (Text, Temp)
.循环判断尾 (Int_1 ≠ -1 且 Int_2 ≠ -1)
TextG ＝ Text
返回 (取数组成员数 (TextG))







好厉害的样子！

欲醉

哦原来是浏览模式的问题……

欲醉

话说、、、、失败了？？？？？、、、在试一次[e]
.版本 2

.子程序 子程序1

.如果 (回帖=真)
    精币 + 5
.否则
    精币 + 1
.如果结束

[/e]

欲醉

真的真的？？？
[e]
.版本 2

.子程序 子程序1

.如果 (回帖=真)
    精币 + 5
.否则
    精币 + 1
.如果结束

[/e]

心冷、鱼儿

[e]
.版本 2

.子程序 GetTextMiddleG, 整数型, , 取文本中间组,返回数组成员数
.参数 Data, 文本型, , 欲取的数据
.参数 Head, 文本型, , 头数据
.参数 Tail, 文本型, , 尾数据
.参数 TextG, 文本型, 参考 数组, 返回的文本数组
.局部变量 Int_1, 整数型, , , 位置1
.局部变量 Int_2, 整数型, , , 位置2
.局部变量 Len_Head, 整数型, , , 头数据长度
.局部变量 Len_Tail, 整数型, , , 尾数据长度
.局部变量 Temp, 文本型, , , 临时文本
.局部变量 Text, 文本型, , "0", 返回文本

Len_Head ＝ 取文本长度 (Head)
Len_Tail ＝ 取文本长度 (Tail)
.循环判断首 ()
    Int_1 ＝ 寻找文本 (Data, Head, Int_2 ＋ Len_Tail, 假)
    .如果真 (Int_1 ＝ -1)
        跳出循环 ()
    .如果真结束
    Int_2 ＝ 寻找文本 (Data, Tail, Int_1 ＋ Len_Head, 假)
    .如果真 (Int_2 ＝ -1)
        跳出循环 ()
    .如果真结束
    Temp ＝ 取文本中间 (Data, Int_1 ＋ Len_Head, Int_2 － Int_1 － Len_Head)
    加入成员 (Text, Temp)
.循环判断尾 (Int_1 ≠ -1 且 Int_2 ≠ -1)
TextG ＝ Text
返回 (取数组成员数 (TextG))
[/e]