Question

各位老师，请问一下这段易语言怎么译成E4A

.版本 2
.支持库 iext
.支持库 internet
清除数组 (歌曲文件)
.如果真 (取文本长度 (名称或歌手) ＜ 1)
返回 ()
.如果真结束
超级列表框1.全部删除 ()
获取文件1 ＝ 分割文本 (到文本 (HTTP读文件 (““＋ 名称或歌手)), “<name>”, )
.计次循环首 (取数组成员数 (获取文件1) － 1, 循环变量)
表项索引 ＝ 超级列表框1.插入表项 (, , 取随机数 (0, 52), , , )
文件列表 ＝ 分割文本 (获取文件1 [循环变量 ＋ 1], “</name>”, )
歌曲文件 ＝ 分割文本 (文件列表 [1], “$$”, )
超级列表框1.置标题 (表项索引, 0, 到文本 (循环变量))
超级列表框1.置标题 (表项索引, 2, 到文本 (歌曲文件 [1]))
.如果 (取文本长度 (歌曲文件 [2]) ＜ 1 或 取文本长度 (歌曲文件 [2]) ＝ 0
超级列表框1.置标题 (表项索引, 1, “”)
.否则
超级列表框1.置标题 (表项索引, 1, 到文本 (歌曲文件 [2]))
.如果结束
下个记数 ＝ 循环变量
.计次循环尾 ()

Answer 1

看你这是循环写入超级列表框，很简单。核心代码如下

变量循环首 计次=0 至 取数组成员数(歌曲文件) -1
列表框1.添加项目(歌曲文件(计次))
变量循环尾

上面这段代码，你明白了吧？易语言的http读文件在E4A的用法是：

'首先声明一个文本型变量
变量 源码 为 文本型
源码 = 取网页源码("地址","GBK")

易语言中的数组在E4A里面是如下写法：

歌曲文件(0)'代表数组1
歌曲文件(1)'代表数组2
假如有10个数组那么取数组成员数显示为10，其实第10数组是不存在的，因为10个数组分别是0-9

所以上面循环的代码那里，取数组成员数之后减去1，就是要减去这个多出来的数，防止数组越界错误造成程序崩溃

纯手打满意请采纳，谢谢！