|
发表于 2018-2-28 12:02:46
|
显示全部楼层
广东省佛山市
.版本 2
.支持库 internet
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 fg, 文本型, , "0"
.局部变量 fg2, 文本型, , "0"
.局部变量 s, 文本型
.局部变量 i, 整数型
s = 到文本 (HTTP读文件 (“http://data.917500.cn/pk10.txt”))
fg = 分割文本 (s, #换行符, )
.计次循环首 (取数组成员数 (fg), i)
' 调试输出 (fg [i])
fg2 = 分割文本 (fg [i], “ ”, )
' 调试输出 (fg2)
' 调试输出 (fg2 [1] + “ ” + fg2 [2] + fg2 [3] + fg2 [4] + fg2 [5] + fg2 [6] + fg2 [7] + fg2 [8] + fg2 [9] + fg2 [10] + fg2 [11])
编辑框1.加入文本 (fg2 [1] + “ ” + fg2 [2] + fg2 [3] + fg2 [4] + fg2 [5] + fg2 [6] + fg2 [7] + fg2 [8] + fg2 [9] + fg2 [10] + fg2 [11] + #换行符)
编辑框2.加入文本 (fg2 [1] + “ ” + 取文本右边 (fg2 [2], 1) + 取文本右边 (fg2 [3], 1) + 取文本右边 (fg2 [4], 1) + 取文本右边 (fg2 [5], 1) + 取文本右边 (fg2 [6], 1) + #换行符)
.计次循环尾 ()
|
|