插入分割线

huangweixin

插入分割线  具体内容看图

求高手赐教


2.rar (1.05 KB, 下载次数: 14)

2010-10-12 11:35 上传

点击文件名下载附件

微凉

14.zip (1.55 KB, 下载次数: 27)

2010-10-12 12:46 上传

点击文件名下载附件

5101798

楼主想表达什么

exit11

今天的附件用完了么，都不能插入附件

1. .版本 2
   
2. 
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 a, 文本型, , "0"
   
5. 
   
6. a ＝ 分割文本 (编辑框1.内容, #换行符, )
   
7. 编辑框4.内容 ＝ “”
   
8. 子程序1 (a)
   
9. 
   
10. .子程序 子程序1, , , 固定插入
    
11. .参数 a, 文本型, 数组
    
12. .局部变量 x, 整数型
    
13. .局部变量 文本, 文本型
    
14. 
    
15. 文本 ＝ 编辑框2.内容 ＋ #换行符
    
16. .计次循环首 (取数组成员数 (a), x)
    
17. .判断开始 (x ％ 3 ＝ 0)
    
18. 文本 ＝ 文本 ＋ a [x] ＋ #换行符 ＋ 编辑框3.内容 ＋ #换行符
    
19. .默认
    
20. 文本 ＝ 文本 ＋ a [x] ＋ #换行符
    
21. .判断结束
    
22. 
    
23. .计次循环尾 ()
    
24. 编辑框4.内容 ＝ 文本
    
25. 
    
26. .子程序 子程序2, , , 按有特定内容插入
    
27. .参数 a, 文本型, 数组
    
28. .参数 指定行, 文本型, 可空
    
29. .局部变量 x, 整数型
    
30. .局部变量 文本, 文本型
    
31. 
    
32. 指定行 ＝ “〖”
    
33. 文本 ＝ 编辑框2.内容 ＋ #换行符
    
34. .计次循环首 (取数组成员数 (a), x)
    
35. .判断开始 (寻找文本 (a [x], 指定行, , 假) ≠ -1)
    
36. 文本 ＝ 文本 ＋ a [x] ＋ #换行符 ＋ 编辑框3.内容 ＋ #换行符
    
37. .默认
    
38. 文本 ＝ 文本 ＋ a [x] ＋ #换行符
    
39. .判断结束
    
40. 
    
41. .计次循环尾 ()
    
42. 编辑框4.内容 ＝ 文本
    
43. 
    
44. .子程序 _按钮3_被单击
    
45. .局部变量 a, 文本型, , "0"
    
46. 
    
47. a ＝ 分割文本 (编辑框1.内容, #换行符, )
    
48. 编辑框4.内容 ＝ “”
    
49. 子程序2 (a)
    

复制代码

级别低手

我喜欢这样的