|
|
发表于 2011-9-17 10:42:47
|
显示全部楼层
江苏省苏州市
本帖最后由 柳叶飞 于 2011-9-17 10:45 编辑
- .版本 2
- .程序集 窗口程序集1
- .子程序 _按钮1_被单击
- .局部变量 文本_准备替换的内容, 文本型, , "0"
- .局部变量 局部_计次, 整数型
- .局部变量 替换内容, 文本型
- .局部变量 局部_计次2, 整数型
- 重定义数组 (文本_准备替换的内容, 假, 0)
- 文本_准备替换的内容 = 分割文本 (编辑框_内容.内容, #换行符, )
- .计次循环首 (取数组成员数 (文本_准备替换的内容), 局部_计次)
- 替换内容 = 多项选择 (局部_计次, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容)
- 文本_准备替换的内容 [局部_计次] = 替换内容
- .如果真 (局部_计次 = 4)
- 跳出循环 () '防止手动编辑时多打回车
- .如果真结束
- .计次循环尾 ()
- 编辑框_内容.内容 = “”
- .计次循环首 (取数组成员数 (文本_准备替换的内容), 局部_计次2)
- 编辑框_内容.内容 = 编辑框_内容.内容 + 文本_准备替换的内容 [局部_计次2] + #换行符
- .计次循环尾 ()
复制代码 思路是这样子的,你可以具体设定文字效果,排版,另外打印一块我没做,你可以用快照,将打印内容捕捉至画板,然后打印
|
|