代码文本:
.版本 2
.支持库 shell
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
通用对话框1.打开 ()
编辑框1.内容 = 通用对话框1.文件名
.子程序 _按钮2_被单击
执行 (, 编辑框1.内容, , , )
.子程序 _按钮3_被单击
寻找文本 (编辑框1.内容, 编辑框2.内容, , 真)
调试输出 (寻找文本 (编辑框1.内容, 编辑框2.内容, , 真))
' 寻找文本为整数型,所以赋值给编辑框3需要到文本指令转化
编辑框3.内容 = 到文本 (寻找文本 (编辑框1.内容, 编辑框2.内容, , 真))
.子程序 _按钮4_被单击
.局部变量 a, 整数型
a = 倒找文本 (编辑框1.内容, “\”, , 真)
编辑框4.内容 = 取文本左边 (编辑框1.内容, a)
执行 (, 编辑框4.内容, , , )
联系客服