|
楼主 |
发表于 2013-8-28 19:51:48
|
显示全部楼层
北京市北京市
[e]
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_单算_被单击
.局部变量 角度, 双精度小数型
.局部变量 弧度, 双精度小数型
.局部变量 测量, 测量
弧度 = 测量.读取角度 (到数值 (编辑框1.内容))
编辑框2.内容 = 到文本 (弧度)
.子程序 _按钮2_被单击
.局部变量 文件名, 文本型
.局部变量 文本, 文本型
.局部变量 分割行, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 测量, 测量
.局部变量 弧度, 双精度小数型
通用对话框1.打开 ()
文件名 = 通用对话框1.文件名
文本 = 到文本 (读入文件 (文件名))
分割行 = 分割文本 (文本, #换行符, )
载入 (窗口2, 窗口1, 假)
.计次循环首 (取数组成员数 (分割行), i)
窗口2.超级列表框1.插入表项 (, , , , , )
窗口2.超级列表框1.置标题 (i - 1, 0, 分割行 )
弧度 = 测量.读取角度 (到数值 (删首尾空 (窗口2.超级列表框1.取标题 (i - 1, 0))))
窗口2.超级列表框1.置标题 (i - 1, 1, 到文本 (弧度))
.计次循环尾 ()
[/e] |
|