E语言写一个程序

就是按照上面的那个图 但是空格里面需要出现我排列好了的油箱 比如421347512@qq.com421434857@qq.com425633310@qq.com450832428@qq.com467661763@qq.com490149834@qq.com491018263@qq.com494248246@qq.com496147294@qq.com 这样排列好了的， 直接点复制 他就会复制当前出现在空格里面的内容 然后出现下一个 就是这样循环 希望能有知到做的朋友帮帮我这个可怜的新手

.版本 2

.程序集 窗口程序集1
.程序集变量 计次

.子程序 _按钮1_被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本, 文本型
.局部变量 I

文本 ＝ “421347512@qq.com,421434857@qq.com,425633310@qq.com,450832428@qq.com,467661763@qq.com,490149834@qq.com,491018263@qq.com,494248246@qq.com,496147294@qq.com”
文本数组 ＝ 分割文本 (文本, “,”, )
I ＝ 取数组成员数 (文本数组)
计次 ＝ 计次 ＋ 1
.如果 (计次 ＜ I)
编辑框1.内容 ＝ 文本数组 [计次]
置剪辑板文本 (编辑框1.内容)
信息框 (“已复制到剪辑板,可以按CTRL+V粘贴.自动跳往下一个.”, 0, )
.否则
信息框 (“已到文件尾”, 0, )
计次 ＝ 0
编辑框1.内容 ＝ 文本数组 [计次 ＋ 1]

用编辑框的话,可以这样实现, 计次属于全局变量.在程序集顶部添加也可以.如果你需要添加更多的号码,可以在文本=后面继续添加,中间要加 , 号.